Re: User-defined or filled symbols for Points in ListPlots and Epilogs?
- To: mathgroup at smc.vnet.net
- Subject: [mg49334] Re: User-defined or filled symbols for Points in ListPlots and Epilogs?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 15 Jul 2004 06:59:56 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <cd3634$qdk$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
what is with
Block[{Point},
Point[pnts_] := Text["\[FilledCircle]", pnts];
ListPlot[data]
]
or
ListPlot[data, DisplayFunction -> Identity] /.
Point[pnt_] :> Text["\[FilledCircle]", pnt] //
Show[#, DisplayFunction -> $DisplayFunction] &
Regards
Jens
AES/newspost wrote:
>
> Are there any simple or easy ways to substitute a user-defined symbol,
> especially a "filled" symbol, for the Points in a ListPlot or Epilog?
>
> The data I want to plot is already created in lengthy lists of the form
>
> pointData = { {x1,y1}, {x2,y2}, . . . . . }
>
> which I can plot directly by using ListPlot or by putting
> Map[Point, pointData] into an Epilog. I suppose I could create filled
> circles to replace the Points in this Epilog, for example, by using
> something like
>
> Epilog->{White, Map[Disk, convertedPointData],
> Map[Circle, convertedPointData]}
>
> so that the filled opaque circles would overlay and hide the theoretical
> data lines that pass underneath them. Trying to convert my pointData
> lists into the necessary form so that I can do this has proven to be a
> frustrating exercise, however.
>
> So, is there a way to do this list conversion so that Disk and Circle
> will Map onto the resulting list? -- or, a way to redefine the point
> symbol in Point to be something more complex?
>
> (Having gotten used to the joys of Stroke and Fill in Illustrator, I'm
> frustrated that Mathematica doesn't seem to offer -- or I haven't been
> able to find -- similar graphical constructs.)