Function Repository Resource:

PolygonMarker (3.0.1) current version: 4.1.0 »

Source Notebook

Create markers carefully designed for creation of publication-quality plots

Contributed by: Alexey Popkov

ResourceFunction["PolygonMarker"]["name"]

returns a unit area Polygon describing the shape "name".

ResourceFunction["PolygonMarker"][{p₁,…,p_n}]

returns a unit area Polygon with shape described by points {p₁,…,p_n} and centroid at {0,0}.

ResourceFunction["PolygonMarker"][shape, size]

returns shape of the specified size.

ResourceFunction["PolygonMarker"][shape, size, style]

returns a Graphics object suitable for PlotMarkers where the style of shape is defined by style.

ResourceFunction["PolygonMarker"][All]

returns the list of names of predefined shapes.

Details and Options

The basic usage syntax is ResourceFunction["PolygonMarker"][shape,size], where shape is the name of a predefined shape or a list of 2D coordinates describing a simple polygon. The size can be given as a number or in Scaled or Offset form.

ResourceFunction["PolygonMarker"][shape,size] returns a Polygon graphics primitive that can be used in Graphics.

ResourceFunction["PolygonMarker"][shape,size,style], where style is a list of graphics directives applied to shape, returns a Graphics object which can be used as a marker for PlotMarkers.

ResourceFunction["PolygonMarker"][shape,size,style,options] returns a Graphics object with options applied.

The centroid of Polygon generated by ResourceFunction["PolygonMarker"] is always placed at {0,0} in the internal coordinate system of Graphics.

ResourceFunction["PolygonMarker"][shape,size,positions], where positions is a list of 2D coordinates, evaluates to Translate[ResourceFunction["PolygonMarker"][shape,size],positions]. It represents a collection of multiple identical copies of shape with centroids placed at positions.

With an Offset size specification, the plot marker has a fixed size specified in printer's points, independent of ImageSize.

ResourceFunction["PolygonMarker"][shape,size] returns a Polygon with area size² in the internal coordinate system of Graphics. ResourceFunction["PolygonMarker"][shape,Offset[size]] returns a Polygon with area size² square printer’s points. The area taken by the boundary of the returned Polygon isn’t taken into account.

ResourceFunction["PolygonMarker"][All] and ResourceFunction["PolygonMarker"][] both return the complete list of names of predefined shapes.

Examples

Basic Examples (5)

Create a polygon object of "TripleCross" type:

In[1]:=

Out[1]=

The centroid of the polygon is placed at {0,0}:

In[2]:=

Out[2]=

Visualize the polygon and its centroid:

In[3]:=

Out[3]=

Get the complete list of built-in named shapes:

In[4]:=

Out[4]=

Make a Grid of Buttons with the shapes for easy selection:

In[5]:=

$Grid[{allShapes[[;; 11]], allShapes[[12 ;; 17]], allShapes[[18 ;; 21]], allShapes[[22 ;; 31]], allShapes[[32 ;;]]} /. shape_String :> Button[Tooltip[ ResourceFunction["PolygonMarker"][shape, Offset[13], {FaceForm[Hue@Random[]], EdgeForm[{Black, Thickness[0.005], JoinForm["Miter"]}]}], Row[{"\"", Style[shape, Bold], "\"", " (click to copy the name)"}]], CopyToClipboard@ToString[shape, InputForm], ImageSize -> {40, 40}, FrameMargins -> False]]$

Out[5]=

Filled markers that pick up PlotStyle and PlotTheme automatically:

In[6]:=

$fm[name_String, size_ : 8] := ResourceFunction["PolygonMarker"][name, Offset[size], EdgeForm[]]; SeedRandom[25]; ListPlot[Table[Accumulate@RandomReal[1, 10] + i, {i, 6}], PlotMarkers -> fm /@ {"Triangle", "Y", "Diamond", "ThreePointedStar", "FivePointedStar", "TripleCross"}, Joined -> True, PlotStyle -> ColorData[54, "ColorList"], PlotLegends -> PointLegend[Automatic, LegendMarkerSize -> {50, 37}, LegendLayout -> (Column[Row /@ #, Spacings -> -1] &)], ImageSize -> 450] SeedRandom[2]; ListPlot[Table[Accumulate@RandomReal[1, 10] + i, {i, 6}], PlotMarkers -> fm /@ {"Triangle", "LeftTriangle", "Diamond", "ThreePointedStar", "UpTriangleTruncated", "Square"}, PlotTheme -> "Marketing", PlotLegends -> PointLegend[Automatic, LegendMarkerSize -> {50, 35}, LegendLayout -> (Column[Row /@ #, Spacings -> -1] &)], ImageSize -> 450]$

Out[8]=

Out[10]=

Empty markers that pick up PlotStyle and PlotTheme automatically:

In[11]:=

$em[name_String, size_ : 7] := ResourceFunction["PolygonMarker"][name, Offset[size], {Dynamic@ EdgeForm@ Directive[CurrentValue["Color"], JoinForm["Round"], AbsoluteThickness[2], Opacity[1]], FaceForm[White]}, ImagePadding -> 6]; SeedRandom[2]; ListPlot[Table[Accumulate@RandomReal[1, 10] + i, {i, 3}], PlotMarkers -> em /@ {"Triangle", "Square", "Diamond"}, Joined -> True, PlotLegends -> PointLegend[Automatic, LegendMarkerSize -> {40, 25}], ImageSize -> 450] SeedRandom[3]; ListPlot[Table[Accumulate@RandomReal[1, 10] + i, {i, 3}], PlotMarkers -> em /@ {"Triangle", "Square", "Diamond"}, Joined -> True, PlotLegends -> PointLegend[Automatic, LegendMarkerSize -> {40, 25}], PlotTheme -> "Marketing", ImageSize -> 450]$

Out[13]=

Out[15]=

Filled markers with lighter filling colors:

In[16]:=

$fm2[name_String, size_ : 9] := ResourceFunction["PolygonMarker"][name, Offset@size, { Dynamic@EdgeForm[{CurrentValue["Color"], Opacity[1]}], Dynamic@FaceForm@Lighter[CurrentValue["Color"], 0.75]}]; data = Table[{x, BesselJ[k, x]}, {k, 0, 2}, {x, 0, 10, 0.5}]; ListPlot[data, PlotMarkers -> fm2 /@ {"UpTriangle", "Square", "Circle"}, Joined -> True, Frame -> True, Axes -> False, ImageSize -> 450, PlotRangePadding -> {Scaled[.05], Scaled[.1]}]$

Out[18]=

Scope (3)

Use the third argument of PolygonMarker to specify the coordinate(s) where the marker should be placed:

In[19]:=

(* Evaluate this cell to get the example input *) CloudGet["https://www.wolframcloud.com/obj/ac0ff40b-0f46-4b28-9c37-ec1c458567b9"]

Out[19]=

Construct a list plot directly from graphics primitives:

In[20]:=

data = Table[{x, BesselJ[k, x]}, {k, 0, 3}, {x, 0, 10, 0.5}];
markers = {"Circle", "ThreePointedStar", "FourPointedStar", "FivePointedStar"};
colors = {Blue, Red, Darker@Green, Darker@Yellow};
Graphics[Table[{colors[[i]], Line[data[[i]]], FaceForm[White], EdgeForm[{colors[[i]], AbsoluteThickness[1], JoinForm["Miter"]}], ResourceFunction["PolygonMarker"][markers[[i]], Offset[7], data[[i]]]}, {i, Length[data]}], AspectRatio -> 1/2, ImageSize -> 450, Frame -> True]

Out[23]=

Construct a custom list plot where open plot markers have transparent faces for each other (but not for the lines):

In[24]:=

data = Table[{x, BesselJ[k, x]}, {k, 0, 4}, {x, 0, 10, 0.5}];
markers = {"Circle", "ThreePointedStar", "FourPointedStar", "DiagonalFourPointedStar", "FivePointedStar"};
colors = {Blue, Red, Green, Yellow, Orange};
background = Darker@Gray;
Graphics[{Table[{colors[[i]], AbsoluteThickness[1.5], Line[data[[i]]],
FaceForm[background], EdgeForm[None], ResourceFunction["PolygonMarker"][markers[[i]], Offset[7], data[[i]]]}, {i, Length[data]}], Table[{FaceForm[None], EdgeForm[{colors[[i]], AbsoluteThickness[1.5], JoinForm["Miter"]}], ResourceFunction["PolygonMarker"][markers[[i]], Offset[7], data[[i]]]}, {i, Length[data]}]}, AspectRatio -> 1/2, ImageSize -> 500, Frame -> True, Background -> background, FrameStyle -> White, ImagePadding -> {{30, 20}, {25, 20}}]

Out[28]=

Neat Examples (5)

Center markers that pick up PlotStyle and PlotTheme automatically:

In[29]:=

$cfm[name_String, size_ : 9] := Show[ ResourceFunction["PolygonMarker"][name, Offset@size, { FaceForm[White], Dynamic@ EdgeForm[{CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}]}], ResourceFunction["PolygonMarker"][name, Offset[size/2], EdgeForm[None]]]; data = Table[{x, BesselJ[k, x]}, {k, 0, 2}, {x, 0, 10, 0.5}]; ListPlot[data, PlotMarkers -> cfm /@ {"UpTriangle", "Square", "Circle"}, Joined -> True, Frame -> True, Axes -> False, ImageSize -> 450, PlotRangePadding -> {Scaled[.05], Scaled[.1]}, PlotLegends -> PointLegend[Automatic, LegendMarkerSize -> {40, 30}], ImageSize -> 450]$

Out[31]=

Half-filled markers that pick up PlotStyle and PlotTheme automatically:

In[32]:=

$hfm1[name_String, size_ : 9] := Show[ ResourceFunction["PolygonMarker"][name, Offset@size, { FaceForm[White], Dynamic@ EdgeForm[{CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}]}], ResourceFunction["PolygonMarker"][name, Offset@size, EdgeForm[None]] /. {x_?Negative, y_?NumericQ} :> {0, y}]; data = Table[{x, BesselJ[k, x]}, {k, 0, 2}, {x, 0, 10, 0.5}]; ListPlot[data, PlotMarkers -> hfm1 /@ {"UpTriangle", "Square", "Circle"}, Joined -> True, Frame -> True, Axes -> False, ImageSize -> 450, PlotRangePadding -> {Scaled[.05], Scaled[.1]}, PlotLegends -> PointLegend[Automatic, LegendMarkerSize -> {40, 30}], ImageSize -> 450]$

Out[34]=

In[35]:=

$hfm2[name_String, size_ : 9] := Show[ ResourceFunction["PolygonMarker"][name, Offset@size, { FaceForm[White], Dynamic@ EdgeForm[{CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}]}], Graphics[{EdgeForm[None], Replace[RegionDifference[ResourceFunction["PolygonMarker"][name], Rectangle[{-10, -10}, {10, 0}]], p : {x_, y_} :> Offset[size p, {0, 0}], {-2}]}]]; data = Table[{x, BesselJ[k, x]}, {k, 0, 3}, {x, 0, 10, 0.5}]; ListPlot[data, PlotMarkers -> hfm2 /@ {"Diamond", "Square", "Circle", "RightTriangle"}, Joined -> True, Frame -> True, Axes -> False, ImageSize -> 450, PlotRangePadding -> {Scaled[.05], Scaled[.1]}, PlotLegends -> PointLegend[Automatic, LegendMarkerSize -> {40, 30}], ImageSize -> 450]$

Out[37]=

In[38]:=

$hfm3[name_String, size_ : 9] := Show[ ResourceFunction["PolygonMarker"][name, Offset@size, { FaceForm[White], Dynamic@ EdgeForm[{CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}]}], Graphics[{EdgeForm[None], Replace[RegionDifference[ResourceFunction["PolygonMarker"][name], Triangle[{{-10, -10}, {10, 10}, {10, -10}}]], p : {x_, y_} :> Offset[size p, {0, 0}], {-2}]}]]; data = Table[{x, BesselJ[k, x]}, {k, 0, 3}, {x, 0, 10, 0.5}]; ListPlot[data, PlotMarkers -> hfm3 /@ {"Diamond", "Square", "Circle", "DiagonalFourPointedStar"}, Joined -> True, Frame -> True, Axes -> False, ImageSize -> 450, PlotRangePadding -> {Scaled[.05], Scaled[.1]}, PlotLegends -> PointLegend[Automatic, LegendMarkerSize -> {40, 38}], ImageSize -> 450]$

Out[40]=

Contrast markers that pick up PlotStyle and PlotTheme automatically:

In[41]:=

$cfm1[name_String, size_ : 9] := Show[ ResourceFunction["PolygonMarker"][name, Offset@size, { FaceForm[White], Dynamic@ EdgeForm[{CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}]}], Graphics[{EdgeForm[None], Replace[RegionDifference[ RegionDifference[ResourceFunction["PolygonMarker"][name], Rectangle[{0, 0}, {10, 10}]], Rectangle[{0, 0}, {-10, -10}]], p : {x_, y_} :> Offset[size p, {0, 0}], {-2}]}]]; data = Table[{x, BesselJ[k, x]}, {k, 0, 3}, {x, 0, 10, 0.5}]; ListPlot[data, PlotMarkers -> cfm1 /@ {"Diamond", "Square", "Circle", "FourPointedStar"}, Joined -> True, Frame -> True, Axes -> False, ImageSize -> 450, PlotRangePadding -> {Scaled[.05], Scaled[.1]}, PlotLegends -> PointLegend[Automatic, LegendMarkerSize -> {40, 38}], ImageSize -> 450]$

Out[43]=

In[44]:=

$cfm2[name_String, size_ : 9] := Show[ ResourceFunction["PolygonMarker"][name, Offset@size, { FaceForm[White], Dynamic@ EdgeForm[{CurrentValue["Color"], AbsoluteThickness[1], Opacity[1]}]}], Graphics[{EdgeForm[None], Replace[RegionDifference[ RegionDifference[ResourceFunction["PolygonMarker"][name], Triangle[{{-10, 10}, {10, 10}, {0, 0}}]], Triangle[{{-10, -10}, {10, -10}, {0, 0}}]], p : {x_, y_} :> Offset[size p, {0, 0}], {-2}]}]]; data = Table[{x, BesselJ[k, x]}, {k, 0, 3}, {x, 0, 10, 0.5}]; ListPlot[data, PlotMarkers -> cfm2 /@ {"Diamond", "Square", "Circle", "DiagonalFourPointedStar"}, Joined -> True, Frame -> True, Axes -> False, ImageSize -> 450, PlotRangePadding -> {Scaled[.05], Scaled[.1]}, PlotLegends -> PointLegend[Automatic, LegendMarkerSize -> {40, 30}], ImageSize -> 450]$

Out[46]=

Create an auxiliary function that (approximately) converts a simple glyph into a set of points suitable for PolygonMarker:

In[47]:=

$pts[l_String] := First[Cases[ ImportString[ ExportString[Style[l, FontFamily -> "Verdana", FontSize -> 20], "PDF"], If[$VersionNumber >= 12.2, {"PDF", "PageGraphics"}, {"PDF", "Pages"}]], c_FilledCurve :> c[[2, 1]], Infinity]];$

Show a set of markers in use, including some created from glyphs:

In[48]:=

(* Evaluate this cell to get the example input *) CloudGet["https://www.wolframcloud.com/obj/518eb708-25de-40b5-892d-81a60d2eeb8f"]

Out[48]=

Black-and-white plot, where the markers overlap considerably:

In[49]:=

(* Evaluate this cell to get the example input *) CloudGet["https://www.wolframcloud.com/obj/330b55e0-edf9-4f07-80d0-73eb4a1cab64"]

Out[50]=

Use the resource functions RoundedPolygon and NotchedPolygon to make markers:

In[51]:=

(* Evaluate this cell to get the example input *) CloudGet["https://www.wolframcloud.com/obj/da8994c4-50a4-428f-89aa-a08502f82179"]

Out[51]=

Version History

4.1.0 – 08 July 2022
4.0.1 – 28 February 2022
4.0.0 – 31 January 2022
3.0.1 – 16 August 2021

Source Metadata

Citation:
- PolygonMarker. Plot markers carefully designed for creation of publication-quality plots. / Alexey Popkov // Wolfram Function Repository (2021)[Electronic resource.] – URL: https://resources.wolframcloud.com/FunctionRepository/resources/PolygonMarker.
- PolygonPlotMarkers. Polygon-based plot markers for Wolfram Mathematica. / Alexey Popkov // GitHub (2021)[Electronic resource.] – URL: https://github.com/AlexeyPopkov/PolygonPlotMarkers.
- Cleveland, W.S. 1985. The Elements of Graphing Data. Wadsworth, Monterey, CA, USA.

Related Resources

Author Notes

The original (author’s) version of the package which contains all the general-purpose functions used to generate the shapes can be found at https://github.com/AlexeyPopkov/PolygonPlotMarkers.

License Information

This work is licensed under a Creative Commons Attribution 4.0 International License