title: Mathematica - BarChart3D : How to display properly the ChartLabels?
body: <p>I would like to put the ChartLabels below the BarChart, but when I use the option 'Below' the ChartLabels are systematically cut.</p>
  
  <p>Here is my code &amp; and the figure:</p>
  
  <pre><code>data10000 = Import["results2_10000.dat"][[;; ;; 1]]
  {{0.315364, 564.876}, {4.7499, 10.4077}, {6.12522, 8.51407}, {1.26482,
     55.5532}, {628.23, 1.58626}, {0.383874, 610.822}, {}}
  
  figure3D10000 = BarChart3D[{SetPrecision[data10000[[1]], 2],
  SetPrecision[data10000[[2]], 2],
  SetPrecision[data10000[[3]], 2],
  SetPrecision[data10000[[4]], 2],
  SetPrecision[data10000[[5]], 2],
  SetPrecision[data10000[[6]], 2]
  },
  ChartLabels -&gt;
  {Placed[{
    Text[Style["contiguous", 11]],
    Text[Style["chunks(79,157)", 11]],
    Text[Style["chunks(100,100)", 11]],
    Text[Style["chunks(1000,1000)", 11]],
    Text[Style["chunks(10000,1)", 11]],
    Text[Style["chunks(1,10000)", 11]]
    },
   Below,
   Rotate[#, Pi/2.5] &amp;],
  None
  },
  LabelingFunction -&gt; Above,
  ChartElementFunction -&gt; "ProfileCube",
  ChartLegends -&gt; {Placed[{
     Text[Style["line per line", 11]],
     Text[Style["column per column", 11]]
    },
   Top]
  },
  AxesLabel -&gt; {None, None, Style["time"[s], FontSize -&gt; 11]},
  AxesStyle -&gt; {None, None, {Directive[13], Thickness -&gt; 0.004}},
  PlotRange -&gt; {All, All}
  ]
  </code></pre>
  
  <p>Unfortunately, I cannot post the figure as I am a new user. But if you test this code, you will see that the labels under the BarChart are almost not visible.</p>