Displaying 1 result from an estimated 1 matches for "sedata".
Did you mean:
medata
2012 Sep 09
1
PCA legend outside of PCA plot
...es me.
Can you guys please advise how 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,...