갈루아의 반서재

728x90


> y  // y <- c(49.3, ....) 으로 y 값 입력
 [1] 49.3 51.9 50.8 49.6 49.3 50.6 48.4 50.7 50.9 50.6 51.5 52.8 51.8 51.1
[15] 49.8 50.2 50.4 51.6 51.8 50.9 48.8 51.7 51.0 50.6 51.7 51.5 52.1 51.3
[29] 51.0 54.0 51.4 52.7 53.1 54.6 52.0 52.0 50.9 52.6 50.2 52.6 51.6 51.9
[43] 50.5 50.9 51.7 51.4 51.7 50.8 51.9 51.8 51.9
> x=1920:1970
> plot.new() 
> plot.window(xlim=c(1920,1970), xaxs="i",ylim=c(46.5,55.5), yaxs="i") 
> abline(v=seq(1930,1960,by=10), col="gray") //배경 그리드 그리기
> abline(h=seq(48,54, by=2), col="gray")
> xx=c(1920,x,1970) 
> yy=c(46.5,y,46.5)
> polygon(xx,yy,col="gray") // 다각형 그리기
> axis(1)
> axis(2, las=1)
> box()






728x90