将字符串传递给facet_grid：ggplot2

Question

在ggplot2中，您可以使用aes_string在用户定义函数内传递字符参数。你怎么能做同样的方面网格需要一个公式，而不是aes？

FUN <- function(data, x, y, fac1, fac2) { 
    ggplot(data = data, aes_string(x=x, y=y)) + 
    geom_point() + facet_grid(as.formula(substitute(fac1 ~ fac2))) 
} 


FUN(mtcars, 'hp', 'mpg', 'cyl', 'am') 

Answer 1

reformulate()似乎工作得很好。

FUN <- function(data, x, y, fac1, fac2) { 
     ggplot(data = data, aes_string(x=x, y=y)) + 
     geom_point() + facet_grid(reformulate(fac2,fac1)) 
} 

FUN(mtcars, 'hp', 'mpg', 'cyl', 'am')