Wolfram mathematica 在Mathematica中绘制包含三个数据轴的三维条形图

所以我对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}

如何使图形成为一个三维图形，其中每个坐标点（所有三个轴）都表示在图形上与平面相对的单个条中

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]

---

这就是您想要的吗？

不确定您想要的是什么--注意

ListPlot3D

不太合适，因为您的一些点相互重叠

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

---

不幸的是，没有。我希望它看起来像一个3D列表图，只是带有条形而不是几何斜面。然而，每当我把它画成这样，即使迭代是0，我也会得到支离破碎的高低杠。我没有意识到有些数据本身就在上面。看起来最后一个例子对我的项目最有用。非常感谢！但是，是否可以标记轴？请尝试

axes->True

选项以

Show

 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}]