David,
Since you provided no code or data sample it is not clear what you are trying to plot. Maybe this?
points = {{2, 0}, {2, 2}, {2, -2}} ListPlot[{{Style[points[[1]], Green]}, Style[points[[2 ;; 3]], Red]}]
