R 中的 dplyr 的非标准评估 (NSE)

Question

我正在尝试编写 function 来创建汇总表。 我有兴趣总结的变量可能会改变，因此，我想将它放在 function 中。 我按照关于 NSE 的dpylr 小插图中的示例进行操作，但由于某种原因它对我不起作用。 这是 function：

print(agegroup) # this is a string
table_summary <- function (data, group_by1){

  quo_group_by1 = quo(group_by1)
  print(quo_group_by1)

  data %>%
  dplyr::group_by(!! quo_group_by1) %>%
  dplyr::summarise(N = n()) %>%
  dplyr::mutate(pct = paste0((round(N/sum(N)*100, 2))," %"))

}

table_summary(clientData, agegroup)

我收到以下错误：

[1] "ag5"
<quosure>
expr: ^group_by1
env:  0x7faaec29e030
Error: Column `group_by1` is unknown

我怎样才能解决这个问题？

Answer 1

您应该使用 curly-curly ( {{}} ) 来避免quo & !! . 您也可以使用count ，它是group_by + summarise的快捷方式。

table_summary <- function (data, group_by1){

   data %>%
    dplyr::count({{group_by1}}) %>%
    dplyr::mutate(pct = paste0((round(N/sum(N)*100, 2))," %"))
}

table_summary(clientData, agegroup)

---

似乎agegroup是一个字符串。 要继续使用 OP 的方法，我们需要将其转换为符号 ( sym ) 并对其进行评估 ( !! )

table_summary <- function (data, group_by1){

  data %>%
    dplyr::group_by(!!sym(group_by1)) %>%
    dplyr::summarise(N = n()) %>%
    dplyr::mutate(pct = paste0((round(N/sum(N)*100, 2))," %"))

}