在轮廓图中命名簇

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

无法更改，因为图上的名称是cluster中si列中的值，这是一个带双精度的矩阵。如果您将此列相同，则整个矩阵将强制键入character，然后plot对象的silhouette函数将无效。

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