Utilizzando ggplot2 e rpanel insieme

Question

Qualcuno ha usato ggplot2 con rpanel per produrre trame interattive. Ecco un pezzo di codice che ho adattato da rpanel per tracciare una distribuzione di Poisson e hanno un dispositivo di scorrimento per modificare il valore del parametro.

Tuttavia, la trama cambia troppo lentamente, come posso modificare i parametri utilizzando il cursore. Quando cambio la funzione complotto per usare Lattice, è molto più veloce. Si tratta di una limitazione di ggplot2 in termini di velocità? Esiste un modo per superare questo?

poisson.draw = function(panel) {
  with(panel, {
     x = seq(0,n, by = 1)
     library(ggplot2)
     y = dpois(x, lambda)
     d = data.frame(cbind(x,y))
     p1 = ggplot(d, aes(x,y)) + geom_point()
     print(p1)
  })
  panel
}
panel <- rp.control("Poisson distribution", n = 30, lambda = 3, 
  ylim = 0.5)
rp.slider(panel, lambda, 1, 30, poisson.draw)

Answer 1

Purtroppo ggplot2 è lento in questo momento. Tuttavia, ho ricevuto una generosa donazione che mi permetterà di lavorare sulle prestazioni durante l'estate, quindi spero che sarà notevolmente migliorata.