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分あたりの得失")])
psych::pairs.panels(d4[,c("自チーム.10分あたりのKEEP数", "相手チーム.10分あたりのKEEP数", "KEEP比", "X10分あたりの得点", "X10分あたりの失点", "X10分あたりの得失")])
psych::pairs.panels(d4[,c("TOUCH比", "KEEP比", "自チーム.KEEP_TOUCH", "相手チーム.KEEP_TOUCH", "X10分あたりの得点", "X10分あたりの失点", "X10分あたりの得失")])
psych::pairs.panels(d4[,c("パス", "個人のキープ", "奪取", "接触", "X10分あたりの得点", "X10分あたりの失点", "X10分あたりの得失")])
psych::pairs.panels(d4[,c("回数の標準偏差", "送出の標準偏差", "受取の標準偏差", "保持の標準偏差", "奪取の標準偏差", "接触の標準偏差", "X10分あたりの得点", "X10分あたりの失点", "X10分あたりの得失")])