gtsummary：输出到 word_document 时如何包装单元格输出

Question

SO 的友好人士。

问：在将flextable 对象打印到 Word（通过 .Rmd，输出 = word_document）时，是否有某种方法可以指定文本包含在单元格中？

上下文：我经常使用神奇的gtsummary 包，并且 output = html_document 的默认格式是完美的。有时，我有一个单元格值，它采用一些荒谬的单位*，并且具有值，例如 1,000,000,000。当我创建一个tbl_summary 对象时，中间值、Q1 和 Q1 之间存在 html 输出的换行，并且由于单元格内的这种换行，表格看起来很合理。但是，如果我打印到 Word，则没有这样的换行，并且 1,000,000,000（500,000,000，2,000,000,000）打印在单元格的一行上，使表格的最大值比 Word 页面的宽度宽得多。这在 Word 中很容易修复，例如 Autofit Content，但是：有没有办法确保 R 中的文本换行，以便表格在不修改的情况下看起来不错？

我的 gtsummary 对象正在使用 flextable 打印。

library(flextable)
library(gtsummary)

large_measurement <- rnorm(nrow(trial), mean = 1*10^12, sd = 1)
trial %>%
  mutate(some_measurement = large_measurement) %>%
  tbl_summary(by = trt) %>%
  add_p(pvalue_fun = ~style_pvalue(.x, digits = 2)) %>%
  add_overall() 

谢谢！

• 与此相关——有gtsummary 解决方案吗？例如style_scinot?

Answer 1

嗯，灵活的 pkg 允许我们使用"\n" 在单元格中放置换行符。将中位数和 IQR 放在不同的行上对您有用吗？

library(gtsummary)
#> #BlackLivesMatter
packageVersion("gtsummary")
#> [1] '1.5.0'

large_measurement <- rnorm(nrow(trial), mean = 1*10^2, sd = 1)
tbl <-
  trial %>%
  mutate(some_measurement = large_measurement, .before = 1) %>%
  select(1:4) %>%
  tbl_summary(
    by = trt,
    missing = "no",
    # use "\n" to place a line break in statistic 
    statistic = some_measurement ~ "{median}\n({p25}, {p75})"
  ) %>%
  add_p(pvalue_fun = ~style_pvalue(.x, digits = 2)) %>%
  add_overall() %>%
  # you'll need to fix the automatic footnote to remove the line break
  modify_footnote(all_stat_cols() ~ "Median (IQR)") %>%
  as_flex_table()

^{由reprex package (v2.0.1) 于 2021 年 11 月 19 日创建}