MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: turn off symbols in MultipleListPlot?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg2505] Re: turn off symbols in MultipleListPlot?
  • From: Steve.Hunka at ualberta.ca (Steve Hunka)
  • Date: Wed, 15 Nov 1995 01:59:56 -0500
  • Organization: University of Alberta

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


  • Prev by Date: (fix) bizarre mathematica replacement rule error
  • Next by Date: Re: ListPlot[<list>, PlotJoined->True], but _with_ symbols?
  • Previous by thread: Re: turn off symbols in MultipleListPlot?
  • Next by thread: Re: turn off symbols in MultipleListPlot?