r - 如何获取dtwclust的结果

Question

现在我正在使用 dtwclust 包(感谢作者 Alexis Sarda-Espinosa 和 Alexis Sarda~)

我陷入了一个简单的问题。这是我的代码。

sc <- read.table("D:/handling data/confirm.csv", header=T, sep="," )
rownames(sc) <- sc$STDR_YM_CD
sc$STDR_YM_CD <- NULL
sc <- t(sc)
hc_sbd <- dtwclust(sc, type = 'h', k=3L, method = 'average', preproc = zscore,
               distance = 'dtw', control = list(trace=TRUE) )

plot(hc_sbd@cluster)
plot(hc_sbd, type='sc')
plot(hc_sbd, type='series', clus=2)
plot(hc_sbd, type='centroids', clus=2)

head(hc_sbd)
write.xlsx(hc_sbd, "D:/handling data/tab1clustn.xlsx")

我得到了这张照片。我想导出带有集群标签的数据。就像第二张图一样。

这是我的数据链接 http://blogattach.naver.com/e772fb415a6c6ddafd137d427d9ee7953f6e9146/20170207_141_blogfile/khm2963_1486442387926_THgZRt_csv/confirm.csv?type=attachment

Answer 1

@Wayne Lee 的回答已经结束了。不需要声明data.frame，我们也不需要合并数据。

我知道的所有聚类算法都会返回一个聚类分配向量cluster，其长度与df的行数相同。因此，只需将cluster向量cbind到您的数据df:

add_cluster_to_csv<-cbind(df,cluster=hc_sbd@cluster)

这也应该减少计算时间，因为我们不使用 merge 并且 cbind 比 data.frame 快得多。

附录:

整个代码如下所示:

### Pass the data into a dataframe:
df <- read.csv('D:/handling data/confirm.csv',header=TRUE,sep=',')

### Run dtwclust:
hc_sbd <- dtwclust(sc, type = 'h', k=3L, method = 'average', preproc = zscore,
               distance = 'dtw', control = list(trace=TRUE)
cluster <- hc_sbd@cluster                   ### Extract the cluster
add_cluster_to_csv<-cbind(df,cluster)       ### Combine the original dataframe with the vector 

### Write to new csv:
write.csv(add_cluster_to_csv,'Csv_with_cluster.csv')