#新規作図ウィンドウを開く
windows()

#行スコア（個体間の関係）：第2次元までの解を散布図に表示
plot(results$rproj[,1:2],type="n",xlab="Dimension 1", ylab="Dimesnion 2",cex.axis=0.8,cex.lab=0.8)
points(results$rproj[,1:2],col="red",pch="*",cex=2)
text(results$rproj[,1:2], labels=rownames(results$rproj),cex=0.9,adj=c(0.25,1.5))
abline(h=0,lty="dotted"); abline(v=0,lty="dotted")
title(main="Row Coordinates")

#新規作図ウィンドウを開く
windows()

#列スコア（変数間の関係）：第2次元までの解を散布図に表示
plot(results$cproj[,1:2],xlab="Dimension 1", ylab="Dimension 2",type="n",cex.axis=0.8,cex.lab=0.8)
points(results$cproj[,1:2],col="blue",pch="*",cex=2)
text(results$cproj[,1:2], labels=rownames(results$cproj),cex=0.9,adj=c(0.25,1.5))
abline(h=0,lty="dotted"); abline(v=0,lty="dotted")
title(main="Column Coordinates")