如何更改R中箱线图中25%和75%分位数的线型和颜色？

我现在正在处理一些数据，我想做一个箱线图。我注意到我可以通过设置

medlty

和

medcol

来更改中间带的线型和颜色

我想知道如何更改箱线图中25%和75%分位数的线型和颜色？例如，我可以将线型2和蓝色设置为25%分位数，而线型3和绿色设置为75%分位数吗

set.seed(123)
Mydata = sample(x=100:300, size = 500, replace = T)
Mydata = c(Mydata, 1, 500)
boxplot(Mydata,medcol="red", medlty=3)

---

使用tidyverse中的ggplot。检查它是否有用

library(tidyverse)
Mydata = tibble(dist = sample(x=100:300, size = 500, replace = T))
Mydata %>% ggplot(aes(x = 1, y = dist)) + geom_boxplot()+
  geom_hline(data = quantile(Mydata$dist), yintercept = quantile(Mydata$dist)[2], lty = 2, color = "blue", lwd= 1) +
  geom_hline(data = quantile(Mydata$dist), yintercept = quantile(Mydata$dist)[4], lty = 3, color = "green", lwd = 1)

---

谢谢你的帮助。蓝色和绿色的线是在原来的直线上绘制的，这不是我想要的。你能再检查一下吗？