Вот что я мог придумать:
dat <-
structure(list(kNN = c(1.10483870967742, 1.52150537634409, 1.27150537634409,
2.02083333333333, 0.770833333333333, 4.02040816326531, 0.621052631578947,
0.770833333333333, 3.35416666666667, 2.02083333333333, 1.45031055900621,
0.871978021978022, 4.02040816326531, 3.52061855670103, 1.52150537634409
), kMeans = c(2.01992753623188, 2.01204819277108, 2.01992753623188,
2.01992753623188, 2.01992753623188, 2.01204819277108, 2.01992753623188,
2.01992753623188, 2.01992753623188, 2.01992753623188, 2.01204819277108,
2.01992753623188, 2.01992753623188, 2.01992753623188, 2.01992753623188
), expected = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, -1, -1, 1, 0
)), .Names = c("kNN", "kMeans", "expected"), class = "data.frame", row.names = c(NA,
-15L))
plot(dat$kNN, dat$kMeans, col=dat$expected+2)