r - Adding confidence intervals ggplot -


i want plot intervals of confidence of fitted values. read post related, still stuck..these sample of date:

pd <-structure(list(date = 1:5, obs = c(44.6651011845397, 62.3441339250369,            52.8968240161506, 51.7795930633478, 63.1284636561025), pred = c(47.2643891039645,            55.7996450577325, 52.9566469533233, 51.3393289316, 59.0011440099732)),            .names = c("date", "obs", "pred"), row.names = c(na, 5l), class = "data.frame")  pd2 <- structure(list(date = 1:5, lwr = c(44.8529592578518, 54.9926370476338,           51.7358955911624, 49.401869166722, 58.1674619447108), upr = c(49.6758189500772,           56.6066530678312, 54.1773983154842, 53.2767886964779, 59.8348260752356           )), .names = c("date", "lwr", "upr"), row.names = c(na, 5l), class = "data.frame")  dd  <-  melt(pd, id=c("date"))   #data dd2 <- melt(pd2,id=c("date"))    #intervals of conf. p <- ggplot(dd) + geom_line(aes(x=date, y=value, colour=variable))  p <- p + geom_smooth(aes(x=date, y=value, ymax=lwr, ymin=upr), #1 way             colour='grey', data=dd2, stat='identity') 

also tried...

# p+ geom_ribbon(data=dd2,aes(ymin=lwr,ymax=upr),alpha=0.3) #2.

i received error: error in eval(expr, envir, enclos) : object 'lwr' not found ....what missing?

i tried without using melt ... had problems legend!

in first way, dd object using not having lwr/upr columns. cannot plot them.

can a:

dd<-merge(dd,pd2,by='date') 

just after melts , then:

p <- ggplot(dd) + geom_line(aes(x=date, y=value, colour=variable))  p + geom_ribbon(data=dd,aes(x=date, y=value, ymin=lwr,ymax=upr, group=variable),alpha=0.3)  

is helping?


Comments

Popular posts from this blog

java - Oracle EBS .ClassNotFoundException: oracle.apps.fnd.formsClient.FormsLauncher.class ERROR -

c# - how to use buttonedit in devexpress gridcontrol -

nvd3.js - angularjs-nvd3-directives setting color in legend as well as in chart elements -