x <- c(42,38,40,50,60)
y <- c(142,150,160,170,180)

color <- c("darkgreen", 
            "darkblue")
plot(x,y ,pch = 19,col = color)