r - 一起使用 ggplot2 和 rpanel

Question

有没有人使用 ggplot2 和 rpanel 来生成交互式绘图。这是我从 rpanel 改编的一段代码，用于绘制泊松分布并有一个滑块来更改参数值。

但是，当我使用滑块更改参数时，绘图变化太慢。当我将绘图功能更改为使用 Lattice 时，它​​会快得多。这是 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 目前很慢。但是，我收到了一笔慷慨的捐款，这将使我能够在整个夏天进行表演，所以我希望它会得到实质性的改善。