Mathematica - BarChart3D：ChartLabelsを正しく表示するには？

Question

私はBarChartの下にChartLabelsを配置したいと思いますが、 'Below'オプションを使用すると、ChartLabelsが体系的にカットされます。私は新しいユーザーだとして

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 -> 
{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] &], 
None 
}, 
LabelingFunction -> Above, 
ChartElementFunction -> "ProfileCube", 
ChartLegends -> {Placed[{ 
    Text[Style["line per line", 11]], 
    Text[Style["column per column", 11]] 
    }, 
Top] 
}, 
AxesLabel -> {None, None, Style["time"[s], FontSize -> 11]}, 
AxesStyle -> {None, None, {Directive[13], Thickness -> 0.004}}, 
PlotRange -> {All, All} 
] 

残念ながら、私は姿を投稿することができません。

は、ここに私のコード&図です。しかし、このコードをテストすると、BarChartの下のラベルがほとんど見えないことがわかります。

Answer 1

ImagePaddingといくつかの改善：

data10000 = {{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 -> {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] &], None}, LabelingFunction -> Above, 
    ChartElementFunction -> "ProfileCube", 
    ChartLegends -> {Placed[{Text[Style["line per line", 11]], 
     Text[Style["column per column", 11]]}, Top]}, 
    AxesLabel -> {None, None, Style["time [s]", FontSize -> 11]}, 
    AxesStyle -> {None, None, {Directive[13], Thickness -> 0.004}}, 
    PlotRange -> {All, All}, ImagePadding -> 110, ImageSize -> 600]