Displaying 1 result from an estimated 1 matches for "sedata3".
2012 Sep 09
1
PCA legend outside of PCA plot
...I can achieve this. I used locater() to
obtain coordinates for below the Comp.1 axis. Using these coordinates the
legend disappears.
Below is the code for the PCA and legend.
Thanks in advance for the help.
Regards
Tinus
r.cols <- rainbow(length(unique(SEData$Seamount)))
pca1 <- princomp(SEData3, scores=TRUE, cor=TRUE)
biplot(pca1, var.axes= TRUE, xlabs=rep("",nrow(SEData3)),main="Seamounts
PCA")
rrr <- apply(pca1$scores[,1:2],2, range)
par(usr=as.vector(rrr))
points(pca1$scores[,1:2], col=r.cols , pch=20)
legend(-8, 2.95, sm, col = r.cols, text.col = "black&quo...