R 在箱线图中添加线，如何知道因子在x轴上的位置？

我想在箱线图中添加线，并根据x，x和y，y控制位置。我想我可以用直线函数，也许可以，但是我怎么知道A，B，C的x位置呢

id <- rep(1:5, each=3)
trt <- rep(LETTERS[1:3],5)
set.seed(1)
q1 <- runif(15)
set.seed(2)
q2 <- runif(15)
set.seed(3)
q3 <- runif(15)


df <- data.frame(id,trt,q1,q2,q3)

boxplot(q3~trt, data=df)
lines([c(1,2)],c(0.7,0.7)) # im thinking from x 1 to x 2, on y 0.7

---

id绘制箱线图时，保存其返回值，并使用它确定x轴上因子的位置

bp <- boxplot(q3 ~ trt, data = df)

x <- seq_along(bp$names)
y <- c(0.7, 0.7)

lines(x[seq_along(y)], y, lwd = 2) # optional 'lwd', not in the question

bp