如何在ggplot r中标注组合条形图和线形图中的线形图？

library(ggplot2)

# 创建数据集
data <- data.frame(
  group = c("A", "B", "C"),
  value1 = c(3, 5, 2),
  value2 = c(1, 4, 6),
  line_value = c(2.5, 4.5, 3.5)
)

# 绘制组合条形图和线形图
plot <- ggplot(data, aes(x = group)) +
  geom_bar(aes(y = value1), stat = "identity", fill = "lightblue") +
  geom_bar(aes(y = value2), stat = "identity", fill = "lightgreen") +
  geom_line(aes(y = line_value), color = "red") +
  ylab("Value")

# 添加标注
label_data <- data.frame(
  x = c(1, 2, 3),
  y = c(3.5, 4.5, 3.5),
  label = c("Label A", "Label B", "Label C")
)

plot + geom_text(data = label_data, aes(x = x, y = y, label = label), vjust = -0.5)