在 Mathematica 中绘制涉及三个数据轴的 3 维条形图

Question

所以我对 Mathematica 还很陌生，一直找不到在 Mathematica 的条形结构中显示三维数据的方法。但是，我能做的最好的就是代表我的数据。我的数据的格式是我对所有点都有一个三坐标结构，但我想代表每个单独的点。数据如下：

{0, 220, 0.05}, {0, 230, 0.33}, {0, 230, 0}, {0, 230, 0}, 
{0, 250, 1.04}, {0, 250, 0.26}, {0, 250, 1.01}, {0, 250, 4.83}, {0, 250, 0},
{0, 270, 2.69}, {10, 220, 0.6}, {10, 240, 1.28}, {10, 250, 0.97},
{15, 250, 0.25}, {15, 270, 3.52}

如何使图形成为三维图形，每个坐标点（所有三个轴）在图形上的单独条形图中表示，而不是平面？

Answer 1

ListPointPlot3D[{{0, 220, 0.05}, {0, 230, 0.33}, {0, 230, 0}, {0, 230,
0}, {0, 250, 1.04}, {0, 250, 0.26}, {0, 250, 1.01}, {0, 250, 
4.83}, {0, 250, 0}, {0, 270, 2.69}, {10, 220, 0.6}, {10, 240, 
1.28}, {10, 250, 0.97}, {15, 250, 0.25}, {15, 270, 3.52}}, 
Filling -> Bottom, DataRange -> All]

这是你想要的吗？

Answer 2

不确定你在追求什么 -- 注意 ListPlot3D 并不是真的有效，因为你的一些观点是相互重叠的..

 Show[{ListPlot3D[data ], Graphics3D[{PointSize[.1], Point[data]}]}]

 Show[Graphics3D@{Cuboid[{Append[#[[1 ;; 2]], 0] +
         {2, 2, 0}, # - {2, 2, 0}}] & /@ data}, Axes -> True, 
        AxesEdge -> {{-1, -1}, {1, -1}, {-1, -1}},
        BoxRatios -> {1, 2, .5}]

在 Mathematica 中绘制涉及三个数据轴的 3 维条形图

Plotting a 3 dimensional bar graph in Mathematica involving three axes of data

wolfram-mathematica