为什么Rstudio数据查看器过滤被dplyr分组表破坏?

时间:2015-06-11 14:39:17

标签: r debian rstudio dplyr

使用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()

如果这很重要,这是我的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    

2 个答案:

答案 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

干杯。