在R/Rstudio中如何将完整dataframe导出为PDF文件

问题原因 #

grid.table默认适配当前PDF设备的单页尺寸，当表格行数超过页面可容纳上限时，仅会渲染末尾可见部分。控制台输出的null device 1是dev.off()执行成功的正常提示，无需特殊处理。

可选方案 #

方案1：调整单页PDF尺寸（最简方案，无额外依赖） #

直接通过pdf函数的height参数拉高页面高度，确保100行内容可完全容纳在单页中，仅需依赖R默认预装的grid、grDevices包，适配所有base R/RStudio环境：

# height可根据实际显示效果微调，2列100行设置为20-25英寸即可避免截断
pdf(file = "output.pdf", height = 22, width = 8)
grid::grid.table(chla.output)
dev.off()

方案2：多页分页输出（适配标准PDF尺寸） #

适合需要输出常规A4尺寸PDF的场景，仅需依赖gridExtra包，RStudio默认环境已预装，纯base R环境仅需执行一次install.packages("gridExtra")即可使用：

library(gridExtra)
library(grid)

# 自定义每页容纳的行数，可根据排版需求调整
rows_per_page <- 30
total_rows <- nrow(chla.output)
page_total <- ceiling(total_rows / rows_per_page)

pdf(file = "output.pdf", width = 8, height = 11)
for (i in seq_len(page_total)) {
  start_idx <- (i - 1) * rows_per_page + 1
  end_idx <- min(i * rows_per_page, total_rows)
  # 生成当前页子表
  page_df <- chla.output[start_idx:end_idx, ]
  # rows参数用于保留原表行号，不需要可删除
  grid.table(page_df, rows = seq(start_idx, end_idx))
  # 非最后一页自动新建页面
  if (i < page_total) grid.newpage()
}
dev.off()

方案3：纯base R实现（兼容性最强） #

完全不需要额外安装第三方包，用base R内置函数实现表格渲染，适配所有R环境：

pdf(file = "output.pdf", width = 8, height = 11)
# 自定义每页行数
rows_per_page <- 35
total_rows <- nrow(chla.output)
page_total <- ceiling(total_rows / rows_per_page)

for (p in seq_len(page_total)) {
  # 初始化空白页面
  plot.new()
  par(mar = c(1,1,1,1))
  # 渲染表头
  text(0.1, 0.95, names(chla.output)[1], pos = 4, font = 2)
  text(0.5, 0.95, names(chla.output)[2], pos = 4, font = 2)
  # 渲染表头分隔线
  lines(c(0.08, 0.9), c(0.93, 0.93))
  # 提取当前页数据
  start_idx <- (p-1)*rows_per_page + 1
  end_idx <- min(p*rows_per_page, total_rows)
  current_df <- chla.output[start_idx:end_idx, ]
  # 逐行渲染内容
  for (r in seq_len(nrow(current_df))) {
    y_pos <- 0.9 - 0.022*r
    text(0.1, y_pos, as.character(current_df[r,1]), pos = 4)
    text(0.5, y_pos, as.character(current_df[r,2]), pos = 4)
  }
}
dev.off()

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