在gWidgetsRGtk2中使用ggplot2

Question

我正在使用gWidgetsRGtk2构建GUI，但在单击gbutton时无法使ggplot出现，绘图函数本身可以正常工作(即当您键入“plotData()”时)，但我无法让它与gWidgets一起工作。是gWidgets和ggplot2之间存在某些兼容性问题，还是我没有正确调用该函数？我已经从GUI中剥离了其他所有内容，以使代码更短、更简单。这就是绘图应该看起来的样子:

library(ggplot2)
library(gWidgets)
library(gWidgetsRGtk2)

require(gWidgets)
options("guiToolkit"="RGtk2")

X<-cbind(runif(120,min=-22,max=-17),runif(120,min=6,max=12))
MU<-matrix(c(-18.96,-15.86,-24.67,4.04,13.57,9.69),nrow=3,ncol=2)
SIG<-matrix(c(0.6,0.77,0.85,0.85,0.55,0.90),nrow=3,ncol=2)

plotData = function(h,...)
{
C_err <- 0.3
N_err <- 1.0
df <- data.frame(x = X[,1],
    y = X[,2],
    ymin = X[,2] - N_err,
    ymax = X[,2] + N_err,
    xmin = X[,1] - C_err,
    xmax = X[,1] + C_err)

df_MU <- data.frame(x=MU[,1], y=MU[,2], 
    ymin = MU[,2] - SIG[,2],
    ymax = MU[,2] + SIG[,2],
    xmin = MU[,1] - SIG[,1],
    xmax = MU[,1] + SIG[,1])

ggplot(data = df,aes(x = x,y = y)) + 
  geom_point() + 
  geom_errorbar(aes(ymin = ymin,ymax = ymax)) + 
  geom_errorbarh(aes(xmin = xmin,xmax = xmax)) +
  geom_pointrange(data=df_MU,aes(ymin=ymin,ymax=ymax),colour=c('red','blue','green'),size=1) +
  geom_errorbarh(data=df_MU,aes(xmin=xmin,xmax=xmax),colour=c('red','blue','green'),size=1,height=0) +
  ggtitle("Isotope Data") +
  ylab("d15N (%)") +
  xlab("d13C (%)") +
  theme_bw()
}

win<-gwindow()
grp_all <- ggroup(container=win, horizontal=F)
plot_button <- gbutton(
  text = "Plot data",
  container = grp_all,
  expand = TRUE,
  handler = plotData
)

- bstock

---

R Studio出了点问题。将ggplot(...) 更改为 print(ggplot(...)) 后，对于我使用的 RGui 可以工作，但是在R Studio上不行。 - Julius Vainora

谢谢，现在对我有效了！尽管我一开始是从记事本复制粘贴的，而不是使用R Studio。 - bstock

是的。Julius的建议起作用了——在plotData函数中将ggplot(...)调用更改为print(ggplot(...))。也许应该将其发布为答案而不是评论？ - bstock

发布。在回答之前，我只是想找到一个R Studio的解决方案...尽管这个解决方案一点也不方便。 - Julius Vainora

Answer 1

在使用RGui时，您应该将ggplot(...)更改为print(ggplot(...))，并将其放入您的plotData函数中。然而，在使用R Studio时，这还不够，您还应该在单击“绘制数据”按钮后在控制台中输入一个空行，即按下“Enter”键。

- Julius Vainora