PlotMarkers with black border

I notice that when I paste my graphs in word sometimes they are not very well readable.
A colleague of mine send me a graph made with Sigmaplot.
The first figure is made with Mathematica, the second one with SigmaPlot.

I’m not be able to reproduce the black border in my PlotMarkers.
Could you help me?



2 Answers


p = Graphics[{EdgeForm[{Black, Thick}], FaceForm[Red], Disk[]}];
ListPlot[{{1, 2, 3, 5, 8}}, PlotMarkers -> {p, .1}]



Thanks a lot. Very good idea! It works also for PlotLegends!!But it’s a problem if I’ve got a lot of symbols! Is it possible to do the same for some strange characters, like [FilledDownTriangle], or [FilledUpTriangle], and so on?
– Mary
May 16 ’14 at 14:30



@Mary for reasons already explained in Alexey’s linked question & answers, character plot markers don’t align well. That’s the reason for using graphics instead
– Dr. belisarius
May 16 ’14 at 15:06

You can use a set of triangle PlotMarkers from this post of mine where halfTr is defined:

ListPlot[Flatten[Table[{{n, y}}, {y, Range[1, 3]}, {n, 20}], 1],
PlotMarkers -> Table[{s, 0.07}, {s, halfTr}],
PlotStyle -> ColorData[60, “ColorList”],
GridLines -> {Range[20], Range[3]}, PlotRange -> {{0, 21}, {0, 4}},
Axes -> False, Frame -> True]