将列名传递给使用 dplyr 函数的编写函数

Question

我有一个我写的函数，它应该过滤一些值，然后生成一个交叉表。它使用 dplyr filter,select 命令过滤值。

我的问题是，当我将列的名称传递给函数时，我得到一个错误，并且当我将名称作为带有“”的字符串传递时，它不会过滤观察结果。 代码如下：

fnDoCrosstab <- function(a) {
  x <- surv_data1 %>% filter(a != "blank") %>% select(a) %>% as.matrix() %>% as.vector()
  y <- surv_data1 %>% filter(a != "blank") %>% select(segment_name) %>% as.matrix() %>% as.vector()
  CrossTable(x,y, format = "SPSS",prop.chisq = F)
}
fnDoCrosstab(b_thisyear)

Answer 1

使用最新版本的 dplyr (0.7)，你可以做这样的事情

library(dplyr)

fnDoCrosstab <- function(a) {
  a <- enquo(a)
  x <- mtcars %>% filter((!!a) != 0) %>% select(mpg, !!a) %>% as.vector()
  x
}
fnDoCrosstab(am)
fnDoCrosstab(vs)

您使用enquo() 捕获未评估的字段名称，然后根据需要使用!! 扩展它