If you are using correspondence analysis you could see the plot.ca function in the ca library.
Petr PIKAL wrote: > Dear all > > I tried to make a biplot with color coded labels but I was not successful. > Searching archives I found that it is probably not so simple. > I found > http://tolstoy.newcastle.edu.au/R/help/05/01/10661.html > > which recommends eqscplot > > eqscplot(fit$score[,1], fit$score[,2], pch = 20, col=c(rep(2,10), > rep(3,40)), cex=2) > > http://tolstoy.newcastle.edu.au/R/help/05/01/10661.html > > or I can use plot itself, but then I was not able to find how to add > arrows. > > The closest I get is > > fit<-(princomp(USArrests, cor = TRUE)) > biplot(fit , xlabs=rep("", 50)) > points(fit$score[,1], fit$score[,2], pch = 20, col=c(rep(2,10), > rep(3,40)), cex=2) > > and use some suitable scaling before calling points. > > My question is if there is some other easier approach to get color coded > points in biplot? > > Petr Pikal > [EMAIL PROTECTED] > > ______________________________________________ > 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.
