在R中将多数据框列表导出为多页PDF的问题求助

问题出在直接将整个列表传入grid.table()，它会把所有表格压缩到同一页。要实现每个DataFrame单独占一页，需要遍历列表逐个绘制表格，确保每个表格生成在新页面上。

修改后的PDF生成代码 #

pdf(file= "troubleshoot.pdf", width = 10, height = 6, onefile = TRUE )
# 遍历列表中的每个DataFrame，逐个绘制表格
for (i in seq_along(output)) {
  # 绘制当前表格，可通过gp参数调整字体大小适配页面
  grid.table(output[[i]], gp = gpar(fontsize = 10))
  # 非最后一个表格时，创建新页面
  if (i < length(output)) {
    grid.newpage()
  }
}
dev.off()

关键说明 #

1. 遍历列表：通过seq_along(output)获取每个元素的索引，逐个处理列表中的DataFrame，避免批量绘制导致的堆叠问题。
2. 分页控制：用grid.newpage()在每个表格（除最后一个）后创建新页面，保证每个表格单独占据一页。
3. 页面适配：添加gp = gpar(fontsize = 10)调整表格字体大小，避免内容超出页面边界，可根据实际表格的行数、列数灵活调整字号。

完整可运行代码 #

结合你的数据集和预处理流程，完整可执行代码如下：

library(tidyverse)
library(openxlsx)
library(grid)
library(gridextra)

# 加载数据集
people <- structure(list(`Person ID` = c(256, 257, 258, 259, 260, 261, 
262, 266, 267, 268), Gender = c("Female", "Female", "Male", "Undisclosed", 
"Male", "Male", "Male", "Male", "Male", "Male"), Race = c("Asian", 
"White", "White", "Black or African American", "Undisclosed", 
"Black or African American", "Undisclosed", "Undisclosed", "Undisclosed", 
"Undisclosed")), row.names = c(NA, -10L), class = c("tbl_df", 
"tbl", "data.frame"))

# 生成结果列表
output <- list() 

output[["uniquepeople"]] <- people %>% 
  select(`Person ID`) %>%
  summarize(`Number Of People`=n())

output[["gender"]] <- people %>% 
  select(`Gender`) %>%
  table() %>%
  as.data.frame() %>%
  rename(`Count of People`=`Freq`)
 
output[["race"]] <- people %>% 
  select(`Race`) %>%
  table() %>%
  as.data.frame() %>%
  rename(`Count of People`=`Freq`)

# 输出Excel（保留原有逻辑）
write.xlsx(output,"troubleshoot.xlsx", colWidths= "auto") 

# 生成PDF（修改后的分页逻辑）
pdf(file= "troubleshoot.pdf", width = 10, height = 6, onefile = TRUE )
for (i in seq_along(output)) {
  grid.table(output[[i]], gp = gpar(fontsize = 10))
  if (i < length(output)) {
    grid.newpage()
  }
}
dev.off()

内容的提问来源于stack exchange，提问作者Mary Rachel