小编H54*_*470的帖子

我正在尝试使用编写我的第一个函数rlang，但在修复以下错误时遇到了一些麻烦。

我已经阅读了小插图，但没有看到我要尝试做的一个很好的例子。

library(babynames)
library(tidyverse)

name_graph <- function(data, name, sex){
name <- enquo(name)
sex <- enquo(sex)

data %>%
  filter_(name == !!name, sex == !!sex) %>%
  select(year, prop) %>%
  ggplot()+
  geom_line(mapping = aes(year, prop))
}

name_graph(babynames, Robert, M)

我期待我的分布图，但出现错误：

从以下位置调用：abort（paste_line（“只能在准引用上下文中取消引用。”，“”，“＃错误：”，“ list（!! myquosure）”，“”，“＃好：”，“ dplyr： ：mutate（data，!! myquosure）“））