Re: ListPointPlot3D

*To*: mathgroup at smc.vnet.net*Subject*: [mg83011] Re: ListPointPlot3D*From*: Thomas E Burton <tburton at brahea.com>*Date*: Wed, 7 Nov 2007 06:34:00 -0500 (EST)

Given data in your format, data=Table[{RandomReal[],RandomReal[],RandomReal[],RandomInteger[]}, {50}] I vaguely recall a way to use the data directly, with the fourth element determining the color. But I cannot recall the details. I tried to sort the data into two groups and then use PlotStyle to set the groups' colors, but I got bad results. The following inelegant approach seems to work. Define one color for each point: colors = (Last /@ data) /. {0 -> Blue, 1 -> Red} Then discard the last elements and isolate each point into its own list, so it will get its own color: ListPointPlot3D[{Most[#]}&/@data,PlotStyle->({#,PointSize[0.025]}&/ @colors)] It you can accept the default point size, then the above simplifies to ListPointPlot3D[{Most[#]}&/@data,PlotStyle->colors] Tom, version 6.0.1.0, Mac OS10.4.