R
R.package
!!!qgraph
{{outline}}
----
http://sachaepskamp.com/qgraph/examples
!インストール
{{pre
install.packages("qgraph", dependencies = T)
library("qgraph")
}}

!サンプルデータ：NICERより JPNindex
,ファイル名,エッセイスコア,述べ語数,異なり語数,文数,TTR,ギロー指数,MATTR,平均語長,平均文長,
{{pre
> JPNindex
          file Score Token Type NoS       TTR       GI     MATTR      AWL       ASL
1   JPN501.txt     4   994  260 123 0.2615694 8.246699 0.4919115 3.888330  8.081301
2   JPN502.txt     4   997  283 120 0.2838516 8.962700 0.5160281 3.925777  8.308333
3   JPN503.txt     3   561  207  70 0.3689840 8.739547 0.5566488 4.247772  8.014286
4   JPN504.txt     4   817  245 114 0.2998776 8.571465 0.4998409 4.057528  7.166667
5   JPN505.txt     4  1024  274 106 0.2675781 8.562500 0.5182812 3.676758  9.660377
6   JPN506.txt     3   638  197  93 0.3087774 7.799305 0.5082132 3.578370  6.860215
}}


!相関係数に基づきグラフを描写
*一番左のファイル名を除く
*エッジのラベルを表示
{{pre
qgraph(cor(JPNindex[,-1]),edge.labels=T )
}}
{{ref_image qgraph.png}}

*正の相関が緑
*負の相関が赤
*相関係数の大きさを線の太さで表示、