如何将base R heatmap()生成的热图转为可复用对象用于PPT？

核心思路 #

base R的heatmap()属于基础绘图系统，不会返回可直接复用的绘图对象（仅返回索引列表），但可以通过以下几种方法将其转为可被officer识别的对象，无需先保存为图片再导入。

方法1：使用gridGraphics包转为grob对象（推荐） #

gridGraphics可以将基础绘图的内容转换为grid系统的grob对象，而officer支持直接将grob对象插入PPT，完美适配你现有的批量处理流程。

代码示例：

# 安装并加载所需包
install.packages("gridGraphics")
library(gridGraphics)
library(officer)

# 定义函数：将heatmap转为grob对象
heatmap_to_grob <- function(data, ...) {
  # 用grid.echo捕获基础绘图的绘制过程
  grid.echo({
    heatmap(data, ...) # 这里可以传入heatmap的参数，比如scale="row"等
  })
  # 抓取生成的grob对象
  grid.grab()
}

# 生成示例数据并批量创建热图grob列表
set.seed(123)
data_list <- list(matrix(rnorm(100), 10), matrix(rnorm(81), 9))
heatmap_grobs <- lapply(data_list, heatmap_to_grob)

# 批量插入到PPT
ppt <- read_pptx()
for (grob in heatmap_grobs) {
  ppt <- add_slide(ppt, layout = "Title and Content", master = "Office Theme")
  ppt <- ph_with(ppt, value = grob, location = ph_location_type(type = "body"))
}
# 保存PPT
print(ppt, target = "batch_heatmaps.pptx")

方法2：用recordPlot()捕获绘图对象 #

运行heatmap()后，立刻用recordPlot()捕获当前绘图设备的内容，得到一个recordedplot对象，后续可以用replayPlot()重现，也能传入officer使用。

代码示例：

library(officer)

set.seed(123)
data <- matrix(rnorm(100), 10)

# 生成热图并捕获
heatmap(data)
heatmap_plot <- recordPlot()

# 批量处理示例
plot_list <- list(heatmap_plot)
# 再生成一个捕获的热图
heatmap(data*2)
plot_list[[2]] <- recordPlot()

# 插入PPT
ppt <- read_pptx()
for (p in plot_list) {
  ppt <- add_slide(ppt, layout = "Title and Content", master = "Office Theme")
  ppt <- ph_with(ppt, value = p, location = ph_location_type(type = "body"))
}
print(ppt, target = "recorded_heatmaps.pptx")

注意：recordedplot对象依赖生成时的环境，若后续环境变化（比如数据被修改），可能无法正常重现。

方法3：用ggplot2重写热图 #

如果可以接受调整热图样式，直接用ggplot2的geom_tile()实现热图，生成的ggplot对象可以直接复用你现有的批量处理逻辑。

代码示例：

library(ggplot2)
library(reshape2)
library(officer)

set.seed(123)
data <- matrix(rnorm(100), 10)
# 转换为长格式数据
df <- melt(data)

# 生成ggplot热图
heatmap_gg <- ggplot(df, aes(x = Var2, y = Var1, fill = value)) +
  geom_tile(color = "white") +
  scale_fill_gradient2(low = "blue", mid = "white", high = "red") +
  theme_minimal() +
  labs(x = "", y = "")

# 存入列表批量处理
gg_list <- list(heatmap_gg, heatmap_gg + scale_fill_viridis_c())

# 插入PPT（和你现有流程完全一致）
ppt <- read_pptx()
for (gg in gg_list) {
  ppt <- add_slide(ppt, layout = "Title and Content", master = "Office Theme")
  ppt <- ph_with(ppt, value = gg, location = ph_location_type(type = "body"))
}
print(ppt, target = "ggplot_heatmaps.pptx")

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