всем доброго дня!
друзья, никак не могу найти техническое решение следующей проблемы. хочу подписать линии квантильной регрессии, но не могу найти наиболее короткую команду для создания легенды.
base_q <- base + stat_smooth(method = "rq", method.args = list(tau = 0.1), se = FALSE, col = "blue") +
stat_smooth(method = "rq", method.args = list(tau = 0.9), se = FALSE, col = "red")+ labs(x = "х", y = "у")