par(mar=c(4,4,2,4),mfrow=c(1,5))
boxplot(Jun15$Photo,col = "seagreen",xlab = "Jun15$Photo")
boxplot(Jun25$Photo,col = "seagreen",xlab = "Jun25$Photo")
boxplot(Jun35$Photo,col = "seagreen",xlab = "Jun35$Photo")
boxplot(Junback$Photo,col = "seagreen",xlab = "Junback$Photo")
boxplot(Junfront$Photo,col = "seagreen",xlab = "Junfront$Photo")

补充一句如何把上面箱图中的中位数线改成红色的

boxplot(……，ylim=c(ymin,ymax)) 例子中的情况就用类似ylim=c(2,12)
颜色不知道

试试在每一个箱线图后面加上一句lines(x=c(0.8,1.2),y=c(median(Jun15Photo),median(Jun15Photo)),col='red',lwd=2)吧，lwd=2画宽点容易看到，x和y控制线段位置，y取中位数很容易理解，x嘛……
箱线图里有一个默认的参数boxwex = 0.8，我不是很明白意思但是看效果是控制箱子宽度的。boxwex=0.8时测试了下箱子横坐标和x坐标0.8~1.2的线段重合，图片正中间的坐标应该是1，宽0.4，boxwex=2时和x坐标0.5~1.5的线段重合，但是bug的是，按照之前的理解，箱线图整个图框的宽度应该是2，这个坐标0.5和1.5画出来的线段应该起止于图片正负四分之一处占图片宽度一半，实际画出来却几乎占满整个图片。所以我的理解应该只是碰巧能用，希望有知道箱线图宽度设置的高手解答下
随便用mtcars画的效果图

太感您谢了，完美的帮我解决了我的疑问[hug][hug]