प्लॉट टाइम सीरीज़ और भविष्यवाणी ggplot2

Question

का उपयोग करके एक साथ पूर्वानुमान है, मेरे पास पूर्वानुमान और आत्मविश्वास अंतराल डेटा के साथ एक समय श्रृंखला है, मैं उन्हें ggplot2 का उपयोग करके एक साथ प्लॉट करना चाहता था। मैं नीचे दिए गए कोड से यह कर रहा हूँ:

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() 

मैं कैसे एक रंग में ऊपरी और निचले लाइनों में शामिल हो सकते? और मैं विशिष्ट रंगों को पूर्वानुमान और नमूना के लिए कैसे सेट कर सकता हूं?

Answer 1

उपयोग 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')) 

संपादित

यह एक और विकल्प, @rnso जवाब से प्रेरित है।

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

उपयोगी हो सकता है के बाद:

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

'विधि' विकल्प भी stat_smooth()