gtsummary最新版本中Overall列位置异常问题求助

问题说明 #

升级gtsummary到最新版本后，使用add_overall(last=FALSE)无法将Overall列调整到分组列前方（旧版本该参数可正常生效），二分变量显示问题已通过value参数解决，但列位置异常问题未解决。

解决方案 #

gtsummary新版本中，add_overall()的last参数逻辑发生变化，建议直接使用modify_column_order()手动指定列的显示顺序，确保Overall列处于预期位置。

修改后的可运行代码 #

groupe_etude <- c(rep("Tem",13),rep("TTA-",7),rep("TTA+",18))
tympan_g_inc <- rep(1,38)
tympan_d_inc <- rep(1,38)
cou_inc <- c(rep(1,3),rep(0,34),1)
pavillon_inc <- c(rep(1,3),rep(0,34),1)
luette_inc <- c(rep(1,37),2)
dysmorph_inc <- rep(0,38)

example_df <- data.frame(groupe_etude,tympan_g_inc,tympan_d_inc,cou_inc,pavillon_inc,luette_inc,dysmorph_inc,row.names=NULL)

example_df %>% 
  mutate(luette_inc = as.factor(luette_inc)) %>% 
  tbl_summary(by = groupe_etude,
              include = c(tympan_g_inc:dysmorph_inc),
              digits = everything()~c(0,0),
              value = list(c(tympan_g_inc,tympan_d_inc) ~ "1",
                           dysmorph_inc~"0"),
              percent = "column") %>%
  add_overall() %>% # 添加Overall列
  modify_column_order(c("Overall", "Tem", "TTA-", "TTA+")) # 手动指定列顺序，将Overall放在最前

补充说明 #

• modify_column_order()支持直接通过列的显示标签（如"Overall"、分组名称）指定顺序，直观且不易出错
• 若需调整其他列的位置，只需修改向量中的标签顺序即可

内容的提问来源于stack exchange，提问作者RiiDS_94