#第二主成分までの主成分得点を散布図に表示．

plot(pcscores[,1],pcscores[,2],type="n",xlab="PC 1", ylab="PC 2")

text(pcscores[,1],pcscores[,2], labels=rowvar)

abline(h=0,lty="dashed")

abline(v=0,lty="dashed")