Changing population bar plot to ggplot2 (#7)