gtsummary 表：将空单元格信息替换为 -

Question

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

这可能吗？

我得到的表格的一个例子可以在这里看到：

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