问题需求:
当需要批量处理数据或者生成ggplot2图片时,往往需要通过自己构建函数处理,写函数就不可避免的需要使用参数传递,R中的参数传递绝大部分自写函数都是通过传递字符串来构成,但是当使用dplyr或者ggplot2时,不能直接处理字符串,并且就算使用字符串处理数据,plotly之类的交互显示的也是表达式(比如iris[[input$variable]])。
ggplot2的特有解决方案
ggplot2的传递参数的函数为aes(),当传递的时字符串时,则可以使用另一个函数aes_string(),代码参考如下:
ggplot(mtcars, aes(x=wt, y=mpg))+geom_point()
## pass string parameter to the function
ggplot(mtcars, aes_string(x='wt', y='mpg'))+geom_point()
通用解决方案
iris %>% filter(Petal.Length >= mean(Petal.Length))
## 使用rlang的函数sym
library(rlang)
iris %>% filter(!!sym('Petal.Length') >= mean(!!sym('Petal.Length')))