Re: Multiple data sets with ListPlot and different PointSizes - Mesh
- To: mathgroup at smc.vnet.net
- Subject: [mg85702] Re: Multiple data sets with ListPlot and different PointSizes - Mesh
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 19 Feb 2008 07:05:17 -0500 (EST)
- Organization: Uni Leipzig
- References: <fpdvjj$rts$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
and
toDisk[{x_, y_, r_}] := Disk[{x, y}, 0.02*r]
Graphics[{{RGBColor[1, 0, 0], toDisk /@ data1}, {RGBColor[0, 1, 0],
toDisk /@ data2}}, Frame -> True]
is not simpler ??
Regards
Jens
Tibor wrote:
> Hi,
> I would like to plot a few data sets with different PointSizes using
> ListPlot.
> My format: {{x1Pos,y1Pos,dot1Size}, {x2Pos,y2Pos,dot2Size},...}
> The initial state:
> data1 = {{1, 1, 3}, {5, 5, 6}, {6, 8, 10}}
> data2 = {{1, 2, 10}, {2, 3, 5}, {6, 10, 16}}
> data3 = ...
>
> Any solution would be appreciated.
>
> I found a handy example in the help: ListPlot / Mesh / Use explicit
> styles at specific points
>
> ListPlot[Table[{x, Sin[x]}, {x, 0, 2 Pi, 2 Pi/20}], Mesh -> {Table[{x,
> Directive[Hue[x/(2 Pi)], PointSize[Medium]]}, {x,0., 2 Pi, 2 Pi/8}]},
> Joined -> True]
>
> My go:
> For a more readable code:
> data1Plot = Table[{data1[[i, 1]], data1[[i, 2]]}, {i, 1,
> Length[data1]}]
> data2Plot = Table[{data2[[i, 1]], data2[[i, 2]]}, {i, 1,
> Length[data2]}]
>
> dot1 = Table[{data1[[i, 1]], Directive[PointSize[data1[[i,
> 3]]*0.002]]}, {i, 1, Length[data1]}]
> dot2 = Table[{data2[[i, 1]], Directive[PointSize[data2[[i,
> 3]]*0.002]]}, {i, 1, Length[data2]}]
>
> Everything is fine with one data set:
> ListPlot[data1Plot, AxesOrigin -> {0, 0}, Joined -> True, Mesh ->
> {dot1}]
>
> But with 2 sets of data, Mesh just take the first argument of its list
> and mesh the two data sets the same:
> ListPlot[{data1Plot, data2Plot}, AxesOrigin -> {0, 0}, Joined -> True,
> Mesh -> {dot1, dot2}]
>
> I hope it's clear enough.
> Thank you in advance!
>