Добавление легенды в ggplot2

Question

Я просмотрел похожие вопросы, и у меня есть ощущение, что я все сделал. Все еще не получаю желаемого результата. Я использую пакеты ggplot2 и tidyquant для визуализации данных с двумя финансовыми тенденциями. Я пытаюсь отобразить легенду, содержащую линию тренда coloron plot

data %>%
  ggplot(aes(date, price)) +
  geom_line() +
  geom_ma(ma_fun = SMA, n = 50, size = 1 , col = "red" , show.legend = TRUE)+
  geom_ma(ma_fun = SMA, n = 200, size = 1 , col = "blue", show.legend= TRUE)+
  theme_tq() 

Answer 1

Ну вот:

library(tidyquant)
library(ggplot2)
data <- data.frame(date = 1:1000, price = cumsum(rnorm(1000)))
data %>%
  ggplot(aes(date, price)) +
  geom_line() +
  geom_ma(aes(color = 'MA50'),  ma_fun = SMA, n = 50, size = 1 ,show.legend = TRUE)+
  geom_ma(aes(color =  'MA200'), ma_fun = SMA, n = 200, size = 1 , show.legend = TRUE) +
  scale_colour_manual(name = 'Legend', 
                      guide = 'legend',
                      values = c('MA50' = 'red',
                                 'MA200' = 'blue'), 
                      labels = c('SMA(50)',
                                 'SMA(200)'))