그래프 그리기 02:= 막대(bar) 그래프

* 스타타에서 막대그래프는 약간 불편하다. 두 변수를 서로 다른 막대로 그리기도 어렵고, 값을 그래프 안에 넣기도 어렵다... ㅠ.ㅠ

// 오늘 그래프를 만들 데이터는 다음과 같다.


// yr을 x축, 나머지 세변수를 y축...
// 세 변수 중 B, C는 막대그래프 좌축
// D는 선연결그래프로 우축으로...

// 이 경우, 대부분은 이렇게 그리겠죠....
#delimit ;
twoway (bar var_B yr)
(bar var_C yr)
(connected var_D yr, yaxis(2) mlabel(var_D)  mlabposition(12))   ,
   ytitle("근로자수(천명)")
   ytitle("비정규직 비중(%)", axis(2))
   ylabel(0(2000)20000, angle(horizontal))
    ylabel(0(5)40, axis(2) angle(horizontal) )
   xtitle("")
   xlabel(2001(1)2012 , labsize(medium) alternate )
   legend(order(1 "`mylab_B'" 2 "`mylab_C'"  3 "`mylab_D'" ) rows(1))
    scheme(sj)  ;

* 그래서 다음과 같이 해보죠...

format var_D %16.1f                // 비율을 소수점 1자리수로...
format var_B var_C %16.0fc     // 1000단위로 콤마를 넣고..

// 핵심...
gen yr2 = yr + 0.2
gen yr3 = yr - 0.2

#delimit ;
twoway (bar var_B yr3, barwidth(0.4)) 
           (bar var_C yr2, barwidth(0.4))
   (connected var_D yr, yaxis(2) mlabel(var_D)  mlabposition(12))
   ,
   ytitle("근로자수(천명)")
   ytitle("비정규직 비중(%)", axis(2))
   ylabel(0(2000)20000, angle(horizontal))
    ylabel(0(5)40, axis(2) angle(horizontal) )
   xtitle("")
   xlabel(2001(1)2012 , labsize(medium) alternate )
   legend(order(1 "`mylab_B'" 2 "`mylab_C'"  3 "`mylab_D'" ) rows(1))
    scheme(sj)  ;
#delimit cr

// bar에다 값을 넣어볼까요!! 

format var_D %16.1f 

format var_B var_C %16.0fc

gen yr2 = yr + 0.2

gen yr3 = yr - 0.2

#delimit ;

twoway (bar var_B yr3,barwidth(0.4)) 

(bar var_C yr2,barwidth(0.4)) 

(connected var_D yr, yaxis(2) mlabel(var_D)  mlabposition(12))

 

(scatter var_B yr3, msymbol(none) mlabel(var_B) mlabposition(12))

(scatter var_C yr2, msymbol(none) mlabel(var_C) mlabposition(12))

   , 

   ytitle("근로자수(천명)")

   ytitle("비정규직 비중(%)", axis(2))

   ylabel(0(2000)20000, angle(horizontal))

    ylabel(0(5)40, axis(2) angle(horizontal) )

   xtitle("")

   xlabel(2001(1)2012 , labsize(medium) alternate )

   legend(order(1 "`mylab_B'" 2 "`mylab_C'"  3 "`mylab_D'" ) rows(1))

    scheme(sj)  ;