Wolfram mathematica PieChart3D的不同图表样式

我想制作一个具有3种不同图表样式的多层3D PieChart，如下所示：

PieChart3D[{5,12,27}，{5,5,6,1,9,14,4}，{5,12,27}，
标签样式->{绿色，粗体，16}，
图表样式->{红、黄、蓝}、{黑、绿}、{青、白}]

---

但是指定的图表样式不是这样工作的，知道吗

PieChart3D图表样式文档说明“行和列样式都可能会覆盖以前的样式。”因此需要对数据进行一些处理

data = {{5, 12, 27}, {5, 5, 6, 1, 9, 14, 4}, {5, 12, 27}};
chartstyles = {{Red, Yellow, Blue}, {Black, Green}, {Cyan, White}};

d2 = Unitize[data] /. (1 -> 0);
d4 = Flatten /@ Array[(d3 = d2; d3[[#]] = data[[#]]; d3) &, Length[d2]];
c2 = Flatten[MapThread[Take[Flatten[
       ConstantArray[#2, Ceiling[Length[#1]/Length[#2]]]],
      Length[#1]] &, {data, chartstyles}]];

PieChart3D[d4, LabelStyle -> {Green, Bold, 16}, ChartStyle -> c2]

---

谢谢你，克里斯！另一个小问题，你知道吗。。。从PieChart中拉出一个切片时，如何在不使用右键单击GUI工具的情况下保存拉出的绘图？