I'd like to pass a quoted string to a function that calls ggplot2.
library(magrittr); library(ggplot2)
g1 <- function( variable ) {
ggplot(mtcars, aes_string("wt", variable, size="carb")) +
geom_point()
}
g1("mpg")
This works well, but the v3.1.0 documentation advocates quasiquotation and the NSE aes()
.
All these functions are soft-deprecated. Please use tidy evaluation idioms instead (see the quasiquotation section in aes() documentation).
But the aes()
examples use NSE (ie, g1(mpg)
instead of g1("mpg")
). Likewise, these SO solutions use either NSE values or aes_()
/aes_string()
.
I'd like the function to accept a SE/quoted string, to accommodate a character vector, like:
variables <- c("mpg", "cyl", "disp")
variables %>%
lapply(g1)
You can do this using the !!
operator on the variable after call to sym
. This will unquote and evaluate variable
in the surrounding environement.
library(rlang)
g1 <- function( variable ) {
ggplot(mtcars, aes(x = wt, y = !! sym(variable) , size = "carb")) +
geom_point()
}
g1("mpg")
variables <- c("mpg", "cyl", "disp")
variables %>%
lapply(g1)
A work-around is to substitute a common name for the variable name of interest in your function:
g1 <- function( variable ) {
colnames(mtcars) <- gsub(variable, "variable", colnames(mtcars))
ggplot(mtcars, aes(x=wt, y=variable, size=carb)) +
geom_point() + ylab(variable)
}
variables <- c("mpg", "cyl", "disp")
variables %>%
lapply(g1)
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With