R 在ggplot2中添加图例

R 在ggplot2中添加图例,r,ggplot2,tidyquant,R,Ggplot2,Tidyquant,我看过类似的问题,我觉得我已经做了一切。仍然没有得到渴望的输出。我正在使用ggplot2和tidyquant软件包来可视化包含2个财务趋势的数据。我正在尝试显示一个图例,其中包含趋势线颜色在绘图上 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

我看过类似的问题,我觉得我已经做了一切。仍然没有得到渴望的输出。我正在使用ggplot2tidyquant软件包来可视化包含2个财务趋势的数据。我正在尝试显示一个图例,其中包含趋势线颜色在绘图上

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() 
给你:

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)'))
库(tidyquant)
图书馆(GG2)
数据%
ggplot(aes(日期、价格))+
geom_线()+
geom_-ma(aes(颜色为'MA50'),ma_-fun=SMA,n=50,尺寸为1,show.legend=TRUE)+
geom_-ma(aes(颜色为'MA200'),颜色为SMA,n=200,尺寸为1,show.legend=TRUE)+
比例颜色手册(名称=‘图例’,
指南='图例',
值=c('MA50'='red',
“MA200”=“蓝色”),
标签=c(‘SMA(50)’),
‘SMA(200)’)
给你:

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)'))
库(tidyquant)
图书馆(GG2)
数据%
ggplot(aes(日期、价格))+
geom_线()+
geom_-ma(aes(颜色为'MA50'),ma_-fun=SMA,n=50,尺寸为1,show.legend=TRUE)+
geom_-ma(aes(颜色为'MA200'),颜色为SMA,n=200,尺寸为1,show.legend=TRUE)+
比例颜色手册(名称=‘图例’,
指南='图例',
值=c('MA50'='red',
“MA200”=“蓝色”),
标签=c(‘SMA(50)’),
‘SMA(200)’)

如果省略“+theme_tq()”,它是否仍然不显示图例?如果省略“+theme_tq()”,它是否仍然不显示图例?是否确实应该添加手动比例来绘制图例?我从来没有用过tidyquant,但在我看来,这有点奇怪。你不必使用手动秤。但是他想要的是红色和蓝色,而不是默认的颜色。为传奇添加一个好标题也不会有任何伤害。好的,明白了。我认为他的问题是他根本没有得到任何传奇人物的支持。谢谢马丁。现在,好标题已经出现在剧情中;)真的应该添加一个手动比例来绘制图例吗?我从来没有用过tidyquant,但在我看来,这有点奇怪。你不必使用手动秤。但是他想要的是红色和蓝色,而不是默认的颜色。为传奇添加一个好标题也不会有任何伤害。好的,明白了。我认为他的问题是他根本没有得到任何传奇人物的支持。谢谢马丁。现在,好标题已经出现在剧情中;)