函数内部的R赋值

你需要评估一下 xvar 在 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)

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)