MathGroup Archive 2007

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

Search the Archive

Re: 3D bar graph in Mathematica 6?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg76344] Re: 3D bar graph in Mathematica 6?
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Sun, 20 May 2007 02:25:47 -0400 (EDT)
  • Organization: The Open University, Milton Keynes, UK
  • References: <f2mdj3$ks6$1@smc.vnet.net>

Gordon Robertson wrote:
> I apologize if I've simply not found something that is available in  
> v6, but after spending some time trying plotting tools listed on the  
> 'Data Visualization' ToC in the new help browser, I do not see how to  
> plot a 3D bar graph, from a matrix of z (height) values. I'd prefer  
> also to assign text labels to X and or Y tic marks.  Is this simple  
> functionality available?
> 
> Thank you -
> G
> --
> Gordon Robertson
> Canada's Michael Smith Genome Sciences Centre
> Vancouver BC Canada

The following code should help you. Note that you need to load the 
package BarCharts first, then you can customize BarChart3D with the 
option Ticks that accepts a list of lists of lists of the form {{{pos 
1st x-tick, "value"},{pos 2nd x-tick, "value"},...},{{pos 1st y-tick, 
"value},...}}

Needs["BarCharts`"]
heights = {{1, 6, 8}, {2, 7, 1}, {3, 1, 4}};
BarChart3D[heights,
  Ticks -> {{{1, "1990"}, {2, "2000"}, {3, "2010"}},
           {{1, "A"}, {2, "B"}, {3, "C"}}},
     TicksStyle -> Directive[Orange, 12]]

Regards,
Jean-Marc


  • Prev by Date: Re: Curvature calculations
  • Next by Date: Re: Number of Differing Digits & Another Problem (want to see different ways it can be done)
  • Previous by thread: Re: 3D bar graph in Mathematica 6?
  • Next by thread: CurrentValue[{StyleDefinitions,"Style"}]