- data <- data.frame(mean = as.vector(meanPerClass), cluster = as.character(rep(1:K,
- each = dim(XY)[2])), time = rep(1:dim(XY)[2], K))
- g <- ggplot(data, aes(x = time, y = mean, group = cluster, color = cluster))
- print(g + geom_line(aes(linetype = cluster, color = cluster)) + geom_point(aes(color = cluster)) +
- ggtitle("Mean per cluster"))
-
+ data <- data.frame(mean = as.vector(meanPerClass),
+ cluster = as.character(rep(1:K, each = dim(XY)[2])), time = rep(1:dim(XY)[2], K))
+ g <- ggplot(data, aes(x = "time", y = "mean", group = "cluster", color = "cluster"))
+ print(g + geom_line(aes(linetype = "cluster", color = "cluster"))
+ + geom_point(aes(color = "cluster")) + ggtitle("Mean per cluster"))