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

【问题标题】：How to mport RGL plot in a tcl tk window with R如何使用 R 在 tcl tk 窗口中导入 RGL 图
【发布时间】：2013-08-20 02:44:00
【问题描述】：

我想在 TCL TK 窗口中显示交互式 3D 图。不知道有没有可能。

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

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

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

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

tt <- tktoplevel()

有人知道怎么做吗？

【问题讨论】：

呃；应该有一种嵌入该 3D 表面的方法，但我可以通过 rgl 文档找到它吗？没有。

标签： r 3d tcl tk rgl

【解决方案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)

【讨论】：