plot(resrpca$factor.loadings[,1],resrpca$factor.loadings[,2],type="n",xlab="PC 1", ylab="PC 2")
text(resrpca$factor.loadings[,1],resrpca$factor.loadings[,2], labels=colvar)
abline(h=0,lty="dashed")
abline(v=0,lty="dashed")