使用GGPLOT2和rpanel在一起

Question

已经有人使用用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)

Answer 1

不幸的是GGPLOT2是目前慢。不过，我已经收到了慷慨的捐赠，让我过上夏季高性能工作，所以我希望这将大幅提高。