R语言绘制动画3D散点图保存为gif输出全黑问题求助

问题原因 #

导出全黑帧是rgl离屏渲染的常见兼容问题，你的代码里多余的play3d()调用也会干扰movie3d()的渲染逻辑。

解决方案 #

按下面的步骤修正代码即可正常导出gif：

1. 移除多余的play3d()调用：movie3d()会自动执行传入的动画函数，不需要提前运行play3d()预览，提前运行会打乱当前rgl设备的状态。
2. 显式配置rgl的渲染参数，避免OpenGL驱动兼容问题，绘图前增加rgl.useNULL()开启离屏渲染的兼容模式，同时显式指定magick作为转换工具。

修正后可运行代码 #

library(rgl)
library(magick)

# 开启兼容模式的离屏渲染
rgl.useNULL(TRUE)
options(rgl.printRglwidget = TRUE)

# 处理数据集
colors <- c("royalblue1", "darkcyan", "oldlace")
iris$color <- colors[ as.numeric( as.factor(iris$Species) ) ]

# 初始化rgl设备并绘图
open3d()
plot3d( iris[,1], iris[,2], iris[,3], col = iris$color, type = "s", radius = .2 )

# 直接调用movie3d导出gif，不需要提前跑play3d
movie3d(
  movie = "3dAnimatedScatterplot", 
  spin3d(axis = c(0, 0, 1), rpm = 20),
  startTime = 0,
  duration = 10, 
  dir = ".",
  type = "gif", 
  clean = TRUE,
  fps = 10,
  convert = "magick" # 显式指定用magick转换，避免系统convert工具兼容问题
)

额外排查点 #

如果还是输出黑屏，可以尝试：

• 更新rgl和magick包到最新版本，旧版本包的渲染bug较多
• 不要在RStudio的内置绘图设备中运行代码，切换到原生R控制台运行，RStudio的内置rgl渲染存在大量兼容问题
• 如果是Linux系统，安装mesa-utils和libgl1-mesa-glx包补全OpenGL驱动依赖

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