0
$\begingroup$

i'm new on mathematica and i have some issue. I need to plot an histogram with data from excel, my data are:

list={{{0., 0.}, {1., 0.}, {2., 0.}, {3., 0.}, {4., 0.}, {5., 1.}, {6., 
   2.}, {7., 3.}, {8., 3.}, {9., 8.}, {10., 5.}, {11., 7.}, {12., 
   23.}, {13., 11.}, {14., 8.}, {15., 10.}, {16., 2.}, {17., 
   2.}, {18., 0.}, {19., 1.}, {20., 0.}, {21., 1.}}, {{}}, {{}}}

I used bar charts to plot it like this:

list = Partition[Flatten[list], 2];

BarChart[list[[All, 2]], PlotLabel -> "Number of Size", 
 ChartLabels -> list[[All, 1]], ChartStyle -> "Pastel"]

I want to obtain a real histogram not BarChart. Can you help me?

$\endgroup$

Browse other questions tagged or ask your own question.