ggplot 2を使ってmeanplotをグループ（ジェンダー分析）で作成する方法は？

Question

さて、私はggplot2を使用してRに次のプロットを作成したいと思います： Gender based meanplot

ここで示された出力を生成するために、実際のコードです：

mydataは3と観測のデータフレームである

boxplot(mydata$socialanxiety~mydata$sex1, 
+ horizontal=F, col = "gray", na.action=na.omit) 

plotmeans(socialanxiety~sex1,xlab="Gender", ylab="Anxiety", 
+ main="Mean Plot", data = mydata) 
stripchart(mydata$socialanxiety~mydata$sex1,vertical=F, 
+   xlab='Anxiety') 
meanvec = tapply(mydata$socialanxiety,mydata$sex1,mean) 
abline(h=1:2,lty=2,col="black") 
points(meanvec,1:2, pch=17, col="red", cex=2) 

コラム：

• socialanxiety：患者の社会不安のレベル
• sex1：患者
• groupの性別：患者は

PSを属するグループは：これらは架空のデータです。

は、我々はいくつかのサンプルデータなしで多くを行うことはできません事前に

Answer 1

set.seed(1) 
n <- 100 
mydata <- data.frame(socialanxiety=rnorm(n), 
      sex1=sample(c(1,2),n,replace=T)) 

library(ggplot2) 
ggplot(data=mydata, aes(x=sex1, y=socialanxiety)) + 
geom_point(pch=0, size=3) + 
stat_summary(fun.y = mean, color = "red", geom = "point", aes(group=sex1), size=5, pch=17)+ 
geom_vline(aes(xintercept=as.numeric(sex1)), lty=2) + 
scale_x_continuous(breaks=c(1,2), labels=c("F", "M")) + 
coord_flip() + theme_bw()