Grafik görüntü Grafiklerdeki metinlerin tercümesi, ggplot2

Question

kullanarak tahmin ve güven aralığı verileri içeren bir zaman dizim var, bunları ggplot2 kullanarak eşzamanlı olarak çizmek istedim. Aşağıda koduna göre yapıyorum:

set.seed(321) 
library(ggplot2) 
#create some dummy data similar to mine 

sample<-rnorm(350) 
forecast<-rnorm(24) 
upper<-forecast+2*sd(forecast) 
lower<-forecast-2*sd(forecast) 


## wrap data into a data.frame 
df1 = data.frame(time = seq(325,350,length=26), M = sample[325:350], isin = "observations") 
df2 = data.frame(time = seq(351,374,length=24), M = forecast , isin = "my_forecast") 
df3 = data.frame(time = seq(351,374,length=24), M = upper ,isin = "upper_bound") 
df4 = data.frame(time = seq(351,374,length=24), M = lower, isin = "lower_bound") 
df = rbind(df1, df2, df3, df4) 

## ggplot object 
ggplot(df, aes(x = time, y = M, color = isin)) + geom_line() 

nasıl bir renkte üst ve alt çizgileri katılabilir? ve ayrıca belirli renkleri tahmin ve örneklemeye nasıl ayarlayabilirim?

Answer 1

Kullanım scale_colour_manual:

ggplot(df, aes(x = time, y = M, color = isin)) + geom_line() + 
    scale_colour_manual(values=c(observations='blue', my_forecast='red', upper_bound='black', lower_bound='black')) 

düzenlemek

Bu @rnso cevap esinlenerek başka bir seçenek vardır.

ggplot(df1, aes(x = time, y = M)) + geom_line(colour='blue') + 
    geom_smooth(aes(x=time, y=M, ymax=upper_bound, ymin=lower_bound), 
       colour='red', data=df5, stat='identity') 

Answer 2

yararlı olabilir takiben:

ggplot() + geom_line(data=df1, aes(x = time, y = M, color = isin)) + stat_smooth(data=df2, aes(x = time, y = M, color = isin)) 

'yöntem' seçeneği de stat_smooth()