RE: How to do ListPlot with absolute point size?
- To: mathgroup at smc.vnet.net
- Subject: [mg37941] RE: [mg37931] How to do ListPlot with absolute point size?
- From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
- Date: Wed, 20 Nov 2002 09:09:17 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
>-----Original Message----- >From: Kirk Reinholtz [mailto:kirk.reinholtz at jpl.nasa.gov] To: mathgroup at smc.vnet.net >Sent: Wednesday, November 20, 2002 3:00 AM >To: mathgroup at smc.vnet.net >Subject: [mg37941] [mg37931] How to do ListPlot with absolute point size? > > >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! > Kirk, look at this: Module[{d = Table[{i, Random[Real, {0, 10}]}, {i, 2000}]}, Scan[ListPlot[d, ImageSize -> {#1, #1}, PlotStyle -> {AbsolutePointSize[7], Hue[Log[10, #1]/3]}, Background -> Hue[Mod[Log[10, #1]/3 - .5, 1.], .2, 1]] &, {1000, 500, 250, 125}]] -- Hartmut Wolf