ONLY DO WHAT ONLY YOU CAN DO

こけたら立ちなはれ 立ったら歩きなはれ

R で 散布図行列 ~少年サッカー データ分析~

自分用のメモ(後で整理する)

setwd("C:/pass/data")
d <- read.table("stats4.txt", header=T)

> colnames(d)
 [1] "年度"                           "日付"                          
 [3] "大会"                           "時間"                          
 [5] "自チーム名"                     "相手チーム名"                  
 [7] "自チーム.10分あたりのTOUCH数"   "相手チーム.10分あたりのTOUCH数"
 [9] "TOUCH比"                        "自チーム.10分あたりのKEEP数"   
[11] "相手チーム.10分あたりのKEEP数"  "KEEP比"                        
[13] "自チーム.KEEP/TOUCH"            "相手チーム.KEEP/TOUCH"         
[15] "X10分あたりの得点"              "X10分あたりの失点"             
[17] "X10分あたりの得失"              "パス"                          
[19] "個人のキープ"                   "奪取"                          
[21] "接触"                           "回数の標準偏差"                
[23] "送出の標準偏差"                 "受取の標準偏差"                
[25] "保持の標準偏差"                 "奪取の標準偏差"                
[27] "接触の標準偏差"                 "勝点"                          
[29] "勝敗"                          
 
library(psych)
psych::pairs.panels(d4[,c("自チーム.10分あたりのTOUCH数", "相手チーム.10分あたりのTOUCH数", "TOUCH比", "X10分あたりの得点", "X10分あたりの失点", "X10分あたりの得失")])

f:id:fornext1119:20180123125302p:plain

psych::pairs.panels(d4[,c("自チーム.10分あたりのKEEP数", "相手チーム.10分あたりのKEEP数", "KEEP比", "X10分あたりの得点", "X10分あたりの失点", "X10分あたりの得失")])

f:id:fornext1119:20180123125407p:plain

psych::pairs.panels(d4[,c("TOUCH比", "KEEP比", "自チーム.KEEP_TOUCH", "相手チーム.KEEP_TOUCH", "X10分あたりの得点", "X10分あたりの失点", "X10分あたりの得失")])

f:id:fornext1119:20180123125526p:plain

psych::pairs.panels(d4[,c("パス", "個人のキープ", "奪取", "接触", "X10分あたりの得点", "X10分あたりの失点", "X10分あたりの得失")])

f:id:fornext1119:20180123125635p:plain

psych::pairs.panels(d4[,c("回数の標準偏差", "送出の標準偏差", "受取の標準偏差", "保持の標準偏差", "奪取の標準偏差", "接触の標準偏差", "X10分あたりの得点", "X10分あたりの失点", "X10分あたりの得失")])

f:id:fornext1119:20180123125725p:plain