gtsummary：在 Markdown PDF 输出中适合宽表答案

【问题标题】：gtsummary: Fit wide table in Markdown PDF outputgtsummary：在 Markdown PDF 输出中适合宽表
【发布时间】：2020-07-26 03:20:27
【问题描述】：

我正在尝试创建一个可行的患者特征表（表 1），但由于我的“by”变量有 10 个类别，它会溢出 PDF 页面。

我已尝试截断类别名称，并将页面布局更改为横向，但仍有 1 个类别不在页面内。

您能告诉我如何解决这个问题吗？

有没有一种方法可以打印默认出现在列标题上的 N 和 N(%) 显示在列名下方而不是在同一行上，从而减少宽度？例如你的例子是什么：

药物 A，N = 98 (49%)1 药物 B，N = 102 (51%)1

成为：

药物 A _ _ _ _ _ _ _ _ _药物 B

N = 98 (49%)1 _ _ _ _ _ N = 102 (51%)1

谢谢

【问题讨论】：

标签： r pdf r-markdown gtsummary

【解决方案1】：

首先，让我们解决列宽的问题。我们目前正在准备下周发布到 CRAN 的新版本 gtsummary。在新版本中，有一个名为as_kable_extra() 的函数可以将 gtsummary 对象转换为 kable 并使用 kableExtra 添加其他格式。您可以使用此函数将您的 gtummary 对象转换为与 kableExtra 一起使用，然后减小字体大小以使表格适合。使用 remotes::install_github("ddsjoberg/gtsummary") 从 GitHub 安装 gtsummary 的开发版

这是一个代码示例：

library(gtsummary)

# build a tbl_summary object
trial %>%
  select(trt, age, grade, response) %>%
  tbl_summary(by = trt, missing = "no") %>%
  # style the output with custom header
  modify_header(stat_by = "{level}") %>%
  # convert to kableExtra
  as_kable_extra(booktabs = TRUE) %>%
  # reduce font size to make table fit. 
  # you may also use the `latex_options = "scale_down"` argument here.
  kableExtra::kable_styling(font_size = 7)

使用 as_flextable() 函数可以获得类似的结果，然后使用 flextable 包中提供的格式化函数。

关于标题中的换行符......目前这是不可能的。但是，在as_kable_extra() 函数（http://haozhu233.github.io/kableExtra/best_practice_for_newline_in_latex_table.pdf）中实现它看起来很简单。如果有时间，我会在下周发布之前添加此功能。

编码愉快！

【讨论】：