有没有办法在函数中拥有类似的 gtsummary 表

Question

我正在尝试在函数内创建一个带有 gtsummay 包的表。我发现 N 的值不正确。我不确定是否遗漏了什么。我只想在过滤后获得 N 的值。出于演示目的，我在等级变量中引入了缺失值。

library(gtsummary)
library(dplyr)
trialmiss <- trial %>% mutate(grade = factor(ifelse(age<10, NA, as.character(grade))))

# My function
mytable <- function(variable){
  trialmiss %>%
    select(variable) %>%
    filter(!is.na(variable)) %>%
    tbl_summary()
}

mytable("grade")

# Desired Output

trialmiss %>%
  filter(!is.na(grade)) %>%
  select(grade) %>% tbl_summary()

Answer 1

您可以使用.data 代词。

mytable <- function(variable){
  trialmiss %>%
    select(variable) %>%
    filter(!is.na(.data[[variable]])) %>%
    tbl_summary()
}

mytable("grade")

您也可以使用 include sym (filter(!is.na(!!sym(variable)))) 或 get 用于相同的 (filter(!is.na(get(variable))))。