rpanel と一緒に ggplot2 を使用してインタラクティブなプロットを作成した人はいますか。これは、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)