Image may be NSFW.
Clik here to view.
BarChart[StringLength[StringSplit["A long time ago, in a galaxy far,far away", ","]]]
While I can follow the reason for three bars as there are 2 commas in the string, unable to grasp the reason why first unit in the x axis left empty (or with zero value).