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

​

​