\renewcommand{\betweenticks}{50}
\bardiagrambegin{9.5}{200}{2cm}{1}{2}{1cm}{0.05cm}
    \drawlevellines
    \baritem{1998}{120}{green}
    \baritem{1999}{123}{red}
    \baritem{2000}{147}{yellow}
    \baritem{2001}{176}{green}
    \baritem{2002}{132}{red}  
    \diagLegendbegin{0.1}{203}{5}
      \diagLegenditem{Good statistics}{green}
      \diagLegenditem{Moderate statistics}{yellow}
      \diagLegenditem{Bad statistics}{red}
    \diagLegendend
\bardiagramend{{\large Year}}{{\large Income}}