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