Re: newby plotting question
- To: mathgroup at smc.vnet.net
- Subject: [mg22786] Re: newby plotting question
- From: Scot Hawkins <sah at muriel.physics.uiowa.edu>
- Date: Sat, 25 Mar 2000 03:58:23 -0500 (EST)
- Organization: The University of Iowa
- References: <8b9orp$9dj@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
The method I prefer for combining multiple graphics is the DisplayTogether
command. It doesn't require typing DisplayFunction to suppress the individual
plots.
<<Graphics`
DisplayTogether[
ListPlot[mean, PlotStyle -> RGBColor[0, 0, 0]],
ListPlot[mean + Sqrt[var], PlotStyle -> RGBColor[1, 0, 0]],
ListPlot[mean - Sqrt[var], PlotStyle -> RGBColor[0, 1, 0]]];
Also consider using <<Graphics`Colors` to use colors by name ---
PlotStyle->Red
Scot
"F. Schwieterman" wrote:
> I have three lists I want to plot on the same graph, in different colors.
> My code went as follows:
> (mean and var are lists of numbers, of the same length)
>
> p1 = ListPlot[ mean, PlotRange->All];
> p2 = ListPlot[ mean + Sqrt[var],
> DefaultColor -> RGBColor[0,1,0], PlotRange->All];
> p3 = ListPlot[ mean - Sqrt[var],
> DefaultColor -> RGBColor[1,0,0], PlotRange->All]];
> Show[p1,p2,p3];
>
> But this unfortunately draws p1, p2, and p3 on separate plots before drawing
> all three on a single plot, and they were all black on the last plot anyhow.
>
> So I was clever, and came up with the following:
>
> Show[
> ListPlot[ mean, PlotRange->All],
> ListPlot[ mean + Sqrt[var],
> DefaultColor -> RGBColor[0,1,0], PlotRange->All],
> ListPlot[ mean - Sqrt[var],
> DefaultColor -> RGBColor[1,0,0], PlotRange->All]]
>
> Which produces the same result. ugh. Any advice?
>
> best karma to the best answers. :)