r - ggpairs での外部変数の使用

Question

メソッドの出力オブジェクトをプロットするためggpairsにパッケージのラッパー関数を使用する R パッケージの関数を作成しています。美学を定義するための入力の一部ではない変数を使用できるGGallyようにしたいのですが、これによりエラーメッセージが生成されます。最小限の例については、以下を参照してください。ggpairsobjectggpairs

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

入力を変更せずに2番目のプロットコマンドを機能させるためのトリックは大object歓迎です。