Wykreślanie średniej wielu zmiennych w szeregach czasowych przy użyciu ggplot

Question

Mam plik, który zawiera dane szeregów czasowych dla wielu zmiennych od a do k.

Chciałbym utworzyć wykres, który kreśli średnią ze zmiennych od a do k w czasie i powyżej oraz poniżej tej średniej linii, dodaje wygładzony obszar przedstawiający maksymalną i minimalną zmianę każdego dnia.

Coś w rodzaju przedziałów ufności, ale w wersji wygładzonej.

Oto zestaw danych: https://dl.dropbox.com/u/22681355/co.csv

i oto kod mam tak daleko:

library(ggplot2) 
library(reshape2) 
meltdf <- melt(df,id="Year") 
ggplot(meltdf,aes(x=Year,y=value,colour=variable,group=variable)) + geom_line() 

Answer 1

This przedstawia bootstrapped 95% przedziały ufności:

ggplot(meltdf,aes(x=Year,y=value,colour=variable,group=variable)) + 
    stat_summary(fun.data = "mean_cl_boot", geom = "smooth") 

Przedstawia to t miał na myśli wszystkich wartości wszystkich zmiennych + -1SD:

ggplot(meltdf,aes(x=Year,y=value)) + 
    stat_summary(fun.data ="mean_sdl", mult=1, geom = "smooth") 

może chcesz obliczyć rok przed obliczeniem oznacza środki i SD ciągu zmiennych, ale zostawiam to do ciebie.

Uważam jednak, że przedział ufności boostrob byłby bardziej sensowny, ponieważ rozkład wyraźnie nie jest symetryczny. Byłoby również węższe. ;)

Oczywiście możesz również przekształcić wartości w log.