ggplot2 群間比較

library(ggplot2)
dat <- read.csv("anova-01.csv", header=T, fileEncoding="Shift-JIS")
head(dat)

(g1 <- ggplot2::ggplot(dat, aes(x = age, y = data)))

(g2 <- g1 + geom_point())

(g3 <- g2 + theme_bw() + #背景を白紙
    geom_hline(aes(
      yintercept = 1197.967
      ),
    color = "red"
  ))

(g4 <- g3 + theme_test())

(g5 <- g4 + theme_classic())

(b1 <- ggplot2::ggplot(dat, aes(x = age, y = data)) + 
    geom_boxplot(alpha = 1.0) +  #alphaを小さくしたら箱が透ける
    labs(title = "箱ひげ図")
)

(b2 <- b1 + 
    geom_boxplot(outlier.colour=NA) + 
    geom_point(alpha=0.2)) #alphaを小さくしたらドットが透ける