Utilizzo di ggplot2 all'interno di gWidgetsRGtk2

Sto costruendo una GUI utilizzando gWidgetsRGtk2 e sto riscontrando problemi nella visualizzazione di un ggplot al clic di un pulsante g. La funzione di tracciamento funziona da sola (ad esempio quando si digita "plotData()"), ma non riesco a farlo funzionare con gWidgets. C'è qualche problema di compatibilità con gWidgets e ggplot2, o non sto chiamando correttamente la funzione? Ho rimosso tutto il resto dalla GUI per rendere il codice più breve e più semplice. Ecco cosa la trama dovrebbe essere simile:Utilizzo di ggplot2 all'interno di gWidgetsRGtk2

fake isotope data

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 
)

fonte

2012-12-11 bstock

C'è qualche problema con R Studio. Dopo aver cambiato 'ggplot (...)' per 'stampare (ggplot (...))' per me funziona con RGui ma non con R Studio. – Julius

Grazie, ora funziona per me! Stavo copiando e incollando dal blocco note, però, non usando R Studio – bstock

Quindi questo è risolto ora? –

Quando si utilizza RGui si dovrebbe cambiare ggplot(...)-print(ggplot(...)) nella funzione plotData. Tuttavia, ciò non è sufficiente quando si usa R Studio e si dovrebbe anche digitare una riga vuota, cioè premere "invio" nella console dopo aver fatto clic sul pulsante "Stampa dati".

fonte

2012-12-15 19:34:29 Julius

Utilizzo di ggplot2 all'interno di gWidgetsRGtk2

risposta

Problemi correlati