How to do ListPlot with absolute point size?
- To: mathgroup at smc.vnet.net
- Subject: [mg37931] How to do ListPlot with absolute point size?
- From: Kirk Reinholtz <kirk.reinholtz at jpl.nasa.gov>
- Date: Tue, 19 Nov 2002 20:59:31 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
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!