회귀 분석 상호 작용 그림을 ggplot으로 변환하는 방법은 무엇입니까?

Question

누군가는 방법 아래의 상호 작용 효과 (코드 this 도구를 사용하여 생성 된) ggplot와 음모하는 저를 보여 주시겠습니까 :

xx <- c(40,65) 
yy <- c(26.77,37.15) 
x <- c(40,65) # <-- x-coords for lines 
y1 <- c(28.5,37.15) 
y2 <- c(30.345,35.895) 
y3 <- c(32.19,34.64) 
plot(xx,yy,type='n',font=2,font.lab=2,xlab='x1',ylab='Y',main='2-Way Interaction Plot') 
lines(x,y1,lwd=3,lty=1,col=1) 
lines(x,y2,lwd=3,lty=5,col=2) 
lines(x,y3,lwd=3,lty=6,col=3) 
points(x,y1,col=1,pch=16) 
points(x,y2,col=1,pch=16) 
points(x,y3,col=1,pch=16)              
legend(leg[1],leg[2],legend=c('W1(1)','W1(2)','W1(3)'),lwd=c(3,3,3),lty=c(1,5,6),col=c(1,2,3)) 

Y1, Y2, Y3는 사회자의 포인트/조건부 기울기 값됩니다.

Answer 1

당신은 긴 형식의 dataframe이 필요합니다. (전설이 자동적으로 표시)

이

dfrm <- data.frame(x=rep(x,3), y=c(y1,y2,y3), 
        group=rep(c("y1","y2","y3") ,each=2)) 
ggplot(data=dfrm, aes(x=x,y=y,group=group)) + 
         geom_point()+geom_line(aes(col=group)) 

을 당신이에 적용되는 'XX'및 전년 동기 대비 제한을 적용하기를 원한다면 xlim 및 ylim 기능도 있습니다 기본 그래픽 템플릿에 빈 플롯 프레임 워크.