Problems with vertical scale in stacked area charts using geom_area in ggplot2

Question

I am trying to create a stacked area chart of 4 categories of data using geom_area in R. I am able to construct line charts for the categories using geom_line() but when I use g