\renewcommand{\betweenticks}{50}
\bardiagrambegin{12.5}{200}{2cm}{1}{2.5}{0.9cm}{0.05cm}
    \drawlevellines
    \baritem{1998}{123}{red}
        \subbaritem{}{118}{blue}
    \baritem{1999}{126}{red}
        \subbaritem{}{119}{blue}
    \baritem{2000}{144}{red}
        \subbaritem{}{148}{blue}
    \baritem{2001}{176}{red}
        \subbaritem{}{170}{blue}
    \baritem{2002}{128}{red}
        \subbaritem{}{134}{blue}  
    \diagLegendbegin{1}{190}{3.2}
      \diagLegenditem{Women}{red}
      \diagLegenditem{Men}{blue}
    \diagLegendend
\bardiagramend{{\large Year}}{{\large Income}}