在剪影图中命名集群

Question

我正在尝试命名轮廓图中的集群。有人能建议我如何命名每个剪影集群吗？

library(cluster)
data(ruspini)
pr4 <- pam(ruspini, 4)
str(si <- silhouette(pr4))
plot(si, col = c("red", "yellow", "blue", "purple"))# with cluster-wise coloring

Answer 1

它无法更改，因为绘图上的名称是来自 si 中的列 cluster 的值，这是一个双精度矩阵。如果您强制此列，整个矩阵将强制输入 character，然后 silhouette 对象的 plot 函数将不起作用。

library(cluster)
data(ruspini)
pr4 <- pam(ruspini, 4)
str(si <- silhouette(pr4))
plot(si, col = c("red", "yellow", "blue", "purple"))# 
typeof(si)
si