ggplot2，如何在函数内使用访问数据框元素？

我正在尝试使用 ggplot2 创建绘图来标准化许多类似绘图的创建。假设您可以使用 theme()、stat_*() 或 geom_*() 以及 + 运算符来堆叠大量选项，那么如何将其包装在函数中呢？

我想创建一个函数来绘制数据框的各个部分，例如：

library(ggplot2)
test<-function(fdata,fx){
  p<-ggplot(fdata,aes(x=fx,y=mpg))+geom_point()
  print(p)}; 
test(mtcars,wt)

返回错误：

Error in eval(expr, envir, enclos) : object 'fx' not found

但是将美学定义更改为局部范围变量（例如 x=fx 到 x=wt）是可行的，但不会使用函数的第二个选项“fx”：

library(ggplot2)
test<-function(fdata,fx){
  p<-ggplot(fdata,aes(x=wt,y=mpg))+geom_point()
  print(p)}; 
test(mtcars,wt)

如何编写一个函数来根据数据框中的不同变量创建绘图？

例如。我如何编写函数测试，以便我可以多次调用以获得类似的图，例如：

test(mtcars,'wt')  #scatter plot of wt x mpg
test(mtcars,'disp') #scatter plot of disp x mpg
test(mtcars,'hp')  #scatter plot of hp x mpg

这里的技巧是使用aes_string而不是使用aes。前者允许您传递字符串作为美观。这允许您传递包含美学字符串的变量，例如'wt' 在绘制 mtcars 的情况下。您需要像这样修改您的代码：

library(ggplot2)
test <- function(fdata, fx) {
  p <- ggplot(fdata, aes_string(x = fx, y = "mpg")) + geom_point()
  print(p)
}
test(mtcars, "wt")