Exploratoryツールによる因子分析を試してみる①(ノート編)
参考サイト
Exploratory カスタムRコマンドを活用した因子分析
Exploratory からCSVやExcelファイルを読み込む
Githubからパッケージインストールとライブラリ読み込み方法
今回使用するRコードが載っている参照ページ
再現手順)
(1)EXPLORATORYのプロジェクトを作成する
(2)R パッケージの確認
今回は、read.csvを使うため、readrライブラリがインストールされていることを確認します。
(3)ライブラリの読み込み
スクリプトメニューをクリック。
library(readr)と記入する。プロジェクトを開く際にスクリプトを読み込むため、下記のようにチェックする。
(4)ノートを作成する
ノートを作成する。左メニューのレポートよりノートをクリック。
下記のように、Rアイコンをクリック。
(5)Rコードを入力して実行する
下記のようにRコードを入力して、リフレッシュボタンをクリック。描画を確認する。解釈方法は、上記にも記載した参照ページを確認してください。
csv<-read.csv(file=”/Users/toshiya.murayama/Downloads/因子分析.csv”,header=T, fileEncoding=”utf8″,row.names=1)
cor_test<-cor(csv); cor_test
eigen_test<-eigen(cor_test)$values; eigen_test;
plot(eigen_test,type=”b”,main=”Scree Plot”, xlab=”NUM”, ylab=”VALUE”)
result<-factanal(x=csv,factors=2,rotation=”varimax”,scores=”Bartlett”);
result$scores
unclass(result$loadings)
par(family= “HiraKakuProN-W3”)
biplot(result$scores,result$loading,cex=1)
まとめ
今回は、ノートを活用して、カスタムスクリプトで対応してみました。もう一つの実現方法としては、データラングリングのステップとして関数を使いながら実現する方法があるようです。次回は、こちらを試してみようと思います。