GGPlotのscale_color_manualにはエラーが表示されます

Question

同様の問題が2つありますが、これではうまくいかないので、dublicateとしてマークしないでください。

Iは、値の一組と3本の水平線と正常ggplotを得たが、私はscale_colour_manual使用する場合、それはC（ `合計Tweets` = "＃1 f04546" を

エラーを返し、平均=「＃ 3591d1" 、 `標準 Deviation` = "＃1 62c76b"）：未使用の引数（`合計Tweets` = "＃1 f04546"、平均= "＃1 3591d1"、 `標準Deviation`は= "＃1 62c76b"）

Data<-data.frame("Date"=as.Date(16200:16499),"Total"=rnorm(300,4500,50)) 
Mean<-mean(Data$Total) 
SD1<-Mean-sd(Data$Total) 
SD2<-Mean+sd(Data$Total) 

TotalDay <- ggplot(data = Data, aes(x=Date, y=Total,colour=Legend)) + 
    geom_line(aes(y=Total, colour="Total Tweets")) 

TotalDay + ggtitle("Tweets per Day") +labs(x="Date",y="Tweets") + 
    theme(plot.title = element_text(color="#666666", face="bold", size=18, hjust=0)) + 
    theme(axis.title = element_text(color="#666666", face="bold", size=13)) + 
    geom_hline(aes(yintercept =Mean,colour="Mean")) + 
    geom_hline(aes(yintercept =(SD1), 
       colour="Standard Deviation"))+ 
    geom_hline(aes(yintercept =(SD2), 
       colour="Standard Deviation")) 

TotalDay + scale_color_manual(name="Legend", 
           values=c("Total Tweets"="#f04546","Mean"="#3591d1","Standard Deviation"="#62c76b")) 

最後の行だけが機能しません。 私は（それが違いを作る場合、私は知らない）パッケージを使用します。

library(stringr) 
library(dplyr) 
library(Ryacas) 
library(quantmod) 
library(data.table) 
library(tm) 
library(lubridate) 
library(ggplot2) 
library(extrafont) 

Answer 1

あなたの第二段階では、あなたが実際にプロット背中にTotalDayの結果を再割り当てない、あなたが得るようにする場合scale_color_manualには実際に凡例を作成するための行がありません。

Data<-data.frame("Date"=as.Date(16200:16499),"Total"=rnorm(300,4500,50)) 
Mean<-mean(Data$Total) 
SD1<-Mean-sd(Data$Total) 
SD2<-Mean+sd(Data$Total) 

TotalDay <- ggplot(data = Data, aes(x=Date, y=Total,colour=Legend)) + 
    geom_line(aes(y=Total, colour="Total Tweets")) 

TotalDay <- TotalDay + ggtitle("Tweets per Day") +labs(x="Date",y="Tweets") + 
    theme(plot.title = element_text(color="#666666", face="bold", size=18, hjust=0)) + 
    theme(axis.title = element_text(color="#666666", face="bold", size=13)) + 
    geom_hline(aes(yintercept =Mean,colour="Mean")) + 
    geom_hline(aes(yintercept =(SD1), 
       colour="Standard Deviation"))+ 
    geom_hline(aes(yintercept =(SD2), 
       colour="Standard Deviation")) 

TotalDay + scale_color_manual(name="Legend", 
           values=c("Total Tweets"="#f04546","Mean"="#3591d1","Standard Deviation"="#62c76b"))