所以我只想能够清楚地看到这些点,并摆脱向量,因为我没有解释这些,这是我的代码:
FrogPCA <- prcomp(FrogData[,3:12], center=TRUE, scale=TRUE)
summary(FrogPCA)
biplot(FrogPCA, choices = c(1,2), col = c("magenta3", "slateblue3" ))
任何帮助表示赞赏!
这个怎么样(例子是鸢尾花):
> data(iris)
> #iris
>
> IrisPCA <- prcomp(iris[, 1:3], center = TRUE, scale = TRUE)
> table(iris$Species)
setosa versicolor virginica
50 50 50
>
> plot(IrisPCA$x, col = c(rep("red", 50), rep("green", 50), rep("blue", 50)))
有一个名为 plot3D 的包可以在 3 个维度上执行相同的操作。如果它有用我可以稍后编辑。
希望能帮助到你。