ででーん | mycmpakari0elv <- prcomp(myakari0elv, scale=TRUE) mykmakari36elvc3 <- kmeans(mycmpakari0elv$x, 36, nstart=50) original <- mykmakari36elvc3$centers %*% t(mycmpakari0elv$rotation) original <- scale(original, center = FALSE, scale = 1 / mycmpakari0elv$scale) original <- scale(original, center = -mycmpakari0elv$center, scale = FALSE) mykmakari36elvc3o <- as.table(original) write.table(mykmakari36elvc3o, file="clipboard", sep="\t") |
すたぱーん | myakari2d0 <- myakari3d0[ ,c(1, 2)] plot(myakari2d0, type="n")text(mykmakari36elvc3o) rect(0, 0, 256, -256, border = "red") # プロットされた図を右クリックしてコピーや保存をします |