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. :)