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