#対応分析(ca)を実行．
results<-ca(datca, nf=(min(nrow(datca),ncol(datca))-1))

#次元数をndimsに代入．
ndims<-min(nrow(datca),ncol(datca))-1

#サンプル（行）スコアの行ラベルとしてrowvarを使用
rownames(results$rproj)<-rowvar

#カテゴリ（列）スコアの行ラベルとしてcolvarを使用
rownames(results$cproj)<-colvar

##行スコア（個体間の関係）を全て表示
results$rproj[,1:ndims]

#列スコア（変数間の関係）を全て表示
results$cproj[,1:ndims]

#寄与率(contribution)【単位はパーセント】を表示
contribution<-100*results$evals/sum(results$evals)
print(contribution<-round(contribution, 2))