grafico cumulativo utilizzando ggplot2

Question

Sto imparando a utilizzare ggplot2 e sto cercando il più piccolo codice ggplot2 che riproduce il risultato base::plot di seguito. Ho provato alcune cose e sono finite per essere terribilmente lunghe, quindi cerco l'espressione più piccola e preferirei avere le date sull'asse x (che non ci sono nello plot di seguito) .

df = data.frame(date = c(20121201, 20121220, 20130101, 20130115, 20130201), 
       val = c(10, 5, 8, 20, 4)) 
plot(cumsum(rowsum(df$val, df$date)), type = "l") 

Answer 1

Prova questo:

ggplot(df, aes(x=1:5, y=cumsum(val))) + geom_line() + geom_point() 

è sufficiente rimuovere geom_point() se non lo vuoi.

Edit: Dal momento che si richiede di tracciare i dati come ad esempio con etichette X sono date, è possibile tracciare con x=1:5 e utilizzare scale_x_discrete per impostare una nuova labelsdata.frame. Prendendo df:

ggplot(data = df, aes(x = 1:5, y = cumsum(val))) + geom_line() + 
     geom_point() + theme(axis.text.x = element_text(angle=90, hjust = 1)) + 
     scale_x_discrete(labels = df$date) + xlab("Date") 

Dal momento che dire avrete più di 1 val per "data", è possibile aggregare loro in primo luogo utilizzando plyr, per esempio.

require(plyr) 
dd <- ddply(df, .(date), summarise, val = sum(val)) 

Poi si può procedere con lo stesso comando, sostituendo x = 1:5 con x = seq_len(nrow(dd)).

Answer 2

Dopo un paio d'anni, ho stabilirono a fare:

ggplot(df, aes(as.Date(as.character(date), '%Y%m%d'), cumsum(val))) + geom_line()