Problem in R: NAs introduced by coercion in a scatterplot

Question

I am trying to create this image, but in doing so R says the following: In plot.xy(xy, type, ...) : NAs introduced by coercion. I will attach my entire code be