“`kable`”表的“gt文摘”和“`papaja`”集成

Question

我试图在一个gtsummary文档中使用一个papaja::apa6_pdf表来包含一个格式化的(带有标题的) kable表。然而，它并没有像预期的那样呈现。相反，gtsummary kable表在普通rmarkdown::pdf_document中呈现得很好(尽管gtsummary kableExtra表看起来也不太好)。我很想知道如何让gtsummary和papaja很好地合作，产生一个“漂亮”的PDF表格。谢谢!

rmarkdown::pdf_document

标题：“gt汇总+ rmarkdown::pdf_document”

输出: pdf_document

```{r}

图书馆(gtsummary摘要)

试用%>%

tbl_summary(by = trt) %>%

Modify_caption(“这是一个关于审判的表格”) %>%

as_kable()

试用%>%

tbl_summary(by = trt) %>%

Modify_caption(“这是另一张关于审判的表格”) %>%

as_kable_extra()

​

​

papaja::apa6_pdf

标题：“gt汇总+ papaja”

短文标题：“gt汇总+ papaja”

作者：

• 名称：“第一作者”

隶属关系："1“

对应:是#只定义一个对应的作者

地址：“邮政地址”

电子邮件："my@email.com"

隶属关系：

• id："1“

机构："Wilhelm-Wundt-University"

作者注：>

摘要：“我的摘要”

关键词：“关键词”

字数："X“

书目：[]

浮动文本:否

图形主义者:不

表列表:不

足球运动员:不

林荫道:是的

面具:不

草案:否

文档类："apa6“

类选项：“男人”

输出: papaja::apa6_pdf

library(papaja)
library(gtsummary)

trial %>%
  tbl_summary(by = trt) %>%
  modify_caption("This is a table about trials") %>% 
  as_kable()

trial %>%
  tbl_summary(by = trt) %>%
  modify_caption("This is another table about trials") %>% 
  as_kable_extra()

​

​

Answer 1

最常见的解决方案可能是在as_kable()中指定表输出格式。

trial %>%
  tbl_summary(by = trt) %>%
  modify_caption("This is a table about trials") %>%
  as_kable(format = 'pipe')

然后PDF看起来如下所示：

​

这似乎也适用于粗体标签：

trial %>%
  tbl_summary(by = trt) %>%
  modify_caption("This is a table about trials") %>%
  bold_labels() %>%
  as_kable(format = 'pipe')

然后PDF看起来如下所示：

​

P.S.：也可以在全球范围内指定表输出格式。在papaja文档中，可以将以下行添加到安装块中。

options(knitr.table.format = 'pipe')

如果添加，则可以完全省略对as_kable()的调用(但会打印警告消息)。