ggplot2を使ったboxplotと散布図を重ねたグラフを作る

read.csv("0414270504.csv")->yama #csvファイルを読み込み、yamaという名前で格納。
library(tidyverse)
library(reshape2)

g <- ggplot(yama, aes(x = Time,#x軸をTimeに
                      y = Curvature, #y軸をCurvatureに
                      color = Genotype))#Genotypeごとに色分けする
g <- g + geom_boxplot(position = position_dodge(width = 0.9))#箱ひげ図でGenotypeを時間ごとに並べる

g <- g + theme_classic()#背景をclassicに

g <- g + theme(legend.position = c(0.15,0.8),#legendの位置指定
               legend.title = element_blank()) #legendタイトルをなしに
g <- g + scale_y_continuous(breaks = seq(-40,60,20))#y軸の値を(最小値,最大値,間隔)で指定

g <- g + stat_summary(position = position_dodge(width = 0.9),
                      fun = "mean",#平均値を載せる
                      geom = "point",#funで指定された値をpointでプロット
                      shape = 22,#形を22(四角)
                      size = 2.,#プロットのサイズ
                      fill = "white")#プロットの色
g <- g + geom_point(position = position_dodge(width = 0.9),#散布図を箱ヒゲ図に重ねる
                    alpha=0.3,#透明度
                    size=1)#幅
g
こんな感じで出来上がり
bitmap