我已经完成了PCA并绘制了一个双标图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)
Run Code Online (Sandbox Code Playgroud)
目前双标图上的标签是行号,但我希望点标签是我的数据的图表名称.我的数据有81行.
我试过了:
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))
Run Code Online (Sandbox Code Playgroud)
如果您不想在原始数据集(“df”,如下)上设置行名称,您也可以通过将xlabs参数传递给 biplot 来实现:
p<-princomp(df)
biplot(p,xlabs=df[,1])
Run Code Online (Sandbox Code Playgroud)