Совместное использование ggplot2 и rpanel
Вопрос
Кто-нибудь использовал ggplot2 вместе с rpanel для создания интерактивных графиков.Вот фрагмент кода, который я адаптировал из rpanel для построения распределения Пуассона и установки ползунка для изменения значения параметра.
Однако график меняется слишком медленно, когда я меняю параметры с помощью ползунка.Когда я меняю функцию plot на использование 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)
Решение
К сожалению, ggplot2 на данный момент работает медленно.Тем не менее, я получил щедрое пожертвование, которое позволит мне работать над выступлением в течение лета, поэтому я надеюсь, что оно будет существенно улучшено.
Не связан с StackOverflow