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?

Mathematica SigmaPlot

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

Mathematica graphics

  • $\begingroup$ 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? $\endgroup$ – Mary May 16 '14 at 14:30
  • 1
    $\begingroup$ @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 $\endgroup$ – 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]



There is also one simple option (without auxiliary functions) to do black PlotMarkers via PlotTheme.

   Table[{i + j, i}, {j, {-1, 0, 1}}, {i, 0, 5}], 

   PlotStyle -> Black,
   PlotTheme -> #] & /@ {"OpenMarkers", "OpenMarkersThick"}

enter image description here

To add some color a workaround can be to use Show and combine "OpenMarkers" with "PlotMarkers" themes (though, not very efficient).


Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.