В отношении этого ответа [доверительные интервалы] (https://stackoverflow.com/a/66891473/13734451), как можно переставить столбцы в gtsummary или flextable? Есть способ сделать это с помощью пакет gt (как показано ниже), но он не будет соединяться с Ms Word. Есть зацепки?
final_tbl %>% as_gt() %>%
cols_move(
columns = vars(Male_ci),
after = vars(stat_1)
)
Вот пример перемещения столбца объекта gtsummary. Этот сценарий перемещает столбец p.value
после столбца label
.
library(gtsummary)
packageVersion("gtsummary")
# build table
tbl <-
trial %>%
select(age, trt) %>%
tbl_summary(by = trt, missing = "no") %>%
add_p()
# syntax requires dev version of gtsummary
tbl %>%
modify_table_body(~.x %>% dplyr::relocate(p.value, .after = label))
# syntax does NOT requires dev version of gtsummary
tbl %>%
modify_table_body(dplyr::relocate, p.value, .after = label)
Большое спасибо @Daniel. Это отлично решило мою проблему