오바마 지지율

오바마 승인율시계열 데이터를 좀 더 다루어 보았습니다. 이 예제에서는 오바마 대통령의 직업 승인율 변화를 나타낸 그래프를 보여 주며, 추세를 보여 주기 위해 두 개의 LOWESS 곡선을 추가했습니다. 2009년 1월부터 현재까지의 데이터를 사용한 결과입니다.실제로 이 그래프에는 꽤 멋진 기능들이 적용되어 있는데, 아래의 R 코드를 참고하시기 바랍니다.polls lfit1 lfit2 plot(app~daten, ylim=c(40,80), xlim=c(-3,210), pch=16, col="gray", cex.lab=1.25, cex.axis=0.75, col.lab = "#777777", xlab="", ylab="Obama job approval (%)", xaxt="n", yaxt="n") axis(1, at=c(-3,28,56,87,117,148,178,209), lab=c("Jan 09","Feb 09","Mar 09","Apr 09","May 09","Jun 09","Jul 09","Aug 09"), col.lab="#777777", col.axis="#777777", tck=-0.02, cex.axis=0.75) axis(2, at=c(40,50,60,70,80), col.axis="#777777", las=2, tck=-0.02, cex.axis=0.75) lines(lfit1, col="red", lwd=3) lines(lfit2, col="blue", lwd=3)