Windows 上 R 中的 gwidgets

Question

在开发用于绘制数据和模型结果的 gWidgets 界面时，我创建了一个绘图页面并使用 par(mfrow=c(4,1)) 将 4 个绘图堆叠起来。

第一个图（顶部的简单 y 与 x）工作正常，但循环中的其余 3 个图创建轴但不绘制数据。为了测试代码，我尝试在循环之前打开一个新的绘图窗口，一切正常。

gwdigets 与 plot(...) 的交互中是否有一些有用的信息？

编辑 一个可重现的例子：

不起作用：

library(gWidgets)
options(guiToolkit="RGtk2") ## "Qt"
w <- gwindow("brush example", visible=FALSE)
g <- ggroup(container=w)
gg <- ggraphics(container=g)

addHandlerChanged(gg, handler=function(h,...) {
  par(mfrow=c(2,2))
  plot(mpg ~ wt, mtcars)
  plot(mpg ~ wt, mtcars,col='blue')
  plot(mpg ~ wt, mtcars,col='red')
  plot(mpg ~ wt, mtcars,col='green')
})
visible(w) <- TRUE

应该看起来像这样（普通的 R 图形窗口：

不是这样的

Answer 1

由于某些原因无法刷新剧情。您可以使用多个 ggraphics 实例，也可以使用ggraphicsnotebook。

这是一个使用多个ggraphics 实例的解决方案。

library(gWidgets)
options(guiToolkit="RGtk2") ## "Qt"
w <- gwindow("brush example", visible=FALSE)
gg <- ggroup(container=w,horizontal=F,use.scrollwindow = T)
down.group <- ggroup(container = gg)
up.group <- ggroup(container = gg)

devs.up <- lapply(1:2, function(i) 
                 ggraphics(container=down.group,label=as.character(i)))
devs.down <- lapply(3:4, function(i) 
                 ggraphics(container=up.group,label=as.character(i)))
visible(w) <- TRUE
lapply(c(devs.up,devs.down), function(gg)
addHandlerChanged(gg, handler=function(h,...) {
  par(mfrow=c(1,1))
  plot(mpg ~ wt, mtcars)
}))

Answer 2

有两个问题。一个可能与 windows 上的 cairo 实现有关。这可以通过完全避免 gWidgets 来测试：

make_plot <- function() {
  par(mfrow=c(2,2))
  plot(mpg ~ wt, mtcars)
  plot(mpg ~ wt, mtcars,col='blue')
  plot(mpg ~ wt, mtcars,col='red')
  plot(mpg ~ wt, mtcars,col='green')
}

require(RGtk2)
require(cairoDevice)

w <- gtkWindow(show=FALSE)
da <- gtkDrawingArea()
w$add(da)
w$show(TRUE)

asCairoDevice(da)

make_plot()

另一个问题是将图形绘制调用放在处理程序中。对于 ggraphics，在完成橡皮筋之后调用更改处理程序，而不是在图形本身更改时调用。不确定这是最有用的东西，但它意味着在通过橡皮筋进行选择后调用一些处理程序。 addHandlerClicked 可能更有趣。