dplyr 掩盖 GGally 并破坏 ggparcoord

鉴于新的会议， 执行一个小ggparcoord(.)函数文档中提供的示例

library(GGally)

data(diamonds, package="ggplot2")
diamonds.samp <- diamonds[sample(1:dim(diamonds)[1], 100), ]
ggparcoord(data = diamonds.samp, columns = c(1, 5:10))

结果如下图：

再次，从一个新的会话开始并使用加载的脚本执行相同的脚本dplyr

library(GGally)
library(dplyr)

data(diamonds, package="ggplot2")
diamonds.samp <- diamonds[sample(1:dim(diamonds)[1], 100), ]
ggparcoord(data = diamonds.samp, columns = c(1, 5:10))

结果是：

错误：（列表）对象无法强制输入“double”

请注意，顺序图书馆（。）声明确实not matter.

问题

1. 代码示例有问题吗？
2. 有没有办法克服这个问题（通过某些命名空间函数）？
3. 或者这是一个错误？

我两个都需要dplyr and ggparcoord(.)在更大的分析中，但这个最小的例子反映了我面临的问题。

Versions

• R@3.2.3
• dplyr @ 0.4.3
• GGally@1.0.1
• ggplot@2.0.0

UPDATE

总结乔兰给出的精彩答案：

Answers

1. 代码示例实际上是错误的ggparcoord(.)期望一个数据框 not a tbl_df由钻石数据集给出（如果加载了 dplyr）。
2. 问题是通过强制解决的tbl_df to a 数据框.
3. 不，这不是一个错误。

工作代码示例：

library(GGally)
library(dplyr)

data(diamonds, package="ggplot2")
diamonds.samp <- diamonds[sample(1:dim(diamonds)[1], 100), ]
ggparcoord(data = as.data.frame(diamonds.samp), columns = c(1, 5:10))

将我的评论转换为答案...

这里的 GGally 包做出了合理的假设：使用[数据框上的行为应该像往常一样。然而，这一切都在哈德利诗中，diamonds数据集是一个tbl_df以及ASAdata.frame.

When dplyr加载后，行为[被重写，使得drop = FALSE始终是 a 的默认值tbl_df。所以有一个地方在GGally where data[,"cut"]预计返回一个向量，但它返回另一个数据帧。

...具体来说，在尝试执行时，您的示例中会抛出错误：

data[, fact.var] <- as.numeric(data[, fact.var]). 

Since data[,fact.var]仍然是一个数据框，因此是一个列表，as.numeric行不通的。

至于你的结论是这不是一个错误，我想说……也许吧。大概。至少可能没有什么GGally软件包作者应该解决这个问题。你只需要知道使用tbl_df使用非 Hadley 编写的软件包可能会破坏某些东西。

正如您所指出的，删除额外的类属性可以解决问题，因为它使 R 返回到使用正常的[ method.