A bar geom makes the height of the bar proportional to:
The current/geom_bar.html layer is used to produce 1d area plots:
geom_col() = geom_bar(stat="identity")
geom_bar plots by default the number of case. If you want a sum, you need to used the weight aesthetic.