Re: How to do ListPlot with absolute point size?
- To: mathgroup at smc.vnet.net
- Subject: [mg37936] Re: [mg37931] How to do ListPlot with absolute point size?
- From: Helge Andersson <helge at envic.chalmers.se>
- Date: Wed, 20 Nov 2002 09:09:07 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Kirk,
Using the PlotStyle-option with AbsolutePointSize[] will do it.
The TextStyle-option let you control the fontsize of the text in the plot.
Module[{d = Table[{i, Random[Real, {0, 10}]}, {i, 2000}]},
Scan[ ListPlot[d, ImageSize -> {#1, #1}, TextStyle -> {FontSize -> 12},
PlotStyle -> AbsolutePointSize[4]] &,
{1000, 500, 250, 125}]]
Beware of the optical illusion that may result from the code above.
Points in the smaller plots look larger compared with points in the larger
plots
/Helge
At 20:59 2002-11-19 -0500, you wrote:
>I wish to display a given graphic via ListPlot at various scales, in a
>way such that the points and such stay the same absolute size. The
>following shows (at least on my wintel nt4) that the axis labels and
>lines stay the same absolute size, but the points vary according to the
>ImageSize. I'd like everything to stay the same size, just get more
>spread out. For bonus points, I'd like to know how to make everything
>scale by ImageSize, as well.
>
>I'm aware of AbsolutePointSize[], but don't see how to get that into
>ListPlot.
>
><< Graphics`Graphics`
>Module[{d = Table[{i, Random[Real, {0, 10}]}, {i, 2000}]},
> Scan[
> ListPlot[d, ImageSize -> {#1, #1}] &,
> {1000, 500, 250, 125}]]
>
>Thanks in advance!