r - 有没有办法使用 R 导出学术文章中的表格？

Question

我有一个观察数据框，我想将数据框导出为如图格式的 docx 文件。我可以做到这一点，但方式很困难。有没有更方便的方法呢？以下是我知道可能有帮助的软件包:knitr printr bookdown。假设我有一个像这样的数据框 mydata:

Group CRP PCT
pos   1   7
pos   2   8
pos   3   9
neg   4   10
neg   5   11
neg   6   12

我想要这样的输出:

Group   CRP     PCT
pos     2(1~3)  8(7~9)
neg     5(4~6)  11(10~12)
p-value 0.00    0.00

我认为问题是:

1. 鉴于上面的mydata，我如何才能轻松地将其转换为输出？
2. 获得输出后，如何将其导出为与图中格式相同的docx？

Answer 1

您可以使用 dplyr 转换数据，并使用 tableHTML 创建一个类似于您问题中的表格。

library(dplyr)

此函数用于按GROUP汇总CRP和PCT。

fun <- function(x) {
  paste0(x[! x %in% c(min(x), max(x)) ], 
         "(",
         min(x),
         "~",
         max(x),
         ")")
}

在按 Group 分组的 mydata 中的 summarise_all() 中使用该函数，并按 Group 对数据进行排序:

output <- mydata %>% 
  group_by(Group) %>% 
  summarise_all(.funs = fun) %>% 
  arrange(desc(Group))

然后在 output 上使用 tableHTML 创建科学表格:

library(tableHTML)
output %>% 
  tableHTML(rownames = FALSE,
            widths = rep(100, 3), 
            theme = 'scientific')

结果如下所示: