如何在R中的棒棒糖图表ggplot2中添加分段

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

data <- data.frame(start = c(1, 3, 5),
                   end = c(2, 4, 6),
                   label = c("Segment 1", "Segment 2", "Segment 3"))

plot <- ggplot(data, aes(x = start, xend = end, y = 0, yend = 0)) +
  labs(x = "X轴标签", y = "Y轴标签")

plot <- plot + geom_segment(aes(color = label), size = 10, show.legend = FALSE) +
  geom_text(aes(label = label, x = (start + end) / 2, y = 0.5), size = 4, vjust = -0.5)

plot <- plot + ggtitle("棒棒糖图表") +
  xlim(0, 7) + ylim(-1, 1)

print(plot)