Добавьте горизонтальную линию для сюжета и легенды в ggplot2

Этот код создает хороший график, но я хотел бы добавить горизонтальную черную линию при y = 50, и чтобы легенда показывала черную линию с текстом "отрезать" в легенде, но оставьте точки в легенде для источников. Я могу добавить строку с помощью geom_line, но не могу получить строку в легенде.

    library(ggplot2)
    the.data 

Ответы на вопрос(2)

Ваш ответ на вопрос