一份期刊要求我在一个单独的补充表中提供一个大表1中有多少数据是完整的，有多少数据缺失。
理想情况下：
| 变量 | 第1组(n=128(第2组(n=100( | |
|---|---|---|
| 年龄 | 128(100%( | 100(100%(|
| 性别 | 64(50%( | 75(75%( |
您可以首先用一个指示值是否丢失(即NA(的逻辑来替换每一列，然后将该表传递给tbl_summary()，以便将丢失率制成表格。
library(gtsummary)
library(tidyverse)
packageVersion("gtsummary")
#> [1] '1.5.2'
# first make an indicator if a value is missing
trial %>%
mutate(across(.cols = -trt, .fns = is.na)) %>%
# then createa summary table tabulating missing data rates
tbl_summary(by = trt) %>%
modify_caption("Missing Data Counts") %>%
as_kable()
| 特征 | /strong>药物A，N=98药物B、N=102 | |
|---|---|---|
| 年龄 | 7(7.1%( | 4(3.9%( |
| 标记 | 6(6.1%( | 4(3.9%( |
| 阶段 | 0(0%( | 0 |
| 等级 | 0(0%( | 零(0%( |
| 响应 | 3(3.1%( | 4(3.9%( |
| 死亡 | 0(0%( | 0 |
| ttdeath | 0(0%( | 零(0%( |