Добавить легенды к сюжету tsclust? - PullRequest
Новая
       21

Добавить легенды к сюжету tsclust?

0 голосов
/ 18 февраля 2019

У меня есть несколько кластеров, которые делают это 

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

Но когда я строю графики кластеров, я не получаю легенды о каждом временном ряду.

Мой график выглядит так

clusters

Я хочу знать, как добавить легенду, чтобы можно было различать каждый временной ряд.

Мне удалось сделать это: 

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)

legend clusters

Но с такой легендой это выглядит действительно неорганизованно, и я предпочитаюлегенда на стороне каждой коробки.

Я бы хотел получить что-то подобное для каждого кластера.(Поле с указанием каждой строки)

legend

...