%% 
%%  Ein Beispiel der DANTE-Edition
%%  
%%  7. Auflage
%% 
%%  Beispiel 35-00-90 auf Seite 854.
%% 
%%  Copyright (C) 2016 Herbert Voss
%% 
%%  It may be distributed and/or modified under the conditions
%%  of the LaTeX Project Public License, either version 1.3
%%  of this license or (at your option) any later version.
%% 
%%  See http://www.latex-project.org/lppl.txt for details.
%% 
%% 
%% ==== 
% Show page(s) 1
%% 
%% 
\documentclass[]{exaarticle}
\pagestyle{empty}
\setlength\textwidth{352.81416pt}
\setlength\parindent{0pt}
%StartShownPreambleCommands
\usepackage{pstricks-add}
\begin{filecontents}{plot17.dat}
493, 424, 1743, 142, 165, 143, 351, 108, 186, 239, 241, 154, 141,
221, 856, 154, 261, 17, 108, 1743, 6088, 817.5, 2415.59, 49.14,
11.92, 2273.50, 47.68, 11.56
\end{filecontents}
\def\xText{Astra,Bego RI,Bego S,Cylindr,Screw,Line,Plus,Narrow,TE ,
  Voll,Wide,Wide Ne,Re Sel,Level,Plus,SLActi,SLAcPl,Anzahl,Minimum,Maximum,
  Summe,Mittel,Varianz (n-1),Standardabweichung (n-1),Standardfehler (n-1),
  Varianz (n),Standardabweichung (n),Standardfehler (n)}
\newcounter{Text}
%StopShownPreambleCommands
\begin{document}
\psset{llx=-0.6cm, lly=-0.6cm,mathLabel=false,
  yAxisLabel=Anzahl der Implikationen, yAxisLabelPos={-3.5,c},
  xAxisLabel=Augmentiert, xAxisLabelPos={c,-1000}}
\begin{psgraph}[Dy=500, dy=1cm,
  yticksize=-10pt 0,ysubticks=5,xticksize=0 -5pt,
  xsubticks=0,labels=y](0,0)(30,6000){15cm}{12cm}
\psaxes[labels=none,ticks=y,yticksize=0 30,ysubticks=5,
  subticksize=1,tickcolor=black!20,subtickcolor=black!30,
  subticklinestyle=dashed,Dy=500,dy=1cm](30,6000)
\readdata{\dataA}{plot17.dat}
\listplot[barwidth=0.4,xyValues=false,
  plotstyle=bar,fillcolor=blue!60,fillstyle=solid]{\dataA}
\listplot*[xyValues=false,plotstyle=values,decimals=0,rot=90]{\dataA}
\psforeach{\nA}{\xText}{\stepcounter{Text}\rput[rb]{45}(\theText,-3mm){\nA}}
\end{psgraph}
\end{document}