Here is my code. I'm getting the plot I want but it doesn't have a legend for the colors. I have Grade.7.ELA.4s...White as green and Grade.7.Math.4s as blue and thought the scale_color_manual would create a legend but when I plot it no legend appears.
PerW.vs.7ELA4s <- ggplot(Explore, aes(Explore$Percent.White, value)) +
geom_point(aes(Percent.White, Grade.7.ELA.4s...White),
color="green", alpha=.55) +
geom_point(aes(Percent.White, Grade.7.Math.4s...White),
color="blue", alpha=.5) +
geom_smooth(aes(Percent.White, Grade.7.ELA.4s...White),
color="green", alpha=.55, se=F) +
geom_smooth(aes(Percent.White, Grade.7.Math.4s...White),
color="blue", alpha=.5, se=F) +
scale_color_manual(name="", values=c("ELA"="green", "Math"="blue")) +
labs(y="# 7th Grade ELA 4's", x="Percent White")