Usando ggplot2 y rpanel juntos

Question

alguien ha utilizado ggplot2 junto con rpanel para producir parcelas interactivos. Aquí es una pieza de código que Adaptado de rpanel para trazar una distribución de Poisson y tener un control deslizante para cambiar el valor del parámetro.

Sin embargo, la trama cambia con demasiada lentitud como puedo cambiar los parámetros mediante el control deslizante. Cuando cambio la función trama para usar de celosía, es mucho más rápido. ¿Es esta una limitación de ggplot2 en términos de velocidad? ¿Hay una manera de superar esto?

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

Desafortunadamente ggplot2 es lento en este momento. Sin embargo, he recibido una generosa donación que permitirá que trabaje en el rendimiento durante el verano, así que espero que se mejorará sustancialmente.