Preventing a second legend

Question

I have a ggplot, which also displays a legend:

ggplot(dt.m, aes(x=pct.on.OAC.cont,y=Number.of.Practices, fill=Age.Group)) +
    geom_bar(stat=\"identity\",po         


        

Answer 1

Use show_guide = FALSE in geom_smooth:

geom_smooth(aes(x=pct.on.OAC.cont,y=Number.of.Practices, colour=Age.Group),
            se=F, alpha=0.5, show_legend = FALSE)

This suppresses drawing a legend.