Try adding the parameter xpd=TRUE to your legend() statement. Without reproducible code it is pretty hard to be sure what the problem is.
---------------------------------------------- David L Carlson Associate Professor of Anthropology Texas A&M University College Station, TX 77843-4352 > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-bounces@r- > project.org] On Behalf Of Tinus Sonnekus > Sent: Sunday, September 09, 2012 1:37 PM > To: r-help@r-project.org > Subject: [R] PCA legend outside of PCA plot > > 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: tsonne...@gmail.com > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting- > guide.html > and provide commented, minimal, self-contained, reproducible code. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
