2

我正在尝试创建一个可行的患者特征表（表 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

谢谢

4

1 回答 1

4

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

快乐编码！

于 2020-04-13T15:00:05.550 回答