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