![]() |
ノート/R/相関行列corhttp://pepper.is.sci.toho-u.ac.jp/pepper/index.php?%A5%CE%A1%BC%A5%C8%2FR%2F%C1%EA%B4%D8%B9%D4%CE%F3cor |
![]() |
ノート/ノート
ノート/R
訪問者数 6869 最終更新 2014-07-28 (月) 16:30:15
相関行列を求めたい。
参考にしたサイト
> アイスクリーム統計学にようこそ!
1つ1つPEARSON関数を使って相関係数を入れて言った結果
( > セルに条件で色を付ける)
参考にしたサイト
> Rで相関行列corを使ってみる
サイトに載っている例
> x<-c(57,71,87,88,83,89,81,93,76,79) > y<-c(64,73,76,84,93,80,88,94,73,75) > data <- data.frame(x,y) > data x y 1 57 64 2 71 73 3 87 76 4 88 84 5 83 93 6 89 80 7 81 88 8 93 94 9 76 73 10 79 75 > cor(data) x y x 1.0000000 0.7610985 y 0.7610985 1.0000000
もう少し大きくした自分の例
> x<-c(57,71,87,88,83,89,81,93,76,79) > y<-c(64,73,76,84,93,80,88,94,73,75) > z<-c(22,35,87,88,68,59,77,83,76,69) > a<-c(33,45,85,87,69,59,76,82,75,66) > b<-c(38,70,33,55,99,59,76,82,75,66) > data <- data.frame(x,y,z,a,b) > data x y z a b 1 57 64 22 33 38 2 71 73 35 45 70 3 87 76 87 85 33 4 88 84 88 87 55 5 83 93 68 69 99 6 89 80 59 59 59 7 81 88 77 76 76 8 93 94 83 82 82 9 76 73 76 75 75 10 79 75 69 66 66 > cor(data) x y z a b x 1.0000000 0.7610985 0.8329959 0.8197852 0.2696497 y 0.7610985 1.0000000 0.6205627 0.6281379 0.6792945 z 0.8329959 0.6205627 1.0000000 0.9938493 0.1923588 a 0.8197852 0.6281379 0.9938493 1.0000000 0.1829045 b 0.2696497 0.6792945 0.1923588 0.1829045 1.0000000