3
$\begingroup$

In attempt to accurately place points in a ListPlot, I'm using custom PlotMarkers made from Graphics as described by @Mr.Wizard here, but they're coming out truncated:

ListPlot[{1, 2}, PlotMarkers ->
  Graphics[{EdgeForm[Black], FaceForm[White], Disk[]}, ImageSize -> 8, AlignmentPoint -> {0, 0}]]

enter image description here

Any ideas on how to get the whole marker to show?

$Version
(* "13.1.0 for Mac OS X ARM (64-bit) (June 16, 2022)" *)
$\endgroup$
1
  • 1
    $\begingroup$ I see the same thing "13.1.0 for Linux x86 (64-bit) (June 16, 2022)" $\endgroup$
    – mikado
    Commented Aug 30, 2022 at 21:17

1 Answer 1

5
$\begingroup$

You can fix this by adding ImagePadding -> 1:

ListPlot[{1, 2}, 
 PlotMarkers -> 
  Graphics[{EdgeForm[Black], FaceForm[White], Disk[]}, ImageSize -> 8, 
   AlignmentPoint -> {0, 0}, ImagePadding -> 1]]

out

But I recommend using ResourceFunction["PolygonMarker"] instead:

ListPlot[{1, 2}, 
 PlotMarkers -> 
  ResourceFunction["PolygonMarker"]["Circle", Offset[5], {EdgeForm[Black], FaceForm[White]}]]

out2

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

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