【问题标题】：Using quosure inside ggplot function annotate [duplicate]在ggplot函数中使用quosure注释[重复]
【发布时间】：2020-11-07 11:18:23
【问题描述】：

我已经制作了下面的散点图函数。

scatter_fun<-function(data,xval,yval,xlabel,ylabel, labels){
  xval <- enquo(xval)
  yval <- enquo(yval)
  
  ggplot(data, aes(!!xval, !!yval))+
    geom_smooth(method=lm, se=FALSE)+
    geom_point()+
    theme(axis.line.x.bottom = element_line("black"),
          axis.line.y.left = element_line("black"),
          axis.text.x = element_blank(),
          legend.title = element_blank())+ylab(ylabel)+
    xlab(xlabel)+
    scale_y_continuous(labels = scales::comma)+
    expand_limits(y = 0)+
    geom_smooth(method="lm", se=FALSE, colour="red")+
    annotate("text",
             x=max(!!xval)/2,
             y =0,
             label = labels)
  }

但是，我无法让等式的注释部分起作用。如果我调用该函数，我会收到错误：

错误：只能在 quasiquotation 上下文中取消引用。

不好：

列表(!!myquosure)

好：

dplyr::mutate(data, !!myquosure)

但是，当我删除代码的注释部分时，它工作得很好。我必须对代码进行哪些更改才能使其正常工作？

【问题讨论】：

标签： r rlang quosure

【解决方案1】：

如果你用ensym捕获符号，你可以在df的上下文中eval它们：

scatter_fun<-function(data,xval,yval,xlabel,ylabel, labels){
  xval <- ensym(xval)
  yval <- ensym(yval)
  
  ggplot(data, aes(!!xval, !!yval))+
    geom_smooth(method=lm, se=FALSE)+
    geom_point()+
    theme(axis.line.x.bottom = element_line("black"),
          axis.line.y.left = element_line("black"),
          axis.text.x = element_blank(),
          legend.title = element_blank())+ylab(ylabel)+
    xlab(xlabel)+
    scale_y_continuous(labels = scales::comma)+
    expand_limits(y = 0)+
    geom_smooth(method="lm", se=FALSE, colour="red")+
    annotate("text",
             x=max(eval(xval, data))/2,
             y =0,
             label = labels)
}

df <- data.frame(x = rnorm(100), y = rnorm(100))

scatter_fun(df, x, y, "x", "y", "my labels")

【讨论】：