散布図 g <- ggplot(d4, aes(x=d4$"奪取",y=d4$"X10分あたりの得失",color=d4$"勝敗",fill=d4$"勝敗")) g <- g+geom_point(size=1, alpha=0.5) plot(g) 回帰直線を引いてみる g <- ggplot(d4, aes(x=d4$"奪取",y=d4$"X10分あたりの得失")) g <- g + geom_poi…

g <- ggplot(d4,aes(x=d4$"勝敗",y=d4$"TOUCH比",color=d4$"勝敗",fill=d4$"勝敗")) g <- g + geom_violin(scale="count") g <- g + xlab("勝敗") g <- g + ylab("自チームのタッチ数 / 自チームのタッチ数 + 相手チームのタッチ数") plot(g) g <- ggplot(d4…

得失点と、やや相関のみられた項目について、勝敗別のヒストグラム、箱ひげ図 を書いてみる g <- ggplot(d4) g <- g + geom_histogram(aes(x=d4$"TOUCH比",fill=d4$"勝敗"), binwidth=2, alpha=0.2, position="identity") g <- g + scale_fill_manual(values…

得失点差と、やや相関がありそうな項目について、詳しくみてみる。 自チームのタッチ数 > cor.test(d4$"自チーム.10分あたりのTOUCH数", d4$"X10分あたりの得失") Pearson's product-moment correlation data: d4$自チーム.10分あたりのTOUCH数 and d4$X10分…

自分用のメモ（後で整理する） setwd("C:/pass/data") d <- read.table("stats4.txt", header=T) > colnames(d) [1] "年度" "日付" [3] "大会" "時間" [5] "自チーム名" "相手チーム名" [7] "自チーム.10分あたりのTOUCH数" "相手チーム.10分あたりのTOUCH数…