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