だぞっ☆ | addY <- kmeans(mykmakari90to30$centers[c(19, 6),], 1, nstart=50) addY2 <- kmeans(mykmakari90to30$centers[c(6, 14),], 1, nstart=50) addY3 <- kmeans(mykmakari90to30$centers[c(13, 17),], 1, nstart=50) addY4 <- kmeans(mykmakari90to30$centers[c(19, 20),], 1, nstart=50) addY5 <- kmeans(mykmakari90to30$centers[c(20, 30),], 1, nstart=50) addY6 <- kmeans(mykmakari90to30$centers[c(30, 8),], 1, nstart=50) Y <- matrix( rbind(mykmakari90to30$centers, addY$centers, addY2$centers, addY3$centers, addY4$centers, addY5$centers, addY6$centers), ncol=3 ) mst <- mst(Y) plot(myakari2d0, type="n") text(mykmakari90to30$centers) segments( Y[mst$from,1], Y[mst$from,2], Y[mst$to,1], Y[mst$to,2], col="green") rect(0, 0, 256, -256, border = "red") # プロットされた図を右クリックしてコピーや保存をします |