How can I make a barchart?

Question

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.

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]}
]

Answer 1

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
 ]

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...