如何让R的rgl包中3D树状图的3D网格同向且可单独旋转

核心解决思路 #

利用rgl的**子场景（subscene）**机制，为每个网格创建独立的渲染场景：每个子场景可单独设置视角参数，初始时统一配置保证网格同向，后续可单独操控任意子场景的旋转，彻底解决FOV=0无法单独旋转的矛盾。

分步实现代码与参数设置 #

假设你已经有树状图节点的坐标数据（vert$x/vert$y/vert$z），以及每个网格对应的初始旋转参数（vert$theta/vert$thetaend），按以下步骤操作：

1. 初始化主场景并批量创建子场景

# 打开主3D窗口
open3d()
main_scene <- currentSubscene3d()

# 为每个节点创建独立子场景，保存引用到vert列表
vert$subscene <- vector("list", length(vert$x))

for (i in seq_along(vert$x)) {
  # 创建子场景：viewport参数控制子场景在窗口的显示区域，默认和主场景一致
  # 若要独立小窗口，可设viewport = c(x, y, width, height)（像素单位）
  vert$subscene[[i]] <- subscene3d(new = TRUE, viewport = par3d("viewport"))
  
  # 切换到当前子场景，渲染3D网格
  useSubscene(vert$subscene[[i]])
  # 替换成你的网格渲染代码，示例用基础grid3d
  grid3d(c("x", "y", "z"), color = "#cccccc", lwd = 1)
  
  # 设置初始视角：统一FOV=0保证同向，用vert的theta/thetaend配置初始旋转
  par3d(FOV = 0, theta = vert$theta[i], thetaend = vert$thetaend[i])
  
  # 切回主场景，将子场景的网格平移到对应节点位置
  useSubscene(main_scene)
  sub_scene_obj <- scene3d(vert$subscene[[i]])
  translate3d(sub_scene_obj, vert$x[i], vert$y[i], vert$z[i])
}

2. 单独旋转指定网格
   要旋转某个网格，只需切换到对应子场景修改视角参数即可：

# 示例：旋转第2个网格（theta增加90度）
useSubscene(vert$subscene[[2]])
par3d(theta = par3d("theta") + 90)
# 操作完成后切回主场景，避免影响后续操作
useSubscene(main_scene)

关键参数说明 #

• newviewport/viewport：subscene3d的viewport参数就是你提到的newviewport，用于定义子场景在窗口中的显示范围。如果只是将网格嵌入主场景的3D空间，保持与主场景视口一致即可；若需要分窗口显示不同网格，可自定义像素坐标（如viewport = c(100, 100, 300, 300)表示左上角(100,100)、宽高300的区域）。
• vert$theta & vert$thetaend：在每个子场景中通过par3d()直接设置这两个参数，初始时给所有子场景配置相同的初始值就能保证网格方向统一；后续单独修改任意子场景的参数，即可实现独立旋转。

注意事项 #

• 操作子场景时必须用useSubscene()切换，确保修改的是目标场景的参数。
• 子场景引用需妥善保存（示例中存在vert$subscene），否则无法后续操控。
• 若你的网格是自定义3D模型，只需替换示例中的grid3d()代码，子场景的视角控制逻辑完全通用。

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