Re: SymbolShape
- To: mathgroup at smc.vnet.net
- Subject: [mg19562] Re: [mg19537] SymbolShape
- From: BobHanlon at aol.com
- Date: Wed, 1 Sep 1999 23:06:59 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Charles,
Here is one example,
Needs["Graphics`MultipleListPlot`"];
data1 = Table[Sin[x], {x, 0, 2Pi, Pi/6}];
data2 = Table[Cos[x], {x, 0, 2Pi, Pi/6}];
symLabel[val_?NumericQ] := Which[
val > Sqrt[2]/2,
StyleForm["$", FontColor -> RGBColor[1, 0, 0], FontSize -> 16],
val > -Sqrt[2]/2,
StyleForm["@", FontColor -> RGBColor[0, 1, 0], FontSize -> 16],
True, StyleForm["&", FontColor -> RGBColor[0, 0, 1]] ];
MultipleListPlot[data1, data2, PlotJoined -> True,
SymbolShape -> {Label, Label},
SymbolLabel -> {Table[symLabel[data1[[k]]], {k, Length[data1]}],
Table[symLabel[data2[[k]]], {k, Length[data2]}]}];
Bob Hanlon
In a message dated 8/31/99 5:25:38 AM, pytr224 at mynet.com writes:
>Is there a way to display multiple symbol shapes for the same data set
>in
>MultipleListPlot?
>
>I need to plot multiple points for several data sets on the same plot,
>and I
>want to denote certain aspects of each point in each set by a different
>symbol shape.
>
>I can make the symbols different for each data set as per the manual, but
>I
>need to plot different shapes within each data set. I use PlotJoined->True
>to link each data set.
>