R で色指定～少年サッカーデータ分析～

library(reshape2)
d.melt <- melt(d, 
              measure.vars = c("自チームの10分あたりのTOUCH数", "相手チームの10分あたりのTOUCH数"), 
              variable.name = "チーム", 
              value.name = "TOUCH数"
          )

library(ggplot2)
g <- ggplot(
         d.melt, 
         aes(
             x=d.melt$"チーム",
             y=d.melt$"TOUCH数",
             colour=d.melt$"勝敗",
             fill=d.melt$"勝敗"
         )
     )
g <- g + geom_boxplot(
             alpha=0.3, 
             outlier.shape = 4
         )
g <- g + stat_summary(
             fun.y="mean",
             geom="point",
             position = position_dodge(width = .75),
             shape=4, 
             size=5
         )
g <- g + xlab("")
g <- g + ylab("10分あたりのボールタッチ回数")
g <- g + labs(colour="凡例", fill="凡例")
g <- g + theme_bw()
plot(g)

特に指定しないと、こんな色
f:id:fornext1119:20180216123956p:plain

OPEN COLOR ってサイトで好みの色を探す
yeun.github.io

g <- g + scale_color_manual(values = c("#cc5de8", "#5c7cfa", "#f783ac"))
g <- g + scale_fill_manual(values  = c("#cc5de8", "#5c7cfa", "#f783ac"))
plot(g)