Нарисуйте 3D бар сюжет в Mathematica

Question

Я хочу нарисовать 3D-гистограмму в Mathematica, как показано в следующей ссылке

XYZ 3D-диаграмма в Excel

Как создать сетку и создать диаграмму цилиндров? Я мог сделать по-другому в Mathematica, но это было не так хорошо, как указано в ссылке выше.

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