gtsummary table: replace empty cell information with -

user_13942530 0
Viewed 193

I'm using the package gtsummary to create a table and I would like to replace the value in empty cells with "-" instead of "0 (0%)".

Is this possible?

an example of the table I am getting can be seen here:

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)

Kind regards Mathias

gtsummary r
1 Answers

We can manually manipulate the result, although I think this may be less ideal. I renamed data to df to avoid conflicts with the data function.

 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

enter image description here

user_103237980
Related