將字符串傳遞給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')