r - 如何使用 R 在 tcl tk 窗口中导入 RGL 图

Question

我想在 TCL TK 窗口中显示交互式 3D 绘图。我想知道这是否可能。

这是一个弹出一个新窗口（设备）的代码。

library(rgl)
attach(mtcars)
plot3d(wt, disp, mpg, col="red", size=5)

问题是我无法向该窗口添加按钮。

我想将上面窗口的交互区域放在我这样创建的 TCL TK 中：

tt <- tktoplevel()

任何人都知道该怎么做？

Answer 1

这是从 中的示例拼凑而成的?tkrgl::spinControl。我不确定它是否完全符合您的描述，但它确实说明了如何使用 tk 控制窗口控制 rgl 设备：

install.packages("tkrgl")  # also by Duncan Murdoch
library("tkrgl")
plot3d(wt, disp, mpg, col="red", size=5)
win1 <- rgl.cur()
rgl.bringtotop(TRUE)
#Warning message:
#In rgl.bringtotop(TRUE) : stay not implemented
 base <- tktoplevel()
 tkwm.title(base, "Spinners")
# <Tcl>  
 con1 <- spinControl(base, dev=c(win1))
 tkpack(con1)
#<Tcl>  
 base <- tktoplevel()
 tkwm.title(base, "Spinners")
 con1 <- spinControl(base, dev=c(win1))
 tkpack(con1)