2

我是 R 新手，我正在尝试为我的聚类算法生成一系列数字。现在我正在使用以下代码：

ggplot(df,aes(x=V1,y=V2)) + 
geom_point(aes(colour = factor(cluster)),alpha=0.7) +
scale_colour_manual(values=c("purple", "green","orange","black")) +
ggtitle("Visualizing users and their K-Means Euclidean Clusters")

如您所见，我有四个集群，它们是 k-means 的结果。现在我想在我的情节上显示一些文字。例如在下图中：

在此处输入图像描述

我需要此图中显示的每个集群（或任何类似集群标签的文本）的平均值（例如绿色区域上的 0.5）。我想我应该 geom_text 为此目的，但不幸的是我不知道怎么做。任何帮助深表感谢。

谢谢

4

1 回答 1

2

尝试这个

library(ggplot2)
cl <- kmeans(iris[, 1:2], 3, nstart = 25)
ggplot(transform(iris[, 1:2], cl = factor(cl$cluster)), 
       aes(x = Sepal.Length, y = Sepal.Width, colour = cl)) +
  geom_point() + 
  scale_colour_manual(values=c("purple", "green","orange")) + 
  annotate("point", x = cl$centers[, 1], y = cl$centers[, 2], size = 5, colour = c("purple", "green","orange")) + 
  annotate("text", x = cl$centers[, 1], y = cl$centers[, 2], font = 2, size = 10,
           label = apply(cl$centers, 1, function(x) paste(sprintf('%02.2f', x), collapse = ",") ), 
           colour = c("purple", "green","orange") )

在此处输入图像描述

于 2015-07-02T00:18:23.623 回答