Re: Colored ListPlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg9041] Re: Colored ListPlot*From*: tburton at cts.com (Tom Burton)*Date*: Thu, 9 Oct 1997 01:42:20 -0400*Organization*: Brahea Consulting*Sender*: owner-wri-mathgroup at wolfram.com

On 7 Oct 1997 03:14:01 -0400, in comp.soft-sys.math.mathematica you wrote: If it is possible I would like to ListPlot["list"], where list of points in the plane, but with the following quality. The points will be joined (easily done with PlotJoined-> True), and they should have a color function assigned to them so that the color of each joining line is determined in some way by the points on the ends. ------------ First, you can do this easily (perhaps not so easily at first) without ListPlot: In[10]:= data = Table[{i,Sin[i]},{i,0,10,.1}]; In[11]:= Show[Graphics[ Partition[data,2,1] /.{p1_,p2_}:>{Hue[0.25(2+Last[p1+p2])],Line[{p1,p2}]}, Axes->True]] Explanations of In[11]: Line [11]/2: Partition the data into overlapping pairs of points {{p1,p2},{p2,p3},...}, where p1=={x1,y1}, etc. Line [11]/3: Rewrite each pair {p1,p2} as {Hue[0.25(2+Last[p1+p2])],Line[{p1,p2}]}. This keys the color of each line segment to the midpoint y-value of the segment. The Hue function expects a real argument in the range [0,1] and will Mod its argument back onto this domain if needed. Line [11]/4: Turn on axes and axis labels. If ListPlot does something for you that Graphics does not, then You can also superimpose this plot on a ListPlot using Show as explained in the Mathematica Book. Hope this helps. Tom Burton