r legends with geom_bars from two different columns?

Question

I\'m trying to create a legend in ggplot for the following code:

ggplot(data=mydata.df, aes(x=State)) +
  geom_bar(aes(y=`NatAvg`), stat="identity",