library(tidyverse)
xy <- data.frame(xvar = 1:10, yvar = 1:10)

plotfunc <- function(data, x, y){
  print(
    ggplot(data, aes_(x = substitute(x), y = substitute(y))) + 
      geom_line()
  )
}
plotfunc(xy, xvar, yvar)

La función anterior funciona bien. La función siguiente no lo hace. ¿Cómo hago las asignaciones adecuadas que se muestran a continuación? Sé que realmente no hacen nada, pero de todas formas no quiero empezar a corregir mi sintaxis.

plotfunc <- function(data, x, y){
  rng <- range(substitute(x), na.rm = TRUE)
  rescale <- (substitute(x) - rng[1]) / (rng[2] - rng[1])
  print(
    ggplot(data, aes_(x = substitute(x), y = substitute(y))) + 
      geom_line()
  )
}
plotfunc(xy, xvar, yvar)
1
stackinator 16 oct. 2018 a las 14:48

2 respuestas

La mejor respuesta

Debes evaluar xvar en el contexto de data.frame:

plotfunc <- function(data, x, y){
  rng <- range(eval(substitute(x),envir = data), na.rm = TRUE)
  rescale <- (eval(substitute(x),envir = data) - rng[1]) / (rng[2] - rng[1])
  print(
    ggplot(data, aes_(x = substitute(x), y = substitute(y))) + 
      geom_line()
  )
}
plotfunc(xy, xvar, yvar)
4
Moody_Mudskipper 16 oct. 2018 a las 11:58

Aquí hay otra opción que usa más el estilo de programación tidyverse:

library(tidyverse)
xy <- data.frame(xvar = 1:10, yvar = 1:10)


plotfunc2 <- function(data, x, y){
  x <- enquo(x)
  y <- enquo(y)
  rng <- data %>% summarise(r1 = range(!!x, na.rm = TRUE)[1],
                             r2 = range(!!x, na.rm = TRUE)[2]) 
  new_data <- data %>% mutate(rescale = (!!x - rng$r1)/(rng$r2 - rng$r1)) 
  ggplot(data, aes(x = !!x, y = !!y)) +
      geom_line()
}
plotfunc2(xy, xvar, yvar)
1
AndS. 16 oct. 2018 a las 12:24