如何修复 R 函数中的“Quosures 只能在 quasiquotation 上下文中不被引用”错误

Question

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

我已经阅读了vignette，但没有看到一个很好的例子来说明我正在尝试做的事情。

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("Quosures 只能在一个 准引用上下文。", "", "# Bad:", "list(!!myquosure)", "", " # Good:", " dplyr::mutate(data, !!myquosure)"))

Answer 1

我们可以修改函数，将filter中的quosures（enquo）转换为字符串

library(rlang)
library(dplyr)
library(ggplot2)
name_graph <- function(data, name, sex){
   name <- enquo(name)
   sex <- enquo(sex)

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

name_graph(babynames, Robert, M)

Answer 2

函数filter_已弃用，您应该尽量避免使用它。 如果变量名与输入相同，dplyr::filter 也不能正常工作。

试试这个：

name_graph <- function(data, myname, mysex){

data %>%
  filter(name == myname, sex == mysex) %>%
  select(year, prop) %>%
  ggplot()+
  geom_line(mapping = aes(year, prop))
}

此外，如 cmets 中所述，如果您尝试将列名作为输入参数传递，则会使用 quosures。在您的情况下，您将字符串作为输入传递，因此您不需要 quosures，最好不要在您的情况下使用它们。