Übergeben Sie die Zeichenfolge an facet_grid: ggplot2

Question

In ggplot2 können Sie Zeichenargumente innerhalb einer benutzerdefinierten Funktion mit aes_string übergeben. Wie können Sie das gleiche für Facettengitter tun, die eine Formel, nicht aes nimmt?

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() scheint gut zu funktionieren.

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')