更改 gtsummary::tbl_merge 中的空单元格

Question

我合并了两个不同行的表格，导致单元格为空。我想用明确的“缺失”或“---”替换空单元格（这也可能是在tbl_merge 中实现的未来功能）。我尝试使用超级明星功能modify_table_styling，但找不到行。我试过everything() 和is.na(estimate)。另外，请注意，我实际上在 tbl_merge 上有一个 tbl_merge，所以我的 my_df$table_body 在其中查找行标识符更加复杂。

感谢您的帮助！

library(gtsummary)
library(dplyr)

tbl_dense <-
  trial %>%
  tbl_summary(by = trt)

tbl_sparse <-
  trial %>%
  select(trt, response) %>%
  tbl_summary(by = trt)

tbl_merge(list(tbl_dense, tbl_sparse)) %>% 
  as_kable()

Characteristic	Drug A, N = 98	Drug B, N = 102	Drug A, N = 98	Drug B, N = 102
Age	46 (37, 59)	48 (39, 56)
Unknown	7	4
Marker Level (ng/mL)	0.84 (0.24, 1.57)	0.52 (0.19, 1.20)
Unknown	6	4
T Stage
T1	28 (29%)	25 (25%)
T2	25 (26%)	29 (28%)
T3	22 (22%)	21 (21%)
T4	23 (23%)	27 (26%)
Grade
I	35 (36%)	33 (32%)
II	32 (33%)	36 (35%)
III	31 (32%)	33 (32%)
Tumor Response	28 (29%)	33 (34%)	28 (29%)	33 (34%)
Unknown	3	4	3	4
Patient Died	52 (53%)	60 (59%)
Months to Death/Censor	23.5 (17.4, 24.0)	21.2 (14.6, 24.0)

  
# Likely with this do-it-all function
# modify_table_styling(
#   column = estimate,
#   rows = is.na(estimate), # Not sure how to select rows
#   missing_symbol = "MISSING"
# )

^{由reprex package (v2.0.0) 于 2021 年 7 月 30 日创建}

Answer 1

你是对的，modify_table_styling() 函数是要走的路。下面的例子！

library(gtsummary)
packageVersion("gtsummary")

tbl_dense <-
  trial %>%
  tbl_summary(by = trt)

tbl_sparse <-
  trial %>%
  select(trt, response) %>%
  tbl_summary(by = trt)

tbl <-
  tbl_merge(list(tbl_dense, tbl_sparse)) %>%
  modify_table_styling(
    columns = everything(),
    rows = !is.na(variable),
    missing_symbol = "MISSING"
  )