Совместное использование 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 в данный момент работает медленно. Тем не менее, я получил щедрое пожертвование, которое позволит мне поработать над выступлением в течение лета, поэтому я надеюсь, что оно значительно улучшится.