Re: turn off symbols in MultipleListPlot?

*Subject*: [mg2505] Re: turn off symbols in MultipleListPlot?*From*: Steve.Hunka at ualberta.ca (Steve Hunka)*Date*: Wed, 15 Nov 1995 06:59:56 GMT*Approved*: usenet@wri.com*Distribution*: local*Newsgroups*: wri.mathgroup*Organization*: University of Alberta*Sender*: daemon at wri.com ( )

In article <DHtHqA.2wB at wri.com>, Mimi Lawrence <lawrencem at arlut.utexas.edu> wrote: > I'm plotting several curves of closely-spaced points using a different > line style for each under MultipleListPlot. How do I "turn off" the > symbol associated with each point? I tried a zero-size for the polygon > drawn by DotShapes, but each symbol still showed up. Since the points > are close together, the symbol shapes change what the line style is > supposed to look like. > > Thanks, > Mimi L. Here is a function which will plot the columns of a matrix as lines without the plotting symbols. mplotLists[m]; plots the values in the columns of a 2 dimensional matrix m using MultipleListPlot, but the plotting symbols are removed; up to 12 different colors are used to plot the lines after which the color cycle repeats. $LineStyles is changed. Requires: <<Graphics`MultipleListPlot` mplotLists[m_]:= Module[{pobj,mtr,indx,nr,lstyl,colr}, pobj=List[]; mtr=Transpose[m]; nr=Part[Dimensions[mtr],1]; lstyl=Table[{Thickness[0.002],RGBColor[0,1,0]},{nr}]; colr={0.,0.,0.,0.,0.,1.,0.,1.,0.,0.,1.,1., 1.,0.,0.,1.,0.,1.,1.,1.,0., .0,.0,.5,.0,.5,.0,.0,.5,.5,.5,.0,.0,.5,.0,.5}; Do[ (*replace RGB color parameters *) lstyl[[j]]=ReplacePart[lstyl[[j]],RGBColor[ colr[[1]],colr[[2]],colr[[3]]],{2}]; colr=RotateLeft[colr,3]; ,{j,1,nr}]; $LineStyles=lstyl; (*Now set line styles*) (*Now get multiplelistplot graphics object*) pobj=Apply[MultipleListPlot[##, AxesLabel->{"x","y"}, PlotJoined->True, PlotRange->All, DisplayFunction->Identity]&,mtr]; (*delete plot symbols for each plot according to indx*) indx=Transpose[{Table[1,{nr}],Range[nr],Table[1,{nr}]}]; pobj=Map[Delete[#,indx]&,{pobj}]; (*Show[pobj,DisplayFunction->$DisplayFunction];*) Return[pobj]; ]; (*end module*) Ian Collier's approach to not having symbols listed is much simpler than using a Map[Delete[#..... which is used above. steve hunka