Labeling points in a biplot

问题

I have performed a PCA and drawn a biplot in R.

pca1= princomp (~ data$X250 + data$X500 + data$shear, scores=TRUE, cor=TRUE, rownames=data[,1])
biplot(pca1, xlab="PC 1", ylab="PC 2", pch=20)

Currently the labels on the biplot are the row numbers, but I would like the point labels to be the plot names of my data. My data has 81 rows.

I have tried:

text (pca1[1:81], pca1[1:81], labels = row.names(data))
text (1:81, 1:81, labels = row.names(data))
text (pca1$comp.1[1:81], pca1$comp.2[1:81], labels = row.names(data))

回答1:

Try giving

rownames(data)<-data[,1] 

before using princomp

回答2:

If you don't want to set the rownames on your original data set ("df", below), you can also do it by passing the xlabs argument to biplot:

p<-princomp(df) 
biplot(p,xlabs=df[,1])

来源：https://stackoverflow.com/questions/20194526/labeling-points-in-a-biplot