RE: Questions on Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg36769] RE: [mg36752] Questions on Plot
- From: "Annetts, Dave (E&M, North Ryde)" <David.Annetts at csiro.au>
- Date: Tue, 24 Sep 2002 01:34:23 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hi Steve,
> w = Table[Point[{Random[], Random[]}], {i, 1, 4096}];
> x = Table[Point[{Random[], Random[]}], {i, 1, 4096}];
> y = Table[Point[{Random[], Random[]}], {i, 1, 4096}];
> z = Table[Point[{Random[], Random[]}], {i, 1, 4096}];
> 2. In the latter case I also want to plot 4 types of points.
> How do I get ListPlot to put down 4 plots superimposed?
> Or can't I?
You can, but you have to do it via Graphics`MulitpleListPlot`.
Load the requisite packages
Needs["Graphics`Colors`"]
Needs["Graphics`MultipleListPlot`"]
Define
cols = {Black, Red, Green, Blue};
pnts = {PlotSymbol[Triangle], PlotSymbol[Box], PlotSymbol[Diamond],
PlotSymbol[Star]};
Then
grf = MultipleListPlot[w, x, y, z,
PlotStyle->cols,
SymbolShape->pnts,
SymbolsStyle->cols
];
Documentation shows how to incorporate legends and to define other symbols.
Regards,
Dave.
==========================================
Dr. David Annetts
EM Modelling Analyst
CSIRO DEM Tel: +612 9490 5416
North Ryde Fax: +612 9490 5467
Australia David.Annetts at csiro.au
===========================================