\renewcommand{\betweenticks}{50}
\bardiagrambegin{12.5}{210}{2cm}{1}{2.5}{0.8cm}{0.04cm}
    \barspergroup{2}
    \drawlevellines
    \baritem{1998}{23}{lightred}
      \subtopbaritem{}{100}{red}
    \subbaritem{}{28}{lightblue}
      \subtopbaritem{}{90}{blue}
    %
    \baritem{1999}{37}{lightred}
      \subtopbaritem{}{89}{red}
    \subbaritem{}{38}{lightblue}
      \subtopbaritem{}{81}{blue}
    %
    \baritem{2000}{43}{lightred}
      \subtopbaritem{}{101}{red}
    \subbaritem{}{52}{lightblue}
      \subtopbaritem{}{96}{blue}
    %
    \baritem{2001}{83}{lightred}
      \subtopbaritem{}{93}{red}
    \subbaritem{}{92}{lightblue}
      \subtopbaritem{}{78}{blue}
    %
    \baritem{2002}{64}{lightred}
      \subtopbaritem{}{64}{red}
    \subbaritem{}{70}{lightblue}
      \subtopbaritem{}{64}{blue}
    %
    \diagLegendbegin{0}{222}{7.3}
      \diagLegenditem{\it Women older than 30}{red}
      \diagLegenditem{\it Women younger than 30}{lightred}
      \diagLegenditem{\it Men older than 30}{blue}
      \diagLegenditem{\it Men younger than 30}{lightblue}
    \diagLegendend
\bardiagramend{{\large Year}}{{\large Income}}