Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

I want to mimic the below image type using Mathematica's BarChart3D function. For this purpose I wrote the following code but it isn't working.

enter image description here

BarChart3D[{1, 2, 3},
   ImageSize->{550,250},LabelingFunction -> Above, 
   ChartLabels -> Placed[barChartLabels, Below], BarSpacing -> 1, 
   ChartStyle -> Green, 
   ChartElements -> (Graphics3D[{Purple, Glow[Purple], EdgeForm[Purple], 
                     Cuboid[]}, Boxed -> False]), 
   LabelStyle -> {Directive[Bold, 15], Directive[Bold, 15]}
]
share|improve this question

closed as off-topic by MarcoB, m_goldberg, Mr.Wizard Feb 1 at 6:02

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question cannot be answered without additional information. Questions on problems in code must describe the specific problem and include valid code to reproduce it. Any data used for programming examples should be embedded in the question or code to generate the (fake) data must be included." – MarcoB, m_goldberg
If this question can be reworded to fit the rules in the help center, please edit the question.

3  
Apart from barChartLabels not being defined everything seems to work as intended. What is your problem? – Sjoerd C. de Vries Dec 28 '12 at 11:31
    
Could you post a copy of what you're seeing and describe what deviations from the above plot you want to fix? – rcollyer Dec 28 '12 at 17:25
    
mainly I want to fix labels (<=Temperature,Hours) to the Left,Bottom of the Barchart.and also I have a doubt,can we make Barchart3D exact like that? – subbu Dec 29 '12 at 7:03
    
I'm voting to close this question as off-topic because the question is too localized and appears not to be of further interest to the community. – Mr.Wizard Feb 1 at 6:02

I'm not sure why you'd want to reproduce such an ugly chart, but you can get closer to it with something like this:

 BarChart3D[{, 0.8, 62.7, 0.7, 0.2, 1.3, 17.5, 241.2, 2.7, ,},
  LabelingFunction -> Above, 
  ChartElements -> Graphics3D[{EdgeForm[], Magenta, Cuboid[]}],
  AxesLabel -> {Style["<= Temperature", 14, FontFamily -> "Helvetica"],
    "", 
   Rotate[Style["Hours", 14, FontFamily -> "Helvetica"], Pi/2]},
  Ticks -> {
   {{1, "32"}, {2, "36"}, {3, "42"}, {4, "44"}, {5, "46"}, {6, "50"},
      {7, "60"}, {8, "68"}, {9, "80"}, {10, "100"}, {11, "158"}}, 
     Automatic, 
     {0, 200, 400}},
  ChartStyle -> {Yellow},
  Lighting -> "Neutral",
  PlotRange -> {0, 400},
  ViewAngle -> 0.6,
  ViewPoint -> {0., -2., 0.}, ViewVertical -> {0., 0., 1.},
  AspectRatio -> .6,
  ImageSize -> 800
 ]

crappy chart

All you've got to do now is get rid of the shiny background, switch off the perspective, pretend there's some kind of shelf, and you're nearly there. But, to be honest, you're better off with a 2D chart that doesn't distract you with dodgy perspective...

share|improve this answer
    
This is the best reproduction of the ugly chart ever! 1+ – Murta Dec 29 '12 at 18:23
    
Your code was working fine,but Barchart was not rotated , after deploying into CDF.why? – subbu Dec 31 '12 at 10:31

Not the answer you're looking for? Browse other questions tagged or ask your own question.