如何在R的animation包saveVideo函数中使用PDF图像生成视频？

问题现象 #

• 用saveVideo生成的MP4视频色彩暗淡，对比单帧的PNG与PDF文件，发现PDF色彩更鲜艳
• 尝试通过PDF作为中间格式生成视频时，触发ffmpeg错误：Rplot.pdf: Invalid data found when processing input，无法生成目标MP4

环境 #

Windows 10 Enterprise

错误代码示例 #

手动调用pdf()的失败代码：

library(animation)
saveVideo({
  pdf(ani.options("img.fmt"))
  darkcol = "#000000"
  par(bg = darkcol)
  ani.options(interval = 0.5)
  for (i in 1:10)
  {
    plot(0:10, runif(11, 4, 8), col = "magenta1")
    ani.pause()
  }
}, video.name = "TestVideoPDF.mp4",
ani.res = 144, ani.height = 9, ani.width = 16,
use.dev = FALSE, ani.type = "pdf")

ffmpeg报错输出：

Executing: "ffmpeg" -y -framerate 2 -i Rplot.pdf -pix_fmt yuv420p TestVideoPDF.mp4
ffmpeg version 2023-04-06-git-b564ad8eac-full_build-www.gyan.dev Copyright (c) 2000-2023 the FFmpeg developers
...
Rplot.pdf: Invalid data found when processing input

问题原因 #

1. 手动调用pdf()导致格式错误：animation的saveVideo在指定ani.type="pdf"时，会自动生成每帧一页的多页PDF，手动调用pdf()会干扰这个流程，生成的PDF不符合ffmpeg的处理要求
2. ffmpeg的PDF解码依赖缺失：Windows环境下，ffmpeg处理PDF需要依赖Poppler库，部分ffmpeg版本默认未集成该组件

解决方案 #

方案1：让animation自动管理PDF设备 #

不要手动调用pdf()，正确配置参数让animation自动生成多页PDF：

library(animation)
# 预先设置PDF相关的动画选项
ani.options(
  img.fmt = "pdf",
  interval = 0.5,
  ani.width = 16,
  ani.height = 9,
  ani.res = 144
)

saveVideo({
  darkcol = "#000000"
  par(bg = darkcol)
  for (i in 1:10) {
    plot(0:10, runif(11, 4, 8), col = "magenta1")
    ani.pause()
  }
}, 
video.name = "TestVideoPDF.mp4",
use.dev = TRUE,  # 由animation自动管理绘图设备
ani.type = "pdf"
)

方案2：确保ffmpeg支持PDF解码 #

• 下载集成Poppler的ffmpeg完整构建包（如gyan.dev提供的full_build版本）
• 若已有ffmpeg，单独安装Poppler并将其bin目录添加到系统PATH中，确保ffmpeg能调用PDF处理工具

方案3：高分辨率PNG替代方案 #

如果PDF转视频仍有问题，可使用高分辨率PNG作为中间格式，同样能提升色彩表现：

library(animation)
saveVideo({
  darkcol = "#000000"
  par(bg = darkcol)
  ani.options(interval = 0.5)
  for (i in 1:10) {
    plot(0:10, runif(11, 4, 8), col = "magenta1")
    ani.pause()
  }
}, 
video.name = "TestVideoHighRes.mp4",
ani.res = 300,  # 提升分辨率
ani.height = 900, 
ani.width = 1600,
img.fmt = "png"
)

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