使用tidyr循环生成单列与其他列交叉表报列未找到错误如何解决

janitor::tabyl属于tidyverse生态函数，遵循非标准评估规则：你在循环中直接传入字符串变量c时，函数会将c本身当作列名去iris数据集里检索，而非读取c变量存储的实际列名字符串，因此触发找不到c列的错误。

将字符串变量转换为符号后注入表达式即可，用!!sym(c)替代tabyl参数位的c即可正常运行，修改后完整代码如下：

cols <- c('Sepal.Length', 'Sepal.Width')
for (c in cols){
  tbl <- iris %>% 
    tabyl(Species, !!sym(c), show_missing_levels = FALSE, show_na = FALSE) %>%
    adorn_percentages("row") %>%
    adorn_pct_formatting(digits = 0) %>%
    adorn_ns() %>%
    adorn_title("combined") %>%
    knitr::kable()
  print(tbl)
}

如果你使用的是2022年及以后发布的tidyverse生态版本，也可以用更简洁的双大括号语法，将!!sym(c)替换为{{c}}，效果完全一致。

内容的提问来源于stack exchange，提问作者Paul