だぞっ☆ | addY <- kmeans(mykmakari90to30$centers[c(5, 28),], 1, nstart=50) addY2 <- kmeans(mykmakari90to30$centers[c(1, 25),], 1, nstart=50) addY3 <- kmeans(mykmakari90to30$centers[c(23, 19),], 1, nstart=50) addY4 <- kmeans(mykmakari90to30$centers[c(29, 21),], 1, nstart=50) addY5 <- kmeans(mykmakari90to30$centers[c(2, 14),], 1, nstart=50) addY6 <- kmeans(mykmakari90to30$centers[c(29, 15),], 1, nstart=50) addY7 <- kmeans(mykmakari90to30$centers[c(2, 11),], 1, nstart=50) addY8 <- kmeans(mykmakari90to30$centers[c(14, 21),], 1, nstart=50) Y <- matrix( rbind(mykmakari90to30$centers, addY$centers, addY2$centers, addY3$centers, addY4$centers, addY5$centers, addY6$centers, addY7$centers, addY8$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") # プロットされた図を右クリックしてコピーや保存をします |