Desenhe o gráfico de barras 3D no Mathematica

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

XYZ 3D-chart 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.

Criar algo parecido com isso é muito fácil nesse caso. Faça uma função que crie um colorido Cylinder para todos os seus pontos de dados e, em seguida, enrole Graphics3D em torno dele com as opções 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
]