使用data viewer in Rstudio version 0.99,我想按国家/地区名称(或其他字符向量)过滤dplyr分组表。这打破了数据查看器。 Rstudio说“无法排序或过滤数据”,R返回的错误非常神秘:
Error in vapply(x[[col]], `[`, 0, 1) : values must be type 'double',
but FUN(X[[1]]) result is type 'character'
我可以使用虹膜样本数据集重现这一点。
irisgrouped <- iris %>%
mutate(Species = as.character(Species)) %>% # Change to a character vector
group_by(Sepal.Length)
按Species
过滤数据查看器会中断消息"failure to sort or filter data"
。
这也是使用dput()
library(dplyr)
dtf <- structure(list(itemcode = c(1632, 1632, 1632, 1632, 1632, 1632
), year = c(1961L, 1961L, 1961L, 1961L, 1961L, 1961L), country = c("Albania",
"Austria", "Bulgaria", "Denmark", "Finland", "France")), .Names = c("itemcode",
"year", "country"), row.names = c(NA, -6L), class = "data.frame")
以上内容可以粘贴在R命令中,R studio表查看器中的过滤没有问题。但是,如果我再次对数据框进行分组:
dtf2 <- dtf %>% group_by(itemcode)
使用“无法排序或过滤数据”消息过滤中断。
你能指出滤波器在分组数据帧中不能处理某些字符向量的原因吗?
如果这很重要,这是我的sessionInfo()
R version 3.1.1 (2014-07-10)
Platform: x86_64-pc-linux-gnu (64-bit)
locale:
[1] LC_CTYPE=en_IE.UTF-8 LC_NUMERIC=C
[3] LC_TIME=en_IE.utf8 LC_COLLATE=en_IE.UTF-8
[5] LC_MONETARY=en_IE.utf8 LC_MESSAGES=en_IE.UTF-8
[7] LC_PAPER=en_IE.utf8 LC_NAME=C
[9] LC_ADDRESS=C LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_IE.utf8 LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] dplyr_0.4.1
loaded via a namespace (and not attached):
[1] assertthat_0.1 DBI_0.3.1 lazyeval_0.1.10 magrittr_1.5
[5] parallel_3.1.1 Rcpp_0.11.4 tools_3.1.1
答案 0 :(得分:1)
我可以确认我得到了同样的错误。我正在Windows 8.1上的当前RStudio预览(0.99.441)上使用dplyr 0.4.1运行以下内容。
dtf <- structure(list(itemcode = c(1632, 1632, 1632, 1632, 1632, 1632
), year = c(1961L, 1961L, 1961L, 1961L, 1961L, 1961L), country = c("Albania",
"Austria", "Bulgaria", "Denmark", "Finland", "France")), .Names = c("itemcode",
"year", "country"), row.names = c(NA, -6L), class = "data.frame")
dtfGrouped <- dtf %>% group_by(itemcode)
View(dtfGrouped)
点击过滤器,然后输入国家/地区名称会导致失败。
但是,View(as.data.frame(dtfGrouped))
然后点击过滤器就可以了。
答案 1 :(得分:0)
这个问题是由于R.中的“bug”造成的 这可以通过使用aggregate函数返回多个值来复制:
尝试类似:(以下未经测试)
newDF <- aggregate(formula = val ~ id1 + id2,data = x,FUN = function(x) c(mn = mean(x), n = length(x) ))
如果检查长度,新的“列”实际上会有2*nrow(x)
的长度。
它不是一个真正的数据帧,但该类仍然是“data.frame
”
干杯。