Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

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

Search the Archive

Re: List of lists in MultipleListPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg9052] Re: [mg8936] List of lists in MultipleListPlot
  • From: John JOWETT <John.Jowett at cern.ch>
  • Date: Thu, 9 Oct 1997 01:42:31 -0400
  • Organization: CERN
  • Sender: owner-wri-mathgroup at wolfram.com

The following answer certainly works.  However it may not be obvious 
what to do when you want to use options of MultipleListPlot.  The
technique
is to construct an appropriate pure function out of MultipleListPlot,
e.g.,

d1 = Table[{x,Sin[x]},{x,0,10,.2}];
d2 = Table[{x,Cos[x]},{x,0,10,.2}];
MultipleListPlot[d1,d2,Background->RGBColor[1,.5,.5]]

> At 22:08 4-10-97 -0400, Niklas Blomberg wrote:
> >Dear all,
> >
> >I would like to plot a list of lists with MultipleListPlot but the function
> >only accepts
> >individual lists as arguments ie:
> >
> >lists={{{1,1},{2,2}},{{2,1},{2,2}}};
> >Now MultipleListPlot[lists[[1]],lists[[2]]] works fine but is cumbersome with
> >many lists.
> >
> >What I would like to do of course is to plot "lists" directly - Flatten and
> >Map do not do the trick so are
> >there any suggestions?

W. Meeussen wrote:
> 
> why resort to ...list[[n]]... if the Apply function does it for you?
> 
> Apply[ MultipleListPlot,  lists  ]
> or
> MultipleListPlot @@ lists
> 
> remember that Apply (@@) overwrites the outer Head of its argument:
> 
> p @@ q[r] gives q[r]


-- 
-------------------------------------------------------------------------
** Electronic mail: <John.Jowett at cern.ch>
   World Wide Web:  http://wwwslap.cern.ch/~jowett/
   Telephone:       +41 (0)22 76 76643 (direct line and voice mail)
   Postal address:  SL Division,   CERN,   CH-1211 Geneva 23,
Switzerland
   Fax:             +41 (0)22 76 78480
   Location:        Room 1-D18,Building 865, CERN Prevessin Site, France
   Secretaries:     +41 (0)22 76 75272 or 75875 or 74571
-------------------------------------------------------------------------


  • Prev by Date: Re: Re: Help! Sin[n Pi] (n Integer)
  • Next by Date: Re: Re: Re: AxesLabels on the MacOS, mkdk
  • Previous by thread: Re: List of lists in MultipleListPlot
  • Next by thread: Re: How to select a cell in Mathematica?