Re: Custom Points (filled circles, etc) for Plots and ListPlots (summary)
- To: mathgroup at smc.vnet.net
- Subject: [mg49632] Re: [mg49595] Custom Points (filled circles, etc) for Plots and ListPlots (summary)
- From: DrBob <drbob at bigfoot.com>
- Date: Sun, 25 Jul 2004 02:55:35 -0400 (EDT)
- References: <200407240747.DAA05831@smc.vnet.net>
- Reply-to: drbob at bigfoot.com
- Sender: owner-wri-mathgroup at wolfram.com
DrawGraphics IS native Mathematica by now, as far as I'm concerned.
Bobby
On Sat, 24 Jul 2004 03:47:25 -0400 (EDT), AES/newspost <siegman at stanford.edu> wrote:
> Some weeks back I posted a query about generating custom symbols, such
> as filled or opaque circles, for Plots and ListPlots. The following is
> a summary of replies I received, and the solution I elected to go with.
>
> 1) The solution I elected to pursue, as suggested by "Yas" and Bob
> Hanlon, is illustrated by the following example:
>
> Needs["Graphics`Colors`"];
>
> dataPoints=Table[{Random[Real,{-1,1}],Random[Real,{-5,5}]},{10}];
>
> ListPlot[dataPoints,
> PlotJoined->True,
> PlotRange->{{-1,1},{-5,5}},
> ImageSize->5*72,
> Epilog->{
> White, Disk[#,Scaled[0.01{1, GoldenRatio}]]&/@dataPoints,
> Red, AbsoluteThickness[3],
> Circle[#, Scaled[0.01{1, GoldenRatio}]]&/@dataPoints}];
>
> Notes:
>
> * Doing it this way, with the Disk before the Circle, creates a Circle
> with a red rim and a white fill, and doing this in an Epilog puts this
> white-filled circle over each data point, hiding the lines beneath the
> circle (if that's the way you want it). Converting the Epilog to a
> Prolog draws the circles before the lines, so that the lines then
> overwrite the circles.
>
> * If I used a custom AspectRatio, I'd presumably have to substitute
> that for the GoldenRatio.
>
> * I went with this particular approach because it seems (to me, anyway)
> straightforward and readable; uses only standard Mathematica syntax and
> resources; and seems to produce straightforward and editable results
> when exported as EPS and edited in Illustrator.
>
> 2) "Jens" suggested using the Mathematica \[FilledCircle] symbol, but
> (a) I'm don't see how it differs from just a Point or Disk, i.e., I
> don't see how to adjust fill and rim color separately; and (b) I'm not
> sure (though I didn't test) whether it will produce editable EPS when
> Exported.
>
> 3) Hartmut Wolf wrote detailed suggestions on using the SymbolShape and
> other capabilities in the MultipleListPlot package (and thanks much for
> the information). This is clearly a broader and more powerful approach,
> with more capability for expansion; but also more than I needed, or
> wanted to try to absorb, for my limited needs.
>
> 4) David Park suggested that nice-looking points could be made using
> the CirclePoint[location, absolutesize, rimcolor, diskcolor] capability
> from his (?) DrawGraphics package, which I suspect would indeed be very
> good for this and other purposes, but I preferred to stay within
> "native" Mathematica as above.
>
> Thanks to all, and I hope I've not misrepresented anything here.
>
>
>
--
DrBob at bigfoot.com
www.eclecticdreams.net
- References:
- Custom Points (filled circles, etc) for Plots and ListPlots (summary)
- From: AES/newspost <siegman@stanford.edu>
- Custom Points (filled circles, etc) for Plots and ListPlots (summary)