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.}}, {{}}, {{}}}

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

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