gtsummary::tbl_summary与唯一变量值

Question

我试图使用gtsummary::tbl_summary创建一个表，允许我在变量中使用不同的值。我有一个dataframe，其中每一行代表一个病人访问，这意味着一个ID可以出现不止一次。与其在表中列出每个ID计数，不如对唯一ID的总和进行计数。尝试继续使用gt汇总，因为它提供了格式良好的值。

library(gtsummary)

df <- data.frame(id   = c("a", "b", "c", "a", "a", "c", "b"))
tbl_summary(df)

电流输出

期望输出

Answer 1

根据所需的值，我们可以从'id‘获得n_distinct值

library(gtsummary)
library(dplyr)
library(tidyr)
df %>% 
  summarise(Number_of_Patients = n_distinct(id)) %>%
  uncount(Number_of_Patients, .remove = FALSE) %>%
  tbl_summary()

-output

​

​