同时使用ggplot2和rpanel

有人用ggplot2和rpanel制作互动情节吗?这里是一段代码,我从RPanel中修改它来绘制泊松分布,并使用一个滑块来更改参数值。

但是,当我使用滑块更改参数时,绘图更改得太慢。当我把绘图函数改为使用点阵时,速度快得多。这是ggplot2的速度限制吗?有没有办法克服这个问题?

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)