小编and*_*her的帖子

我试图用两个表示形状和颜色的图例来制作地图(下面的例子中为"Type"和"Org"),并且有图例插图.我可以放置传说,但我希望它们左对齐,以便它们的左边缘对齐.除了相互集中之外,我无法做出任何其他事情:

require(ggplot2)
require(ggmap)
require(grid)
require(mapproj)

data <- data.frame(Org=rep(c("ABCDEFG","HIJKLMNOP","QRSTUVWX"),4)
                   , Type=rep(c("Y","Z"),6), Lat=runif(12,48,54.5)
                   , Long=runif(12,-133.5,-122.5))

osmMap <- get_map(location=c(-134,47.5,-122,55), source = 'osm')

points <- geom_jitter(data=data, aes(Long, Lat, shape=Type
                                     , colour=Org))

legend <- theme(legend.justification=c(0,0), legend.position=c(0,0)
                , legend.margin=unit(0,"lines"), legend.box="vertical"
                , legend.key.size=unit(1,"lines"), legend.text.align=0
                , legend.title.align=0)

ggmap(osmMap) + points + legend

我试图用ddply与transform填充一个新的变量(summary_Date)与变量数据框ID和Date.根据使用ifelse以下方法评估的工件的长度来选择变量的值:

如果给定月份的ID少于五个,我希望summary_Date通过将日期四舍五入到最接近的月份来计算(使用round_date包裹lubridate); 如果给定月份的ID有超过五个观察值,我希望它summary_Date只是Date.

require(plyr)
require(lubridate)

test.df <- structure(
  list(ID = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,1, 1, 1, 1, 1, 1, 1, 1, 1
                , 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,2, 2, 2, 2, 2, 2, 2, 2)
       , Date = structure(c(-247320000, -246196800, -245073600, -243864000
                            , -242654400, …

我试图从github安装一个包,但不断收到以下错误;

"Error in unzip(src, list = TRUE) : 'exdir' does not exist".

我猜unzip没有权限创建一个目录来解压缩,但我不知道将参数传递给exdir参数的方法.

> require(devtools)
> install_github("rvertnet", "ropensci")

Installing github repo(s) rvertnet/master from ropensci
Installing rvertnet.zip from https://api.github.com/repos/ropensci/rvertnet/zipball/master
Error in unzip(src, list = TRUE) : 'exdir' does not exist

这是我第一次从github安装,所以我可能会遗漏一些非常简单的东西.我尝试了其他package(ggplot2)并得到了同样的错误.

编辑:添加的结果来自sessionInfo():

> sessionInfo()
R version 2.15.1 (2012-06-22)
Platform: i386-pc-mingw32/i386 (32-bit)

locale:
[1] LC_COLLATE=English_Canada.1252  LC_CTYPE=English_Canada.1252   LC_MONETARY=English_Canada.1252
[4] LC_NUMERIC=C                    LC_TIME=English_Canada.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] devtools_0.8

loaded via …

我试图替换字符串向量的所有元素中的字符,其中字符不同,但始终与字符串的开头或结尾有一定距离.我可以substr成功地用来替换字符串开头的字符.我试图str_sub从包中使用stringr来替换sting末尾的字符(因为它允许向后计数负数).它替换了字符,但是对于第一个元素之后的所有元素,它将字符右边的所有元素替换为第一个元素的字符串末尾:

> require(stringr)
> x <- c("A'B'C","E!FG@H","I$JKL&M")
> substr(x,2,2) <- ":"
> x
[1] "A:B'C"   "E:FG@H"  "I:JKL&M"
> str_sub(x,-2,-2) <- ":"
> x
[1] "A:B:C"   "E:FG:C"  "I:JKL:C"