포아송 회귀선

Question

포아송 회귀선을 플롯에 추가하려면 어떻게합니까? 다음 시도했지만 abline 함수가 작동하지 않습니다. 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

에 대한 from 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)