Unable to generate a legend in ggplot2 for mixed geoms

Question

I\'m using ggplot2 to generate a plot with a geom_line and a geom_bar, separate colors, with a legend indicating what each is.

Following the adv