그래프 그리기 07:= OECD 국가들의 개인소득세 최고세율의 변화: 1981~2010:= 막대그래프

• 아래의 그래프는 OECD 국가들의 개인소득세의 최고세율 변화(1981,1990,2000, 2010)를 보여주고 있는데요.... 와!! 대단하죠...예전에는 최고세율이 상당히 높았군요...근데 지금은 많이 떨어졌네요... 이것이 양극화의 원인일까요? 적어도 부분적으로는 그래 보입니다....
• 여하튼 이것은 엑셀에서 작성한 것입니다.... 엑셀도 좋은 프로그램이죠..ㅋ
• 좀 더 구체적으로 말하면, 국가별로 4개 연도씩 묶어서 막대그래프를 그려야 하고, 평균치를 의미하는 선과, 화살표, 설명이 있습니다.

Source: OECD(2012), "Trends in personal income tax and employee social security contribution schedules"

// 동일한 데이터에 대해 스타타를 이용해서 작성한 것입니다.

// 먼저,  국가별로 4개 연도씩 묶어서 막대그래프는 graph bar [각연도별 변수], over(groupbar) 를 이용해 그립니다.

#delimit ;

  graph bar incometax1981  incometax1990 incometax2000 incometax2010  , 

  over(country,gap(*2.5) label(angle(ninety) labsize(vsmall)) sort(incometax1981) descending)  

  ylabel(0(10)100, grid angle(horizontal) labsize(vsmall))

  

  legend(order(1 "1981" 2 "1990" 3 "2000" 4 "2010") row(1) size(small) position(12) ring(0) region(lcolor(none)) fcolor(none) )

  scheme(economist)  yscale(alt)

  

/* 그리고 평균을 의미하는 선을 아래와 같이 그리고 */

  

 yline(65.7 ,lcolor(red)  lpattern(shortdash))

 yline(50.6 ,lcolor(blue) lpattern(shortdash))

 yline(46.5 ,lcolor(blue) lpattern(solid))

 yline(41.7 ,lcolor(red) lpattern(solid))

/* 텍스트의 위치를 조정하여, 값을 넣습니다. */ 

  text(67 35 "OECD(1981):65.7%", size(vsmall) color(blue))

  text(52 80 "OECD(1990):50.6%", size(vsmall))

  text(48 85 "OECD(2000):46.5%", size(vsmall))

  text(43 95 "OECD(2010):41.7%", size(vsmall) color(red))

  

;