クラスタリングの結果をインタラクティブな感じで可視化する
クラスタリングをkmeansなりなんなりで行った後、散布図をその結果で色分けしたりすることがよくあるわけです。
んで、この変数とこの変数の組合せだったらどうだろうと変数を入れ替えていったりするわけですがめんどくさい。
その辺はGUIでひょいひょいとやりたい。
ということでgoogleVisを使った方法をご紹介。
clPlot <- function(data, col, cluster){ #data : 可視化したいデータ #col : データのうち可視化したい列の番号 #cluster : クラスタリング結果 require(googleVis) data <- data[, col] data$cluster <- cluster data$year <- as.Date("20000101","%Y%m%d") #ダミー data$id <- 1:nrow(data) #ダミー plot(gvisMotionChart(data, idvar="id", timevar="year")) } #こんな感じで使う。 res <- kmeans(iris[,1:4], 4) #クラスタリング clPlot(iris, col=1:ncol(iris), res$cluster)
こんな感じの結果になる。