如何用Base R在PDF每页放置一幅绘图与一张对应表格？

Base R的par()/layout()仅支持graphics系统的绘图元素，若你的表格依赖grid系统（如grid.table()），两者因系统不兼容会导致表格被忽略。以下是两种可行的实现方案：

方法1：用Base R原生函数手动绘制表格（无需额外依赖） #

适用于结构简单的表格，直接在绘图设备内通过text()输出表格内容，与plot共用布局。

示例代码框架：

# 初始化PDF设备，合并所有页面到单个文件
pdf("patient_plots_tables.pdf", onefile = TRUE, width = 8, height = 10)

for (i in 1:50) {
  # 生成当前患者的绘图数据与表格数据
  plot_data <- rnorm(100)
  table_data <- table(sample(c("A", "B", "C"), 100, replace = TRUE))
  
  # 布局设置：上下两个区域，上方占70%页面高度，下方占30%
  layout(matrix(c(1,2), nrow = 2), heights = c(0.7, 0.3))
  
  # 绘制Base R图形
  plot(plot_data, main = paste("Patient", i))
  
  # 绘制表格：先创建空白绘图区域，再用text输出格式化内容
  plot.new()
  plot.window(xlim = c(0, 1), ylim = c(0, 1))
  
  # 整理表格文本，包含标题与统计项
  tab_content <- c(
    paste("Patient", i, "Summary"),
    "",
    paste(names(table_data), ":", table_data)
  )
  # 居中对齐输出文本
  text(x = 0.5, y = seq(0.9, 0.1, length.out = length(tab_content)),
       labels = tab_content, cex = 1.1)
}

# 关闭PDF设备
dev.off()

方法2：用gridBase包跨系统合并绘图与表格 #

针对复杂格式的表格（需边框、多列对齐等），可通过gridBase包桥接Base R的graphics系统与grid系统的表格绘制功能。

先安装并依赖必要包：

install.packages(c("grid", "gridBase"))
library(grid)
library(gridBase)

示例代码框架：

pdf("patient_plots_tables.pdf", onefile = TRUE, width = 8, height = 10)

for (i in 1:50) {
  # 生成绘图数据与结构化表格数据
  plot_data <- rnorm(100)
  table_df <- data.frame(
    Category = c("A", "B", "C"),
    Count = as.vector(table(sample(c("A", "B", "C"), 100, replace = TRUE)))
  )
  
  # 设置页面布局
  layout(matrix(c(1,2), nrow = 2), heights = c(0.7, 0.3))
  
  # 绘制Base R图形
  plot(plot_data, main = paste("Patient", i))
  
  # 切换到grid系统绘制表格，关联当前graphics布局区域
  grid.newpage()
  vps <- baseViewports()
  pushViewport(vps$figure, vps$plot)
  
  # 绘制带格式的表格
  grid.table(table_df, theme = ttheme_default(base_size = 10))
  popViewport(2)
}

dev.off()

核心说明 #

• 方法1无额外包依赖，适合快速实现简单表格的合并；
• 方法2支持复杂表格样式，解决了graphics与grid系统的兼容性问题；
• 两种方案均在循环内完成单页的plot+table组合，最终输出的PDF每页对应一位患者的内容。

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