John,
It is easier to do without ListPlot:
Make some data,
dat= Table[Random[],{10},{3}];
Show[Graphics[{PointSize[.05],{Hue[2/3#3],Point[{#1,#2}]}&@@@dat}
],
Frame->True
];
If the points need to be joined then something like
Show[Graphics[{
Line /@Partition[dat[[All,{1,2}]],2,1],
PointSize[.05],{Hue[2/3#3],Point[{#1,#2}]}&@@@dat
}
],
Frame->True
];
--
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565
<Moranresearch at aol.com> wrote in message news:an8sm0$6r6$1 at smc.vnet.net...
> I have a list of points l1={xi,yi,zi} how can I make a 2D list plot of
> {xi,yi} where the color of each point is zi ? Thank you. John
>
>