Desenhe o gráfico de barras 3D no Mathematica

Question

Eu quero desenhar um gráfico de barras 3D em mathematica, como mostrado no link a seguir

Gráfico 3D XYZ no Excel

Como você cria uma grade e cria um gráfico de cilindro? Eu era capaz de fazer de uma maneira diferente no Mathematica, mas não era tão bom quanto o fornecido no link acima.

    

Answer 1

Criar algo assim é muito fácil nesse caso. Faça uma função que crie um Cylinder colorido para todos os seus pontos de dados e, em seguida, envolva Graphics3D em torno dele com as opções de que você gosta. Aqui está um exemplo:

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
]