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-device を制御する方法を示しています。

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)