散点图和箱线图叠加(Scatter plot and boxplot overlay)

 基于之前的带有散点图叠加的ggplot箱图（相同的变量） ， 
 
 我希望每周的每一天都有一个箱形图，而不是两个箱形图， 同时在它上面有不同颜色的散点图。 
 
 代码如下： 
 
#Box-plot for day of week effect
plot1<-ggplot(data=dodgers, aes(x=ordered_day_of_week, y=Attend)) + geom_boxplot()

#Scatter with specific colors for day of week
plot2<-ggplot(dodgers, aes(x=ordered_month, y=Attend, colour=Bobblehead, size=1.5)) + geom_point()

#Box-ploy with Scatter plot overlay
plot3<-ggplot(data=dodgers, aes(x=ordered_day_of_week, y=Attend, colour=Bobblehead)) + geom_boxplot() + geom_point()
 
 结果将是： 
 1，散点图 
 
 
 2，boxplot情节 
 
 3，合并情节 

Based on the previous post ggplot boxplots with scatterplot overlay (same variables), 
 
I would like to have one boxplot for each day of week instead of two boxplots while have scatter points on it with different colour.
 
The code will be like:
 
#Box-plot for day of week effect
plot1<-ggplot(data=dodgers, aes(x=ordered_day_of_week, y=Attend)) + geom_boxplot()

#Scatter with specific colors for day of week
plot2<-ggplot(dodgers, aes(x=ordered_month, y=Attend, colour=Bobblehead, size=1.5)) + geom_point()

#Box-ploy with Scatter plot overlay
plot3<-ggplot(data=dodgers, aes(x=ordered_day_of_week, y=Attend, colour=Bobblehead)) + geom_boxplot() + geom_point()
 
And the result would be: 
 1, scatter plot
 
 
2, boxplot plot 
 
3, combined plot 

原文：https://stackoverflow.com/questions/22074164