В принципе, у меня есть эти моменты. Я начал с того, что положил их в блокнот и сохранил как csv. Затем я бы загрузить CSV с
> data1 <- read.csv(file.choose(), header = FALSE)
Тогда я построил бы данные, но они не были точками, это были те странные серые блоки, которые я никогда раньше не видел.
Если бы все прошло правильно, я бы тогда запустил
data1 <- kmeans(data1, centers =2)
data1$centers
data1$clusters
и отработайте все остальное.