6
Buduję GUI za pomocą gWidgetsRGtk2 i mam problem z wyświetlaniem ggplot po kliknięciu gbutton. Funkcja kreślenia działa sama (to znaczy, gdy wpisujesz "plotData()"), ale nie mogę jej uruchomić z gWidgets. Czy jest jakiś problem ze zgodnością z gWidgets i ggplot2, czy też nie wywołuję poprawnie funkcji? Usunąłem wszystko z GUI, aby kod był krótszy i prostszy. Oto co fabuła powinna wyglądać następująco:Używanie ggplot2 w gWidgetsRGtk2
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
)
Jest pewien problem z R Studio. Po zmianie 'ggplot (...)' na 'print (ggplot (...))' dla mnie działa z RGui, ale nie z R Studio. – Julius
Dzięki, to działa teraz dla mnie! Kopiowałem i wklejałem z notatnika, nie używając R Studio – bstock
Więc to jest już rozwiązane? –