R语言箱线图：减半宽度并添加参考线

要实现这个需求，可以使用以下代码：

# 绘制箱线图
boxplot(mtcars$mpg, col = 'darkgreen', width = 0.5, ylim = c(0, max(mtcars$mpg) + 10))

# 添加参考线
abline(h = c(mean(mtcars$mpg), median(mtcars$mpg), min(mtcars$mpg), max(mtcars$mpg)), col = 'red')

上述代码中，width = 0.5用于设置箱线图的宽度为原来的一半。ylim = c(0, max(mtcars$mpg) + 10)用于设置y轴的范围，使得参考线不会超出图像范围。

abline(h = c(mean(mtcars$mpg), median(mtcars$mpg), min(mtcars$mpg), max(mtcars$mpg)), col = 'red')用于添加参考线。h参数用于设置参考线的y坐标，这里使用了均值、中位数、最小值和最大值。col = 'red'用于设置参考线的颜色为红色。

这样，就可以在箱线图上方添加参考线，并确保参考线不会覆盖在箱线图上层。