In[]:=
freq={23,32,13,9,9,5,3,4,2};
In[]:=
DiscretePlot[freq[[x]],{x,Length@freq},ExtentSize->Full]
Out[]=
2
4
6
8
5
10
15
20
25
30