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")

“ x”和“ y”的长度不同

1 个答案: