R 自组织映射（SOM）中的越界错误

我有一个大数据集“nm”：

我试图在该数据上绘制自组织图（SOM）：

library(kohonen)

som_grid = somgrid(xdim = 20, ydim=20 , topo="hexagonal")

zx = as.matrix(nm)

som_model = som(zx,
                grid=som_grid,
                rlen=100,
                alpha=c(0.05,0.01),
                keep.data = TRUE)

som_cluster = cutree(hclust(dist(as.numeric(unlist(som_model$codes)))), 4)

plot(som_model, type="codes", bgcol=rainbow(4)[som_cluster])

到目前为止，此代码工作正常，但当我添加群集边界时，会出现以下错误：

add.cluster.boundaries(som_model, som_cluster)
Error in nb[i, 1] : subscript out of bounds

我不知道如何纠正这个错误，或者我做错了什么

---

请提供解决方案。谢谢

问题在于您的

som_集群

-您的方法生成的向量长于

som_模型

中的单元数。请尝试以下方法

som_cluster = cutree(hclust(object.distances(som_model,"codes")), 4)

---

谢谢你的解决方案！！

som_cluster = cutree(hclust(object.distances(som_model,"codes")), 4)