counts=BinCounts[RandomReal[{-5,5},{1000,2}]];

ArrayPlot[counts,ColorFunction->"TemperatureMap"]

ListPlot3D[counts,InterpolationOrder->0,Filling->Axis,Mesh->None]