Наложение каждого столбца гистограммы с накоплением ggplot2 с линией

У меня есть гистограмма с накоплением ggplot2, которая выглядит следующим образом:

# Example data
data <- data.frame(level = rep(1:3, 3),
                   values = c(20, 30, 25, 15, 10, 5, 18, 20, 30),
                   group = as.factor(rep(LETTERS[1:3], each = 3)))

# Draw plot without lines
library("ggplot2")
my_plot <- ggplot(data, aes(x = level, y = values, fill = group)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(breaks = c("A", "B", "C"),
                    values = c("forestgreen", "darkgoldenrod1", "brown2"))
my_plot

Теперь я хочу наложить на каждую полосу этой гистограммы синюю линию определенной высоты. Синие линии также должны быть представлены в легенде сюжета.

Данные для этих строк выглядят следующим образом:

# Data for lines
data_line <- data.frame(level = 1:3,
                        values = c(25, 40, 10),
                        group = as.factor("D"))

Вывод должен выглядеть следующим образом (изображение, нарисованное в краске):

Вопрос: Как добавить эти данные в виде наложенных строк?