expdata <- mydata[,c(15,94)]
    ExpPlot <- ggplot(expdata,aes(x="Expenses", y=expdata$OpEx))+
    geom_jitter(alpha=.2,aes(color=expdata$Color),na.rm=T)+
    scale_color_manual(breaks = c("a", "b", "c","d"), values=c("red", "blue", "green", "purple"))