Длина 'x' и 'y' различаются

Question

Я пытаюсь определить оптимальное количество кластеров.

# Determine optimal number of clusters
wss<-rep(0,2)
wss[1]<-sum(scale(price[,2:2],scale=FALSE)^2)
for(i in 2:16)
wss[i]<-sum(kmeans(price[,2:2],centers=i)$withinss)
plot(4:2,wss,type="b",xlab="Number of clusters",ylab="Within-cluster sum of squares")

Каждая строка работает, кроме последней. Последний выдает ошибку:

Ошибка в xy.coords (x, y, xlabel, ylabel, log): Длина 'x' и 'y' различаются

Я пробовал некоторые решения из других вопросов, но не повезло. Любой совет? Спасибо огромное !!

ОБРАЗЕЦ ДАННЫХ:

    Country        Price

    Albania        1.57
    Andorra        1.24
    Azerbaijan     0.47
    Austria        1.33
    Belarus        0.73
    Belgium        1.54
    Bosnia & Herz. 1.29
    Bulgaria       1.13
    Croatia        1.44
    Czech Rep.     1.32
    Cyprus         1.28
    Denmark        1.74
    Estonia        1.41
    Finland        1.61
    France         1.67
    Georgia        0.9

Answer 1

Длина wss (переменная y) равна 16, но по оси x вы используете 4: 2 (длина равна 3).Вот почему вы получаете ошибку.

измените 4: 2 на 17: 2, чтобы сделать длину переменных x и y одинаковой.Нравится:

plot(17:2,wss,type="b",xlab="Number of clusters",ylab="Within-cluster sum of squares")