有没有办法在一个函数中有一个类似的 gtsummary table

Is there a way to have a similar gtsummary table within a function

我正在尝试在函数内创建一个带有 gtsummay 包的 table。我发现 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()

您可以使用 .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)))).