如何使用一个变量将分位数函数的5个分位数添加到ggplot2中的箱线图中？

library(ggplot2)
library(dplyr)

ggplot(df, aes(x = x_variable)) +
  geom_boxplot()

# 计算分位数
quantiles <- df %>% 
  summarise(q25 = quantile(x_variable, 0.25),
            q50 = quantile(x_variable, 0.50),
            q75 = quantile(x_variable, 0.75))

# 创建箱线图并添加分位数
ggplot(df, aes(x = x_variable)) +
  geom_boxplot() +
  geom_hline(yintercept = quantiles$q25, linetype = "dashed", color = "red") +
  geom_hline(yintercept = quantiles$q50, linetype = "dashed", color = "blue") +
  geom_hline(yintercept = quantiles$q75, linetype = "dashed", color = "green")