\bardiagrambegin{7.8}{210}{2cm}{1}{1.5}{0.7cm}{0.02cm}
      \drawlevellines
      \baritem{1998}{120}{green}
      \baritem{1999}{123}{red}
      \baritem{2000}{147}{yellow}
      \baritem{2001}{176}{green}
      \baritem{2002}{132}{red} 
      %
      \diagLegendbegin{0}{200}{3.8}
        \diagLegenditem{\it Legend}{red}
      \diagLegendend
  \bardiagramend{{\large Year}}{{\large Income}}