rgl中playwidget滑块联动多3D子图的实现与显示异常咨询

拖动滑块后双图同步重复首个子图黑/红点内容的异常，来自两个典型配置错误：

• 跨子图统一传入所有绘图对象到单个subsetControl，未将每个子图内的对象可见性规则和对应子场景做绑定
• 单个subsetControl的subscenes参数同时指定两个子图id时，rgl的可见性切换逻辑会将第一组对象的渲染规则同步到所有绑定的子图，导致内容串台

可复现的正确配置流程 #

1. 拆分独立3D子场景 #

首先通过rgl内置布局函数拆分绘图区域，分别记录每个子图的场景id，不要把两个子图的内容画在同一个场景里：

library(rgl)
# 新建可交互rgl设备
open3d()
# 按1行2列的布局拆分两个并排子图，分别获取场景id
layout3d(matrix(1:2, nrow=1), widths = c(0.5, 0.5))
sub_left <- currentSubscene3d() # 记录左子图id
next3d() # 切换到右子图区域
sub_right <- currentSubscene3d() # 记录右子图id

2. 分别在对应子图内绘制可切换对象 #

切换回每个子图绘制内容时，单独记录每个子图内、对应滑块档位的对象id列表，不要跨场景调用绘图函数：

# 切换到左子图绘制
useSubscene(sub_left)
# 左图3个档位对应的配色点对象
p1_left <- plot3d(x=rnorm(60), y=rnorm(60), z=rnorm(60), col="black", type="p")
p2_left <- plot3d(x=rnorm(60), y=rnorm(60), z=rnorm(60), col="red", type="p", add=TRUE)
p3_left <- plot3d(x=rnorm(60), y=rnorm(60), z=rnorm(60), col="blue", type="p", add=TRUE)
# 整理左图每个滑块档位要显示的对象id列表
left_toggle <- list(
  show = c(p1_left), # 档位1：仅显示左图黑色点
  show = c(p2_left), # 档位2：仅显示左图红色点
  show = c(p3_left)  # 档位3：仅显示左图蓝色点
)

# 切换到右子图绘制
useSubscene(sub_right)
# 右图3个档位对应的配色点对象
p1_right <- plot3d(x=rnorm(60), y=rnorm(60), z=rnorm(60), col="green", type="p")
p2_right <- plot3d(x=rnorm(60), y=rnorm(60), z=rnorm(60), col="orange", type="p", add=TRUE)
p3_right <- plot3d(x=rnorm(60), y=rnorm(60), z=rnorm(60), col="purple", type="p", add=TRUE)
# 整理右图每个滑块档位要显示的对象id列表
right_toggle <- list(
  show = c(p1_right), # 档位1：仅显示右图绿色点
  show = c(p2_right), # 档位2：仅显示右图橙色点
  show = c(p3_right)  # 档位3：仅显示右图紫色点
)

3. 为每个子图单独创建子集切换规则 #

不要把跨子图的对象合并进同一个subsetControl，给每个子图单独生成切换规则，明确绑定规则生效的目标场景：

# 左子图的切换规则，明确绑定到左子图场景
ctrl_left <- subsetControl(
  subsets = left_toggle,
  subscenes = sub_left
)
# 右子图的切换规则，明确绑定到右子图场景
ctrl_right <- subsetControl(
  subsets = right_toggle,
  subscenes = sub_right
)

4. 单滑块关联所有子图的切换规则 #

创建playwidget时，将两个子图的独立切换规则全部传入control参数，实现拖动一次滑块、所有子图同步切换的效果：

playwidget(
  control = list(ctrl_left, ctrl_right),
  start = 1,
  stop = 3,
  step = 1,
  rate = 1,
  subscene = NA
)

避坑提示 #

• Rmarkdown渲染时，对应的代码块需要加上rgl=TRUE选项，否则默认输出静态截图，不会生成可交互的滑块控件
• 不要尝试在单个subsetControl中把两个子图的对象和两个子场景id混合传入：rgl的可见性判断逻辑是按对象创建时归属的场景匹配的，跨场景传入的对象会默认渲染到第一个匹配规则的子图上，最终出现内容串台的问题
• 初始显示第一组内容正常、拖动后串台的现象，本质就是滑块值更新时，所有绑定到子图的控制规则都错误调用了第一个对象组的渲染逻辑，通过拆分独立控制规则就能完全规避

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