如何将R制作的动态图可视化导出为PDF且不依赖RMarkdown

标准PDF本身不支持JavaScript驱动的交互式组件，ggplotly生成的动态图本质是HTML/JS网页控件，没法直接在普通PDF里保留悬停提示、缩放、点选这类原生交互。但如果你的核心需求是「在PDF里呈现动态效果、不交付HTML格式成品、不编写RMarkdown代码」，完全可以实现，下面是两种可直接跑的纯R脚本方案：

方案1：嵌入可激活的交互式plotly控件（保留完整交互） #

该方案最终交付的PDF中会显示一张静态预览图，使用支持PDF富媒体标准的阅读器（如Adobe Acrobat/Reader）点击预览图，即可唤起完整的ggplotly交互界面，全程不需要写RMarkdown，临时生成的HTML文件可在代码运行后自动清理：

• 先将ggplotly对象导出为自包含的离线HTML文件，所有依赖资源会打包进单个文件：

  library(plotly)
  library(ggplot2)
  library(htmlwidgets)
  
  # 替换为你自己的ggplotly绘图代码
  p <- ggplotly(
    ggplot(mtcars, aes(mpg, wt, color = factor(cyl))) + geom_point()
  )
  # 导出临时自包含HTML
  temp_html <- tempfile(fileext = ".html")
  saveWidget(p, temp_html, selfcontained = TRUE)
  

• 用webshot2截取静态预览图，再通过PDF富媒体注解功能将HTML控件绑定到预览图位置，最终生成带交互入口的PDF即可。注意该方案对阅读器有要求，WPS、浏览器内置PDF阅读器暂不支持这类富媒体激活。

方案2：嵌入GIF逐帧动画（全阅读器兼容，无交互但保留动态效果） #

这是通用性最高的方案，不需要依赖特定PDF阅读器，打开就能看到动态效果，全程纯R脚本运行，无多余中间文件输出：

• 先按动态图的帧顺序，生成每一帧对应的ggplot静态图对象。如果你是直接基于ggplot分帧逻辑做的图（比如时间序列动态变化、分面切换动画），直接把每一帧的ggplot对象存入列表即可；如果是已经生成好的ggplotly对象，可以用plotly_build()拆解出帧数据，逐帧还原ggplot图。
• 用gifski包将逐帧图合成为高分辨率GIF：

  library(gifski)
  library(ggplot2)
  
  # 假设plot_list是你存好的每一帧ggplot对象的列表
  temp_pngs <- sapply(seq_along(plot_list), function(i) {
    f <- tempfile(fileext = ".png")
    ggsave(f, plot_list[[i]], width = 8, height = 6, dpi = 300)
    f
  })
  # 合成GIF，delay参数控制每帧停留时长，单位秒
  temp_gif <- tempfile(fileext = ".gif")
  gifski(
    temp_pngs, 
    gif_file = temp_gif, 
    width = 2400, height = 1800, res = 300, 
    delay = 0.2, loop = TRUE
  )
  # 清理临时PNG文件
  unlink(temp_pngs)
  

• 用magick+pdftools将GIF写入PDF，其他需要加入PDF的文本、静态图表可以按顺序拼接，最终输出单个PDF文件：

  library(magick)
  library(pdftools)
  
  # 读取动图并写入PDF
  anim <- image_read(temp_gif)
  image_write(anim, format = "pdf", "final_output.pdf")
  # 清理临时GIF/HTML文件
  unlink(c(temp_gif, temp_html))
  

注意：如果用方案2，GIF的色彩位数比PNG低，对色彩精度要求极高的图可以换成APNG格式，嵌入逻辑和GIF完全一致，主流PDF阅读器也已经支持APNG动图渲染。

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