Point Size and Plot Symbols

• To: mathgroup at smc.vnet.net
• Subject: [mg30480] Point Size and Plot Symbols
• From: "David Park" <djmp at earthlink.net>
• Date: Thu, 23 Aug 2001 02:15:45 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```I changed the Subject heading to reflect the topic.

Here is a sample set of points.

pts = Table[{x, Sin[x]}, {x, 0, Pi, Pi/16}];

You can adjust the point size by using the Prolog option in ListPlot.

ListPlot[pts, Prolog -> AbsolutePointSize[4]];

You can also plot your points this way, without using ListPlot.

Show[Graphics[{AbsolutePointSize[4], Point /@ pts}],
Frame -> True];

You can plot the points with whatever symbol you wish by using routines from
the MultipleListPlot package. The following plots the points as stars.

Needs["Graphics`MultipleListPlot`"]
Needs["Graphics`Colors`"]

Show[Graphics[
{PlotSymbol[Star, 5] /@ pts}], Frame -> True];

You can even make up your own symbols using the MakeSymbol command. This
makes a black cross with a Blue dot in the center.

Show[Graphics[{MakeSymbol[{Blue, AbsolutePointSize[6], Point[{0, 0}], Black,
Line[{{1, 1}, {-1, -1}}*6], Line[{{-1, 1}, {1, -1}}*6]}] /@ pts}],
Frame -> True, ImageSize -> 500];

David Park

> From: Au Han Bin [mailto:auhb3 at cz3.nus.edu.sg]
To: mathgroup at smc.vnet.net
>
>
> i'd like to ask if i can make the dots for ListPlot bigger, or preferably
> change it to other symbols or shapes?
> desperately needing help
>
> regards, joshua_au at hotmail.com
>

```

• Prev by Date: Re: Magnifying (Scaling) Mathematica Graphics
• Next by Date: Re: Curl
• Previous by thread: Re: Triangle List <-> Adjacency List
• Next by thread: [Technical] Filters like GIMP?