如何用不同的水平线注释ggplot2中的每个条形图？

library(ggplot2)

data <- data.frame(category = c("A", "B", "C", "D"),
                   value = c(10, 20, 15, 25))

plot <- ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity")

plot + geom_hline(yintercept = data$value, linetype = "dashed")

data <- data.frame(category = c("A", "B", "C", "D"),
                   value = c(10, 20, 15, 25),
                   annotation = c(12, 22, 17, 27))

plot + geom_hline(aes(yintercept = annotation), linetype = "dashed")