General function for making biplots
Function bplot
creates biplots on the basis matrices of row
and column markers.
bplot(Fr,G,rowlab=rownames(Fr),collab=rownames(G),qlt=rep(1,nrow(Fr)), refaxis=TRUE,ahead=T,xl=NULL,yl=NULL,frame=F,qltlim=0,rowch=19, colch=19,qltvar=NULL,rowcolor="red",colcolor="blue",rowmark=TRUE, colmark=TRUE,rowarrow=FALSE,colarrow=TRUE,markrowlab=TRUE, markcollab=TRUE,xlab="",ylab="",cex.rowlab=1,cex.rowdot=0.75, cex.collab=1,cex.coldot=0.75,cex.axis=0.75,lwd=1,arrowangle=10,...)
Fr |
matrix with coordinates of the row markers. |
G |
matrix with coordinates of the column markers. |
rowlab |
vector with labels for the rows. |
collab |
vector with labels for the columns. |
qlt |
goodness of fit of the rows. |
refaxis |
draw coordinate system |
ahead |
put a head on the vectors |
xl |
limits for the x-axis. |
yl |
limits for the y-axis. |
frame |
draw a box around the plot |
qltlim |
draw only the vectors with a goodness of fit larger than |
rowch |
character used for the row markers. |
colch |
character used for the column markers. |
qltvar |
vector with the goodness of fit of each variable. |
rowcolor |
colour used for the row markers. |
colcolor |
colour used for the column markers. |
rowmark |
show row markers ( |
colmark |
show column markers ( |
rowarrow |
draw vectors from the origin to the row markers ( |
colarrow |
draw vectors from the origin to the column markers ( |
markrowlab |
depict row marker labels ( |
markcollab |
depict column marker labels ( |
xlab |
a label for the x-axis. |
ylab |
a label for the y-axis. |
cex.rowlab |
expansion factor for the row labels. |
cex.rowdot |
expansion factor for the row markers. |
cex.collab |
expansion factor for the column labels. |
cex.coldot |
expansion factor for the column markers. |
cex.axis |
expansion factor for the axis. |
lwd |
line width for biplot vectors. |
arrowangle |
angle for the edges of the arrowhead. |
... |
extra arguments for plot. |
None. The function produces a graphic.
Jan Graffelman (jan.graffelman@upc.edu)
set.seed(123) X <- matrix(runif(40),byrow=TRUE,ncol=4) colnames(X) <- paste("X",1:ncol(X),sep="") out.pca <- princomp(X,cor=TRUE) Fp <- out.pca$scores Gs <- as.matrix(unclass(out.pca$loadings)) bplot(Fp,Gs,colch=NA)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.