如何使用ggplot2中的线条将箱线图的中值与多组连接起来？

install.packages("ggplot2")
library(ggplot2)

df <- data.frame(Group = rep(c("Group 1", "Group 2", "Group 3"), each = 5),
                 Value = c(1, 2, 3, 4, 5, 2, 3, 4, 5, 6, 3, 4, 5, 6, 7))

p <- ggplot(df, aes(x = Group, y = Value)) +
  geom_boxplot()

medians <- df %>%
  group_by(Group) %>%
  summarize(Median = median(Value))

p <- p +
  geom_segment(data = medians, aes(x = Group, xend = Group, y = Median, yend = Median),
               color = "red", size = 1)

print(p)