如何在r中标记k-means簇

关于kmeans群集的wikibook（）提供了一个示例群集分析：

是否可以修改代码，以便从每个集群生成标签？下图未显示正在比较的内容。有三个集群，但每个集群的名称是什么

以下是生成图形的代码：

# import data (assume that all data in "data.txt" is stored as comma separated values)
x <- read.csv("data.txt", header=TRUE, row.names=1)

# run K-Means
km <- kmeans(x, 3, 15)

# print components of km
print(km)

# plot clusters
plot(x, col = km$cluster)
# plot centers
points(km$centers, col = 1:2, pch = 8)

导入数据（假设“data.txt”中的所有数据都存储为逗号分隔的值）

---

x正如我在评论中提到的，集群已经用颜色“标记”，不同的颜色与集群成员相关。要绘制“簇标签”，可以使用：

plot(x, type='n')
text(x, labels=km$cluster, col=km$cluster)

---

这应绘制“簇名”而不是点，并按簇为标签上色。

簇在显示的图中没有标记，但按簇上色（例如，红色点来自一个簇，黑色点来自另一个簇，等等）。当你说“集群名称”是什么意思？@ialm为了描述哪些集群彼此接近，每个集群都有一个标签可能很有用，但颜色足够了，thanksI还添加了一个答案来绘制实际的标签，如果你真的想要的话！