将图例添加到tsclust图中？

Question

我有一些集群在做

cluster<-tsclust(data, type="partitional",k=6,preproc = zscore,
                       distance="dtw",centroid = "dba",trace=T, seed = 1)
plot(cluster)

但是当我绘制聚类时，我没有得到每个时间序列的图例。

我的情节看起来像这样

我想知道如何添加图例，以便区分每个时间序列。

我设法做到了：

clus_labels <- lapply(cluster@datalist, function(s) {
  # return
  data.frame(x = length(s) / 2L, y = s[length(s) / 2L])
})

clus_labels <- do.call(rbind, clus_labels)
clus_labels$label <- row.names(data)
clus_labels$cl <- cluster@cluster

clusplot <- plot(cluster, plot=F)
clusplot + 
  geom_label(aes(x=x, y=y, label=label), 
                          data=clus_labels, 
                          nudge_x=1)

但是有了这样的图例，它看起来确实杂乱无章，我更喜欢每个盒子侧面的图例。

我想为每个群集获取类似的信息。 （指定每行的框）