![在 Mathematica 中绘制 3D 条形图](https://linux22.com/image/1433706/%E5%9C%A8%20Mathematica%20%E4%B8%AD%E7%BB%98%E5%88%B6%203D%20%E6%9D%A1%E5%BD%A2%E5%9B%BE.png)
我想在 Mathematica 中绘制 3D 条形图,如以下链接所示
如何创建网格和圆柱图?我可以在 Mathematica 中以不同的方式完成,但效果不如上述链接中提供的那样好。
答案1
在这种情况下,自己创建类似的东西确实很容易。创建一个函数,Cylinder
为所有数据点创建一个颜色,然后Graphics3D
用你喜欢的选项包裹它。以下是一个例子:
testData = RandomInteger[{0, 10}, {20, 3}];
Graphics3D[
Function[{x, y, z},
{RandomColor[], Cylinder[{{x, y, 0}, {x, y, z}}, 0.5]}] @@@ testData,
FaceGrids -> {{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, Boxed -> True
]