如何在R中预设视角并非交互式导出rgl包生成的3D散点图？

刚好之前处理过类似的需求，用rgl实现非交互式批量导出固定视角的3D散点图完全没问题，我给你拆解成清晰的步骤：

要实现自动化批量处理，关键是两点：一是让rgl在后台虚拟环境中渲染，不弹出交互式窗口；二是提前锁定视角参数，确保所有导出的图片视角完全一致。

1. 开启非交互式渲染模式 #

首先要告诉rgl不要打开实际的交互式窗口，而是使用虚拟设备在后台处理，只需要设置一个全局选项：

options(rgl.useNULL = TRUE)

这个选项会让rgl默认使用NULL设备，全程在后台运行，不会打扰批量处理流程。

2. 获取/设置固定视角参数 #

有两种方式搞定固定视角：

方式一：手动调整后保存参数（推荐，更直观） #

先临时关闭上面的选项，打开交互式窗口调整到你想要的视角，然后保存参数：

# 临时开启交互式模式
options(rgl.useNULL = FALSE)

# 随便用一个数据集画个图，调整视角（旋转、缩放）到满意状态
plot3d(mtcars$wt, mtcars$disp, mtcars$hp, type = "s")

# 保存当前视角的关键参数：userMatrix（旋转矩阵）、zoom（缩放）、FOV（视野）
view_params <- par3d(c("userMatrix", "zoom", "FOV"))

# 把参数存起来，后续批量处理直接加载
save(view_params, file = "fixed_view.RData")

# 关闭交互式窗口，切回非交互式模式
rgl.close()
options(rgl.useNULL = TRUE)

方式二：代码直接生成视角（无需手动调整） #

如果不想手动调，也可以用rotationMatrix()直接生成旋转矩阵，比如设置绕x轴转30度、y轴转45度：

# 生成固定旋转矩阵
fixed_userMatrix <- rotationMatrix(theta = 30, phi = 45, x = 1, y = 1, z = 0)
# 搭配固定的缩放和视野
view_params <- list(
  userMatrix = fixed_userMatrix,
  zoom = 1,
  FOV = 60
)

3. 批量处理数据集并导出图片 #

假设你的多组数据集存在一个列表data_list里（每个元素是包含x、y、z列的数据框），循环处理即可：

# 加载之前保存的视角参数（如果是代码生成的就直接用）
load("fixed_view.RData")

# 遍历每个数据集，批量生成图片
for (idx in seq_along(data_list)) {
  # 初始化一个新的rgl虚拟设备
  open3d()
  
  # 应用固定视角
  par3d(
    userMatrix = view_params$userMatrix,
    zoom = view_params$zoom,
    FOV = view_params$FOV
  )
  
  # 绘制3D散点图，这里可以根据你的需求调整样式（点大小、颜色、轴标签等）
  current_data <- data_list[[idx]]
  plot3d(
    x = current_data$x, y = current_data$y, z = current_data$z,
    type = "s", size = 1.2, col = "#2E86AB",
    xlab = "X轴", ylab = "Y轴", zlab = "Z轴"
  )
  
  # 导出图片，支持png、jpeg、pdf等格式，自定义文件名
  output_file <- paste0("3d_scatter_plot_", idx, ".png")
  rgl.snapshot(filename = output_file, fmt = "png", dpi = 300)
  
  # 关闭当前设备，释放内存
  rgl.close()
}

• 如果要导出更高清的图片，在rgl.snapshot里设置dpi参数（比如300或600）即可；
• 批量处理时可以用pbapply包的pblapply代替普通循环，能看到进度条，更方便跟踪；
• 如果需要添加标题或其他标注，可以用text3d()在图上添加文本元素，同样会被导出。

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