R语言中如何将K-means聚类后的数据集整理为独立簇？

你可以通过以下步骤将聚类结果整理成指定的簇分组格式：

1. 整合簇分配与敲击编号
   先把K-means输出的簇标签和对应的敲击编号（数据框的列名）整合到一个数据框中：

   # 构造包含簇编号和对应敲击编号的数据框
   cluster_df <- data.frame(
     敲击编号 = names(r_fit$cluster),
     簇编号 = r_fit$cluster
   )
   

2. 按簇分组并拼接内容
   使用aggregate()函数按簇编号分组，将每个簇下的敲击编号拼接成逗号分隔的字符串：

   # 按簇分组，拼接敲击编号
   cluster_groups <- aggregate(敲击编号 ~ 簇编号, cluster_df, 
                              function(x) paste("Tapping number", x, collapse = ", "))
   

   如果你的数据框列名已经是"Tapping number 1"这类格式，直接用paste(x, collapse = ", ")即可。

3. 打印指定格式的结果
   通过循环输出你想要的簇分组内容：

   # 按格式打印每个簇的内容
   for (i in 1:nrow(cluster_groups)) {
     cat(sprintf("cluster %d: %s\n", cluster_groups$簇编号[i], cluster_groups$敲击编号[i]))
   }
   

运行上述代码后，就能得到类似你要求的输出格式，清晰展示每个簇包含的敲击编号。

内容的提问来源于stack exchange，提问作者chrispeng