Hi All,

I have been trying to get to plot my PCA legend outside of the PCA plot,
but success still alludes 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, col = r.cols, text.col = "black", lty = NULL,
pch = 20,horiz = F,)


-- 
M.J. Sonnekus
PhD Candidate (The Phytoplankton of the southern Agulhas Current Large
Marine Ecosystem (ACLME))
Department of Botany
South Campus
Nelson Mandela Metropolitan University
PO Box 77000
Port Elizabeth
South Africa
6031

Cell: 082 080 9638
E-mail: tsonnekus@gmail.com

	[[alternative HTML version deleted]]

