Re: User-defined or filled symbols for Points in ListPlots and Epilogs?
- To: mathgroup at smc.vnet.net
- Subject: [mg49348] Re: User-defined or filled symbols for Points in ListPlots and Epilogs?
- From: BobHanlon at aol.com
- Date: Fri, 16 Jul 2004 06:06:31 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Graphics`Colors`"];
pointData=Table[{x,BesselJ[5, x]},{x,0,20}];
ListPlot[pointData,
PlotJoined->True,PlotStyle->Blue,
Epilog->{Red,
Circle[#, Scaled[.01{1,GoldenRatio}]]&/@pointData},
ImageSize->400, PlotRange->All];
You can also define your own symbols using MultipleListPlot.
Bob Hanlon
> In a message dated Wed, 14 Jul 2004 11:40:20 +0000 (UTC), <
> siegman at stanford.edu> writes: 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.)
>