How do you create a two scale line and bar graph hybrid in R with GGPLOT? [closed]