test

library(ggplot2)
x<- 1:10
date<- c("jan2016", "feb16", "mar16", "apr16", "may16", "jun16", "jul16", "aug16", "sep16", "oct16")
eo<- c(454, 440, 433, 428, 419, 416, 410, 406, 402,400)
aeo<- c(613, 628, 633, 639, 644, 655, 669,671, 678, 683)
df<- data.frame(x,date,eo,aeo)

g <-ggplot(df,aes(Date, count))+geom_point(data=df,aes(df$x, df$eo,color="EO"))+ geom_point(data=df,aes(df$x, df$aeo,color="AEO"))+ labs(color="Title")+ggtitle("         Comparison of Variables")+
coord_cartesian(ylim = c(400, 800))

gp<- g  + scale_x_continuous(breaks=1:10, labels=c("jan16", "feb16", "mar16", "apr16", "may16", "jun16","jul16", "aug16", "sep16", "oct16")) 

gp