ggplot2 通过变量传递参数内容

R里面有很多工具包，接收的数据不能直接处理字符串
像ggplot2， ggplot(data, aes(x=AAA))，
这个的AAA必须是data中的表头。
如果你自己提前定义quote='AAA'，
然后再ggplot(data, aes(x=quote))就会报错。

还有dplyr、subset都是如此
这种情况，如果自己希望去写一个灵活的函数时，就很麻烦。

提供一个解决方案

library(ggplot2)
library(rlang)

mine_func = function(data, x){
  quo_x = sym(x)
  
  ggplot(diamonds, aes(x= !! quo_x))+
    geom_bar()
  
}

quote='cut'
mine_func(diamonds, quote)