gtsummary table: 将空单元格信息替换为 -

Question

我正在使用包 gtsummary 创建一个 table，我想用“-”而不是“0 (0%)”替换空单元格中的值。

这可能吗？

我得到的 table 示例可以在这里看到：

library(gtsummary)

data <- data.frame(letter = c(rep("a", times = 3), rep("b", times = 3)),
                   value = c(rep(1, times = 3), rep(2, times = 3)))

data %>% tbl_summary(by = value)

亲切的问候马蒂亚斯

Answer 1

我们可以手动操作结果，虽然我认为这可能不太理想。我将 data 重命名为 df 以避免与 data 函数冲突。

 library(dplyr) #probably not necessary since gtsummary uses tibble anyway
    df %>% tbl_summary(by = value) -> res
    
    res[1]$table_body <-res[1]$table_body %>% 
      mutate(across(c(stat_1, stat_2), ~gsub("^0.*", "-",.)))
    res

gtsummary table: 将空单元格信息替换为 -

gtsummary table: replace empty cell information with -

r

gtsummary