使用外部变量和ggpairs

Question

我正在为R-package编写函数，它将使用包ggpairs中GGally的包装函数来绘制方法的输出对象。我希望ggpairs能够使用不属于输入object的变量来定义美学，但这会产生ggpairs的错误消息，请参阅下面的最小示例：

library(GGally)
library(ggplot2)

# The data object
object <- list(x = iris[, 1:2], label = "Iris data")
# The grouping
y <- iris[, 5]

# The plotting function
wrapper <- function(object, mapping = aes()){
  ggpairs(object$x, mapping)
}

# This works
wrapper(object)

# This doesn't work
wrapper(object, aes(color = y))

后者产生错误信息：

Error in .subset(col, i) : object of type 'symbol' is not subsettable

在不修改输入object的情况下让第二个绘图命令工作的任何技巧都将非常感激。