r - ポアソン回帰直線

Question

ポアソン回帰直線をプロットに追加するにはどうすればよいですか? 以下を試してみましたが、アブライン機能が動作しません。これは、abline() が切片と勾配を使用するのに対し、ポアソン回帰直線は対数リンクを使用するためです。

x = rpois(12, 5) 
plot(x, axes = F)
axis(1,at=1:length(month.name), labels = month.name)
axis(side = 2)
y = c(1:12)
poislm = glm(x~y, family=poisson)
abline(poislm)

Answer 1

R-helpからいかがですか

predProbs<-predict(poislm,data.frame(y=seq(min(y), max(y), length.out=100)), type="response")
lines(seq(min(y), max(y), length.out=100), predProbs, col=2, lwd=2)