Pstricks: Problem mit Balken und Achsenbeschriftung

Druckbare Version

04-07-2011, 09:41
geek_munich

Pstricks: Problem mit Balken und Achsenbeschriftung

Hallo,

es geht um eine Pstrick Barchart aus Datei.
Die Balken sollen mit den Werten dynamisch beschriftet werden, klappt für positive Werte, für negative Werte wird aber in den Balken geschrieben.

Das andere Problem ist, dass ich die Textgröße der Achsenbeschriftung der horizontalen Achse nicht über "pshlabel" anpassen konnte.
Kann man hier auch angeben, dass die Achsenbeschriftung unter dem Diagramm erfolgen soll? Oder ist hier eine seperate Tabelle zu erstellen und mit geringen Abstand unter der Grafik auszugeben?

Anbei kleines Beispiel.

Würde mich über Hilfe freuen. Danke.

\begin{filecontents*}{test.csv}
2008,2009,2010,
0,17.084699999999998,0.0001,
0,-0.0001,-2.2115500000000003,
\end{filecontents*}

\begin{pdfdisplay}
\psset{unit=1.15mm,xunit=11.00mm}%
\def\pshlabel#1{\color{mycolor}\textsf{\tiny #1}}
\def\psvlabel#1{\color{mycolor}\textsf{\footnotesi ze #1\,\%}}
\resizebox{\width}{42mm}{
\begin{pspicture}(-0.125,-30)(5,20)%
\psaxes[axesstyle=axes,Ox=2008,Dx=1,Oy=-30,Dy=6,labelFontSize=\footnotesize,labels=all,tic ks=all,showorigin=true,linecolor=gray,tickcolor=gr ay](-0.125,-30)(-0.25,20)%
\multido{\iPosY=-30+5}{11}{\psline[linestyle=solid,linecolor=gray](-0.125,\iPosY)(6,\iPosY)}
\readpsbardata[header=true]{\data}{test.csv}
\newpsbarstyle{isstyle}{dimen=inner,fillstyle=soli d,fillcolor=mycolor,linecolor=mycolor}%
\newpsbarstyle{planstyle}{dimen=inner,fillstyle=so lid,fillcolor=black,linecolor=black}%
\psbarchart[barstyle={isstyle,planstyle},barcolsep=0.2,chartst yle=block]{\data}%

%labeling of the bar(s) within the chart
\def\data{ , 17.08, -2.21, }
\rput(-0.5,0){% %\rput(-0.5,-2.5){%
\newcounter{xVal}
\setcounter{xVal}{0}
\psforeach{\n}{\data}%
{\refstepcounter{xVal}%
\uput[90](\thexVal,\n){\tiny{\n}}%
}}
\end{pspicture}%
}
\end{pdfdisplay}
04-07-2011, 21:32
voss

Zitat:

Zitat von geek_munich

Die Balken sollen mit den Werten dynamisch beschriftet werden, klappt für positive Werte, für negative Werte wird aber in den Balken geschrieben.

Das andere Problem ist, dass ich die Textgröße der Achsenbeschriftung der horizontalen Achse nicht über "pshlabel" anpassen konnte.
Kann man hier auch angeben, dass die Achsenbeschriftung unter dem Diagramm erfolgen soll? Oder ist hier eine seperate Tabelle zu erstellen und mit geringen Abstand unter der Grafik auszugeben?

beim nächsten Mal sehe ich es mir nur an, wenn du _komplette_ Beispiele lieferst!

Code:

\documentclass{scrartcl} \usepackage{pst-eucl,pst-plot,pst-bar,graphicx} \usepackage{filecontents} \begin{filecontents*}{test.csv} 0,17.084699999999998,0.0001, 0,-0.0001,-2.2115500000000003, \end{filecontents*} \begin{document} \psset{yunit=1.15mm,xunit=11.00mm}% %\resizebox{\width}{42mm}{ \begin{pspicture}(-0.125,-30)(5,18)% \psaxes[axesstyle=axes,Ox=2008,Oy=-30,Dy=6, labelFontSize=\footnotesize\sffamily, showorigin=true,linecolor=gray, tickcolor=gray,mathLabel=false, xticksize=0 5.5cm, yticksize=0 5.5cm, xlabelOffset=0.5](0,-30)(4,18)% \psaxes[axesstyle=frame,labels=none,ticks=none](0,-30)(5,18) \readpsbardata[header=false]{\data}{test.csv}% \newpsbarstyle{isstyle}{dimen=inner,fillstyle=solid, fillcolor=blue!20,linecolor=blue!20}% \newpsbarstyle{planstyle}{dimen=inner,fillstyle=solid, fillcolor=black,linecolor=black}% \psbarchart[barstyle={isstyle,planstyle}, barcolsep=0.1,chartstyle=block]{\data}% %labeling of the bar(s) within the chart \def\data{ , 17.08, -2.21, } \rput(-0.5,0){% %\rput(-0.5,-2.5){% \newcounter{xVal} \setcounter{xVal}{0} \psforeach{\n}{\data}% {\stepcounter{xVal}% \uput[90](\thexVal,\n){\tiny{\n}}}} \end{pspicture}% \end{document}

Herbert
06-07-2011, 11:02
geek_munich

Hallo Herbert,

Danke für die Hilfe. Sorry, ich habe zwar extra ein einfaches Beispiel erstellt, aber nun weiss ich für die Zukunft, dass es wichtig ist, dies lauffähig zu machen.

Mit der Achsenbeschriftung funktioniert es nun perfekt. Danke.

Jedoch mit der Beschriftung des BarCharts habe ich noch immer ein Problem:
Bei negativen Werten sieht man Beschriftung nicht und die sollte weiter nach unten kommen. \stepcounter statt \refstepcounter hilft nicht.
Ich habe einen Ansatz entwickelt, aber habe noch Probleme damit: yVal ebenfalls festlegen und Wert aus /n in Counter speichern. Jedoch wird bei mir dann der Counter nochmals extra ausgegeben. Und dann würde ich einfach in Abhängigkeit mit \ifthenelse negativen Wert reduzieren.

Hier komplettes Beispiel (mit meinem auskommentierten Ansatz)

Danke für Vorschläge und Lösungsansätze im Voraus.

\documentclass[10pt]{scrartcl}

\usepackage{graphicx}
\usepackage{pdftricks}
\usepackage[geometry]{ifsym}
\usepackage{filecontents}

\begin{document}

\begin{filecontents*}{test.csv}
0,17.084699999999998,0.0001,
0,-0.0001,-2.2115500000000003,
\end{filecontents*}

\begin{pdfdisplay}
\psset{yunit=1.15mm,xunit=11.00mm}%
\resizebox{\width}{42mm}{
\begin{pspicture}(-0.125,-30)(5,26)%
\psaxes[axesstyle=axes,Ox=2008,Oy=-30,Dy=6,
labelFontSize=\footnotesize\sffamily,
labels=all,ticks=x,
showorigin=true,linecolor=gray,
tickcolor=gray,mathLabel=false,
xticksize=0 5.5cm, yticksize=0 5.5cm,
xlabelOffset=0.5](0,-30)(4,18)%
\multido{\iPosY=-30+5}{11}{\psline[linestyle=solid,linecolor=gray](-0.125,\iPosY)(6,\iPosY)}
\readpsbardata[header=false]{\data}{test.csv}
\newpsbarstyle{isstyle}{dimen=inner,fillstyle=soli d,fillcolor=black,linecolor=black}%
\newpsbarstyle{planstyle}{dimen=inner,fillstyle=so lid,fillcolor=black,linecolor=black}%
\psbarchart[barstyle={isstyle,planstyle},barcolsep=0.2,chartst yle=block]{\data}%

%labeling of the bar(s) within the chart
\def\data{ , 17.08, -2.21, }
\rput(-0.5,0){%
\newcounter{xVal}
\setcounter{xVal}{0}
%%%\newcounter{yVal}
\psforeach{\n}{\data}%
{\refstepcounter{xVal}%
%%%\setcounter{yVal}{\n}
%%%\addtocounter{yVal}{-3}
%%\ifthenelse{\theyVal < #0}
% wenn yVal kleiner 0
%%{ \addtocounter{yVal}{-3} }
% sonst
%%{ \addtocounter{yVal}{0} }
%%%\uput[90](\thexVal,\theyVal){\tiny{\n}}%
\uput[90](\thexVal,\n){\tiny{\n}}%
}}
\end{pspicture}%
}
\end{pdfdisplay}

\end{document}
06-07-2011, 12:34
voss

Zitat:

Zitat von geek_munich

Danke für die Hilfe. Sorry, ich habe zwar extra ein einfaches Beispiel erstellt, aber nun weiss ich für die Zukunft, dass es wichtig ist, dies lauffähig zu machen.

du hast dein Beispiel wieder nicht selbst ausprobiert!

Code:

%labeling of the bar(s) within the chart \def\data{ , 17.08, -2.21, } \rput(0.5,0){% \psforeach{\n}{\data}{% \ifdim\n pt >0pt \uput[90](\psLoopIndex,\n){\tiny\n} \else \uput[-90](\psLoopIndex,\n){\tiny\n} \fi }}

Herbert
06-07-2011, 18:58
geek_munich

Danke. Perfekte Lösung: einfach und funktioniert :-)

Beispiel war ausprobiert und habe mich auch länger damit beschäftigt, bin aber noch nicht ganz tief in LaTeX bzw. PSTricks und habe es nicht geschafft zu lösen.
19-07-2011, 11:17
geek_munich

Hallo Herbert, Hallo zusammen,
ich habe noch bei Dynamik bzw. Erweiterung ein kleines Problem. Verstehe noch nicht alles ganz und mit Buch bzw. Dokumentation bin ich auch nicht ganz weiter gekommen.
Danke für weiteren Tip im Voraus.

A) Dimensionierung:
*Zahlen in der Jahreszahlenskala werden abgeschnitten. Welchen Wert muss ich erhöhen, damit dies nicht der Fall ist?
* Des weiteren gibt es Überschneidung in der Beschriftung. Wie kann ich das am besten vermeiden?
* Welche Werte sind zu ändern, damit Grafik höher wird und Balken schmäler wirken? Mit scalebox und Verzerrung will ich es nicht machen...
B) Werte und Achse sollte als % beschriftet werden. Für die Werte an den Balken hat es geklappt. In \psaxes habe ich nicht gefunden, wie man dies geht und der Befehl \def\psvlabel#1{\color{mycolor}\textsf{\footnotesi ze #1\,\%}} wird ignoriert. Ich habe nur geschafft generell Achse zu beschriften, aber sollte doch einfach möglich sein, bei jedem Wert noch % auszugeben.

Anbei kleines und getestes Beispiel.

VG, geek_munich

\documentclass[10pt]{scrartcl}
\newcommand{\MYPCT}{\%}
\usepackage{graphicx}
\usepackage{pdftricks}
\usepackage[geometry]{ifsym}
\usepackage{filecontents}
\begin{document}

\begin{filecontents*}{test.csv}
0,0,0,24.1607,-4.9669,
0,0,0,-0.0001,-0.0001,
\end{filecontents*}

\begin{pdfdisplay}
\psset{yunit=1.70mm,xunit=13.00mm}%
\resizebox{\width}{42mm}{
\begin{pspicture}(-0.125,-5)(5,35 )% % last figure streches the picture
\psaxes[axesstyle=axes,Ox=2006,Oy=-5,Dy=5,
labelFontSize=\footnotesize\sffamily,
labels=all,ticks=x,
showorigin=true,linecolor=gray,
tickcolor=gray,mathLabel=false,
xticksize=0 5.5cm, yticksize=0 5.5cm,
xlabelOffset=0.5, ylabelOffset=0.0](-0.125,-5)(4,25)[,0][$\%$,90]%
\multido{\iPosY=-5+5}{7}{\psline[linestyle=solid,linecolor=gray](-0.125,\iPosY)(5,\iPosY)}
\readpsbardata[header=false]{\data}{test.csv}
\newpsbarstyle{isstyle}{dimen=inner,fillstyle=soli d,fillcolor=black,linecolor=black}%
\newpsbarstyle{planstyle}{dimen=inner,fillstyle=so lid,fillcolor=black,linecolor=black}%
\psbarchart[barstyle={isstyle,planstyle},barcolsep=0.2,chartst yle=block]{\data}%
%labeling of the bar(s) within the chart
\def\data{ , , , 24.16, -4.97, }
\rput(0.5,0){%
\psforeach{\n}{\data}{%
\ifdim\n pt > 0pt \uput[90](\psLoopIndex,\n){\tiny\n \MYPCT{}} \fi
\ifdim\n pt < 0pt \uput[-90](\psLoopIndex,\n){\tiny\n \MYPCT{}} \fi
}}
\end{pspicture}%
}
\end{pdfdisplay}

\end{document}
19-07-2011, 13:59
voss

Zitat:

Zitat von geek_munich

Anbei kleines und getestes Beispiel.

\documentclass[10pt]{scrartcl}
\usepackage{graphicx}
\usepackage{pdftricks}
\usepackage[geometry]{ifsym}
\usepackage{filecontents}
\begin{document}
...
\psforeach{\n}{\data}{%
\ifdim\n pt > 0pt \uput[90](\psLoopIndex,\n){\tiny\n \MYPCT{}} \fi
\ifdim\n pt < 0pt \uput[-90](\psLoopIndex,\n){\tiny\n \MYPCT{}} \fi

wenn du das _getestet_ hast, dann erkläre mal, wer die PSTricks-Pakete lädt und wo das Makro \MYPCT definiert ist?

Herbert
19-07-2011, 14:27
geek_munich

ich habe es nochmals in meiner Umgebung laufen lassen. Kann es sein, dass \MYPCT gecasht wurde? Hat bei mir exakt so nochmals funktioniert...

Nach meinem Wissen lade ich über den Befehl "\usepackage{pdftricks}" die PSTricks Palette.
19-07-2011, 16:30
voss

Zitat:

Zitat von geek_munich

ich habe es nochmals in meiner Umgebung laufen lassen. Kann es sein, dass \MYPCT gecasht wurde? Hat bei mir exakt so nochmals funktioniert...

Nach meinem Wissen lade ich über den Befehl "\usepackage{pdftricks}" die PSTricks Palette.

Befehle können nicht "gecacht" werden und pdftricks lädt kein einziges PSTricks Paket ...

Herbert