Question

我编写了以下代码来聚类数据：

clusrer.data <- function(data,n) {
  miRNA.exp.cluster <- scale(t(miRNA.exp))
  k.means.fit <- kmeans(miRNA.exp.cluster,n)
  #i try to save the results of k-means cluster by this code : 
  k.means.fit <- as.data.frame(k.means.fit)
  write.csv(k.means.fit, file="k-meanReslut.csv")
  #x<-k.means.fit$clusters
  #write.csv(x, file="k-meanReslut.csv")
}

但我无法将群集保存到（群集）（8,6,7,20,18）之外，我想将每个群集（以列和行分隔）保存在txt文件或CSV中。

Answer 1

以下是根据群集拆分原始数据集并将该块保存到文件的一种方法。我将群集分配添加到原始数据集以便于目视检查。示例部分取自?kmeans。随意调整文件的编写方式，以及文件名的创建方式。

x <- rbind(matrix(rnorm(100, sd = 0.3), ncol = 2),
           matrix(rnorm(100, mean = 1, sd = 0.3), ncol = 2))
colnames(x) <- c("x", "y")
(cl <- kmeans(x, 2))

x <- cbind(x, cluster = cl$cluster)

by(x, INDICES = cl$cluster, FUN = function(sp) {
  write.table(sp, file = paste0("file", unique(sp$cluster), ".txt"),
              row.names = TRUE, col.names = TRUE)
})

保存群组群集到r之外

1 个答案: