提取列表中的数据框并以 pdf 格式打印

Question

我有一个n 数据框列表。我们将列表称为Y。 它看起来像这样：

$Profession1
Searchterm         Product            Quantity
internist          Der Internist      3
pneumo news        Pneumo News        1
der urologe        Der Urologe        5    


$Profession2
Searchterm         Product            Quantity
der nervenarzt     Der Internist      7
der kardiologe     Der Kardiologe     2
.piefel            Strahlentherapie   6
therapiedes zenker Pathophysiologie   1

.
.
.
.
.
.

$Profession(n)
Searchterm         Product            Quantity
tuberkolose        Tuberkolose        2
und notfallmedizin Notfall            3
rechtsmedizin      Rechtsmedizin      9

现在，我想在 pdf 文件的新页面上打印每个数据框。每个数据框中的记录或行数不同。我想我应该先循环遍历每个数据帧，然后循环遍历列表中数据帧中的每一行，但我不知道该怎么做。

谢谢。

Answer 1

首先，在 R 中，您不需要遍历给定表中的行。打印一个表格应该打印它的全部内容 - 一些数据框之类的结构（tibble，data.table）将只打印前几行，除非您修改一些要打印的参数，但您当然不需要遍历行.

这是我在 Rmarkdown 中的做法。

确保您在 Markdown 标题中选择了数据框打印选项：

---
title: "My Title"
author: "Me"
date: "`r format(Sys.time(), '%Y-%m-%d')`"
output:
    pdf_document:
        df_print: kable
---

导入这些以备后用

```{r}
library(purrr)
library(knitr)
```

设置您的数据

```{r}
# set up my_tables
```

为列表中的每个数据框制作打印数据框的文本表示

```{r}
out <- purrr::map_chr(
    my_tables,
    function(tt){
        knit_expand(text = "{{tt}}")
        }
    )
```

打印出数据帧的集合

`r paste(knit(out), collapse = "\n")`

---

如果您想在 R 内部工作，您可以多次调用 grid::grid.table 以将表格打印到 pdf：

library(grid)
pdf("my_file.pdf")
for(tt in my_tables){
  grid.table(tt)
  }
dev.off()

Answer 2

这是一个非 RMarkdown 解决方案：

首先，我使用 R` 中的 iris 数据集制作了一个可重复的表示例列表

tables <- list(a =  iris[1:10,], b = iris[11:20,], c = iris[21:30,])

使用grid 和gridExtra 包，您可以将表格创建为图形设备。 lapply 用于为列表中的每个表运行 grid.table()，所有这些都包含在函数 pdf 中，该函数将输出保存到 PDF：

library(gridExtra)
library(grid)

pdf(file = "name_of_file.pdf")
lapply(tables, function(x){
  grid.newpage()
  grid.table(x)})
dev.off()

这会产生一个多页的 PDF 文件：

进一步阅读： 在此处了解如何设置网格图形的样式：https://cran.r-project.org/web/packages/gridExtra/vignettes/tableGrob.html。您可以更改表格的颜色、格式等。