ListPlot[{{0, 0}, {1, 1}, {3, 2}}, PlotMarkers ->
Graphics[{EdgeForm[{Thick, Blue}], FaceForm[White],
Rectangle[{0, 0}]}, ImageSize -> 12],
PlotRangeClipping -> False]
Bei Interesse komme ich gerne zum Mathematica-6-Kurs-Geben nach Zürich,
am liebsten nächste Woche, da ist nämlich alljährliche Tangowoche
Zürich ...
MfG,
Rolf
On Thu, 2007-07-26 at 14:56 +0200, Frank Küster wrote:
> Rolf Mertig <rolfm@XXXXXXX.com> wrote:
>
> > Hallo,
> > das geht doch jetzt ganz schick und einfach mittels, z.B., :
> >
> > ListPlot[{{0, 0}, {1, 1}, {3, 2}}, PlotMarkers ->
> > Graphics[{Thick, Blue, Circle[{0, 0}, 1]}, ImageSize -> 12],
> > PlotRangeClipping -> False]
>
> Dankeschön - kurz vor Lesen der Antwort hatte ich selber etwas ähnliches
> herausgefunden. Jetzt stehe ich vor der nächsten Frage: Wie geht es
> mit anderen Formen?
>
> ListPlot[{{0, 0}, {1, 1}, {3, 2}}, PlotMarkers ->
> Graphics[{Thick, Blue, Rectangle[{0, 0}]}, ImageSize -> 12],
> PlotRangeClipping -> False]
>
> klappt zufällig, aber mit ImageSize->120 sind die Quadrate riesig (die
> Plotfläche aber seltsamerweise nicht verändert).
> Rectangle[{0,0},{0.1,0.1}] oder so scheint auch nichts zu verändern, und
> ein offenes Rechteck kriege ich so auch nicht hin. Mit \[Square]
> scheint es auch nicht zu gehen.
>
> TIA, Frank
>