Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

standard eval with ggplot2 without `aes_string()`

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().

  • Use dplyr SE with ggplot2
  • How to use dplyr's enquo and quo_name in a function with tidyr and ggplot2
  • Why does this aes tidyeval example from ggplot documentation throw an error?

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)
like image 487
wibeasley Avatar asked Mar 13 '19 00:03

wibeasley


2 Answers

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)
like image 67
Croote Avatar answered Nov 19 '22 04:11

Croote


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)
like image 33
Djork Avatar answered Nov 19 '22 04:11

Djork