#新規作図ウィンドウを開く windows() #行スコア(個体間の関係):第2次元までの解を散布図に表示 plot(results$rscore[,1:2],type="n",xlab="Dimension 1", ylab="Dimesnion 2",cex.axis=0.8,cex.lab=0.8) points(results$rscore[,1:2],col="red",pch="*",cex=2) text(results$rscore[,1:2], labels=rownames(results$rscore),cex=0.9,adj=c(0.25,1.5)) abline(h=0,lty="dotted"); abline(v=0,lty="dotted") title(main="Correspondence Analysis: Row Coordinates") #新規作図ウィンドウを開く windows() #列スコア(変数間の関係):第2次元までの解を散布図に表示 plot(results$cscore[,1:2],xlab="Dimension 1", ylab="Dimension 2",type="n",cex.axis=0.8,cex.lab=0.8) points(results$cscore[,1:2],col="blue",pch="*",cex=2) text(results$cscore[,1:2], labels=rownames(results$cscore),cex=0.9,adj=c(0.25,1.5)) abline(h=0,lty="dotted"); abline(v=0,lty="dotted") title(main="Correspondence Analysis: Column Coordinates")