rgl包绘图无显示求助：代码曾正常运行现无输出无报错

你提供的rgl代码之前正常运行，现在无输出无报错，主要是新版本rgl的设备管理逻辑发生了变化。以下是修复后的代码及说明：

library(rgl)

# 显式打开3D绘图设备
open3d()
# 确保启用图形窗口输出（本地环境适用）
options(rgl.useNULL = FALSE)

x1 <- seq(0, 2, len = 20)
x2 <- seq(0, 2, len = 20)
y <- outer(x1,x2, function(x1,x2) 1 + x1*2 + x2) 

persp3d(x=x1, y=x2, z=y, theta = 30, phi = 30, expand = 1, col = "green")
surface3d(x=x1, y=x2, z=y, back = "lines")
surface3d(x=x1, y=x2, z=y, front = "lines")
bgplot3d({
  plot.new()
  title(main = 'y = 1 + 2*x1 + x2', line = 3)
})

# 非交互式环境（如RStudio脚本、RMarkdown）需添加此命令
rglwidget()

核心修复原因 #

• 新版本rgl默认不再自动创建并维持绘图设备，open3d()会显式初始化一个持续的3D绘图上下文。
• options(rgl.useNULL = FALSE)关闭了无显示的null设备模式，确保图形能在本地窗口弹出。
• 在非交互式场景中，rglwidget()负责将3D图形渲染为可展示的格式，避免设备自动关闭导致无输出。

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