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

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

下面是弹出一个新窗口（设备）的代码

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

问题是我无法将按钮添加到该窗口

我想将窗口的交互区域放在我创建的TCL TK中，如下所示：

tt <- tktoplevel()

---

tt这是从
？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)

install.packages（“tkrgl”）#也是由邓肯·默多克（Duncan Murdoch）编写的
图书馆（“tkrgl”）
plot3d（wt、disp、mpg、col=“红色”，尺寸=5）
win1-Ugh；应该有一种嵌入3D曲面的方法，但是我可以通过rgl文档找到它吗？不