MathGroup Archive 1995

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

Search the Archive

Re: Q:BarChart, MultipleListPlot

  • Subject: [mg2521] Re: Q:BarChart, MultipleListPlot
  • From: ianc (Ian Collier)
  • Date: Thu, 16 Nov 1995 06:44:53 GMT
  • Approved: usenet@wri.com
  • Distribution: local
  • Newsgroups: wri.mathgroup
  • Organization: Wolfram Research, Inc.
  • Sender: daemon at wri.com ( )

In article <48bvsj$3f2 at ralph.vnet.net>, Sascha at sunmail.lrz-muenchen.de,
Unzicker at lrz.uni-muenchen.de wrote:

> Maybe a stupid question:
> 
> Let a be a two-dimensional list.
> Instead of 
> BarChart[a[[1]],a[[2]],a[[3]],a[[4]]....]
> I would prefer
> BarChart[a]
> or BarChart[Table[a[[n]],{n,4}]]
> 
> but Mathematica does not like it. Same thing with MultipleListPlot.
> 
> Any suggestions?
> 
> Thanks,
> 
> Alexander

You can do this by converting the list of lists to a Sequence of
lists by Applying Sequence to the 2 dimensional list.

Here is an example using both BarChart and MultipleListPlot.

In[68]:=
    data = Table[ Random[], {4},{6} ]
Out[68]=
    {{0.648428, 0.230811, 0.442376, 0.115264, 0.966736, 
       0.650595}, {0.958428, 0.752209, 0.648651, 0.164096, 
       0.640159, 0.528314}, {0.892881, 0.928036, 0.557503, 
       0.928651, 0.87035, 0.261039}, 
      {0.874639, 0.531127, 0.635694, 0.394648, 0.093287, 
       0.735063}}

In[69]:=
    Needs[ "Graphics`Graphics`" ]
In[70]:=
    ?BarChart

    BarChart[list1, list2, ...] generates a bar chart of the
       data in the lists.

In[71]:=
    ?Sequence

    Sequence[e1,e2,...] is a special form representing a
       sequence of arguments in an expression.

In[72]:=
    Apply[ Sequence, data ]
Out[72]=
    Sequence[{0.648428, 0.230811, 0.442376, 0.115264, 0.966736, 
      0.650595}, {0.958428, 0.752209, 0.648651, 0.164096, 
      0.640159, 0.528314}, {0.892881, 0.928036, 0.557503, 
      0.928651, 0.87035, 0.261039}, 
     {0.874639, 0.531127, 0.635694, 0.394648, 0.093287, 
      0.735063}]

In[73]:=
    BarChart[ Apply[ Sequence, data ] ]
Out[73]=
    -Graphics-

In[74]:=
    Needs[ "Graphics`MultipleListPlot`" ]

In[75]:=
    MultipleListPlot[ Apply[ Sequence, data ] ,
        PlotJoined -> True]
Out[75]=
    -Graphics-

I hope this helps.

--Ian

-----------------------------------------------------------
Ian Collier
Technical Sales Support
Wolfram Research, Inc.
-----------------------------------------------------------
tel:(217)-398-0700     fax:(217)-398-0747      ianc at wri.com
Wolfram Research Home Page:             http://www.wri.com/
-----------------------------------------------------------


  • Prev by Date: [Q] how fast is each machine with Mathematica ?
  • Next by Date: RE: Re: Writing big files with Mathematica
  • Previous by thread: Q:BarChart, MultipleListPlot
  • Next by thread: Re: Q:BarChart, MultipleListPlot