Principal component analysis (PCA)

data(USArrests);

pca = prcomp(USArrests, scale = TRUE);

plot(pca$x[,1],pca$x[,2],pch=19,xlab="PC 1",ylab="PC 2",xlim=c(-5,5)); text(pca$x[,1],pca$x[,2],labels=rownames(USArrests),pos=4);