小编PAC*_*PAC的帖子

当我跑步时gpclibPermit(),我得到了答案FALSE.我怎样才能改变它TRUE？

我想按照R中字符变量的字母顺序对数据框进行排序.我尝试使用order()函数进行排序,但它将我的数据框转换为列表.有人有线索吗？

topoJSONgeoJSON在互联网上绘制地图时,文件非常常见.是否可以导入它们R来绘制等值区域图？

我有一个看起来像的字符向量

c("white","white","blue","green","red","blue","red")

和特定的顺序

c("red","white","blue","green")

.我想根据第二个向量的顺序对第一个向量进行排序,以获得以下向量:c("red","red","white","white","blue","blue", "green").什么是最好的解决方案？

我有一个带有法语日期的字符向量.我想将它们转换为R中的日期格式.它似乎有效,但有一些神秘的错误.例如,R承认"30 juin 2012"而不是"30 juillet 2012":

> as.Date("30 juin 2012", format = "%d %B %Y")
[1] "2012-06-30"
> as.Date("28 février 2012", format = "%d %B %Y")
[1] "2012-02-28"
> as.Date("30 juillet 2012", format = "%d %B %Y")
[1] NA

你有什么解释吗？

PS:我的本地设置是法语UTF8

> Sys.getlocale()
[1] "fr_FR.UTF-8/fr_FR.UTF-8/fr_FR.UTF-8/C/fr_FR.UTF-8/fr_FR.UTF-8"

想象一下,我有以下列表

> test <- list("a" = 1, "b" = 2)

列表的每个元素都有一个名称:

> names(test)

现在,我想使用提取该名称,lapply()因为我想在一个将使用lapply调用的新函数中使用它.我只是不知道如何提取每个元素的名称.

我已经尝试使用deparse()和substitute(),但结果是怪异:

> lapply(test, function(x) {deparse(substitute(x))})
$a
[1] "X[[i]]"

$b
[1] "X[[i]]"

有人有线索吗？

精度:

我想做这样的事情:我有一个类似于测试的列表:

> test <- list("a" = matrix(1, ncol = 3), "b" = matrix(2, ncol = 3))

我想将一个函数应用于该列表,该函数转换每个元素中的数据并为每列提供特定的名称:

make_df <- function(x) {
  output <- data.frame(x)
  names(output) <- c("items", "type", NAME_OF_X)
  return(output)
}
lapply(test, make_df)

预期的产出是:

> test
$a
     [,1] [,2] [,3]
[1,]    1    1    1
attr(,"names")
[1] "index" …

通常,当我尝试下载软件包时,我收到以下消息:

Warning in install.packages :
  package ‘XXXX’ is not available (for R version 3.0.1)

是否无法模拟旧版本的R来使用该软件包？

我正在尝试使用绘制世界地图ggplot.我的代码在我的gist文件中.我不使用时输出正确coord_map但我使用时非常奇怪coord_map:

ggplot(data = test, aes(fill = x)) +
geom_map(aes(map_id = id), map =world.ggmap, color = "white") +
expand_limits(x = world.ggmap$long, y = world.ggmap$lat) +
theme_tufte() + 
coord_map()

ggplot(data = test, aes(fill = x)) +
geom_map(aes(map_id = id), map =world.ggmap, color = "white") +
expand_limits(x = world.ggmap$long, y = world.ggmap$lat) +
theme_tufte()

当我使用maps包中的数据时,我遇到了同样的错误:

library(ggplot2)
library(maps)
world <- map_data("world")
ggplot() + 
geom_map( data=world, aes(x=long, y=lat, group = group, map_id = region),colour="white", fill="grey10", …

Stata有一个非常好的命令,egen这使得计算观察组的统计数据变得容易.例如,可以计算每个组的最大值,平均值和最小值,并将它们作为变量添加到详细数据集中.Stata命令是一行代码:

by group : egen max = max(x)

我从来没有summarise在dplyr包中找到相同的命令,这使得计算每个组的统计数据变得容易,但是我必须运行一个循环来将统计数据与每个观察结果相关联:

library("dplyr")
N  <- 1000
tf  <- data.frame(group = sample(1:100, size = N, replace = TRUE), x = rnorm(N))
table(tf$group)
mtf  <- summarise(group_by(tbl_df(tf), group), max = max(x))
tf$max  <- NA
for (i in 1:nrow(mtf)) {
  tf$max[tf$group == mtf$group[i]]  <- mtf$max[i]
}

有没有人有更好的解决方案？

我想知道是否有任何函数可以很容易地在RStudio的查看器窗格中可视化html对象.例如,我想知道是否可以在查看器窗格中查看html表.

library("Quandl")
library("knitr")
df  <-  Quandl("FBI_UCR/USCRIME_TYPE_VIOLENTCRIMERATE")
kable(head(df[,1:9]), format = 'html', table.attr = "class=nofluid")