Hi,
Code:
\documentclass{article}
\usepackage{filecontents}
\usepackage{pstricks}
\usepackage{pst-bar}
\usepackage{pstricks-add}
\begin{filecontents*}{demo.dat2}
158, 167, 183, 188, 190, 201, 203, 210
\end{filecontents*}
\begin{document}
\renewcommand*\psbarlabelsep{2pt}
\psset{xunit=1,yunit=.02cm}
\psset{yticksize=0 8cm}
\begin{pspicture}(-.5,-30)(6,250)
\readpsbardata[header=false]{\data}{demo.dat2}
\psbarchart[barcolsep = 0.6, barstyle={gray}]{\data}
\psaxes[labels=y,axesstyle=axes,Oy=0,Dy=50,xticksize=-2pt ,showorigin=false]{-}(8,250)
\multido{\n=0.50+1.00,\ib=1992+2}{8}
{ \psset{ticksize=0 0}
\psxTick(\n){\ib}%
}
\psline(1,0)(1,250)
\def\data{158, 167, 183, 188, 190, 201, 203, 210}
\rput(-0.5,0){%
\newcounter{xVal}
\setcounter{xVal}{0}
\psforeach{\n}{\data}%
{\refstepcounter{xVal}%
\uput[90](\thexVal,\n){\n}%
}}
\end{pspicture}
\end{document}
Gruß
Marco
Lesezeichen