如何在R中的箱线图上放置阴影？

my_boxplot <- boxplot(x)

abline(h = my_boxplot$stats[5], col = "gray", lty = 2)  # 上边缘的阴影范围
abline(h = my_boxplot$stats[1], col = "gray", lty = 2)  # 下边缘的阴影范围

rect(0.75, my_boxplot$stats[1], 1.25, my_boxplot$stats[5], col = "lightgray", border = NA)

# 创建数据
x <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

# 创建箱线图并保存
my_boxplot <- boxplot(x)

# 添加辅助线
abline(h = my_boxplot$stats[5], col = "gray", lty = 2)  # 上边缘的阴影范围
abline(h = my_boxplot$stats[1], col = "gray", lty = 2)  # 下边缘的阴影范围

# 添加阴影
rect(0.75, my_boxplot$stats[1], 1.25, my_boxplot$stats[5], col = "lightgray", border = NA)