r - 如何在另一个函数中传递/评估函数参数以与 ggplot 一起使用？

Question

请考虑以下代码:

test <- function(x,n){

selection<-names(x)[n]
graph <- ggplot(x, aes(factor(selection)))
graph + geom_bar()
}

test(mtcars,1)

它引发错误，因为 R 找不到选择。我也玩过 substitute , eval和 get没有成功。我找到了 this similar question并以为我明白 Joris'回答但也不能对 ggplot 的参数使用相同的技巧。

Answer 1

您可以使用 aes_string以此目的。所以test应该是这样的:

test <- function(x,n){
  graph <- ggplot(x, aes_string(x = names(x)[n]))
  graph + geom_bar()
}