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

個人別の指標と、チームの得失点との間に相関があるか調べてみた

setwd("e:/data")
d <- read.table("stats.txt", header=T)

library(ggplot2)
library(GGally)

ggpairs(
    d[,
        c(
            "山岡_タッチ",
            "山岡_パス出",
            "山岡_パス受",
            "山岡_保持",
            "山岡_奪取",
            "山岡_接触",
            "自チームの10分あたりの得点",
            "自チームの10分あたりの失点",
            "自チームの10分あたりの得失点",
            "勝敗"
        )
    ],
    lower = list(continuous = "smooth"),
    aes_string(
        colour="勝敗", 
        alpha=0.5
    )
)