ggplot2 i cumsum()

Question

Mam zestaw znaczników czasu UNIX i identyfikatorów URI i próbuję wykreślić łączną liczbę żądań dla każdego identyfikatora URI. Udało mi się to zrobić za jednym URI w czasie, stosując kolumnę atrapę:

x.df$count <- apply(x.df,1,function(row) 1) # Create a dummy column for cumsum 
x.df <- x.df[order(x.df$time, decreasing=FALSE),] # Sort 
ggplot(x.df, aes(x=time, y=cumsum(count))) + geom_line() 

jednak, że byłoby zrobić około 30 działek w moim przypadku.

ggplot2 nie pozwala wykreślić wiele linii w jednej działce (skopiowałem ten kawałek kodu z here):

ggplot(data=test_data_long, aes(x=date, y=value, colour=variable)) + 
    geom_line() 

Problemem jest to, że w ten sposób, cumsum() liczyłbym dalej.

Czy ktoś ma pomysł?

Answer 1

Oto dane test, który wykorzystuje plyr „s transform obliczyć skumulowaną sumę, a następnie zastosować te dane wykreślić używając ggplot2:

set.seed(45) 
DF <- data.frame(grp = factor(rep(1:5, each=10)), x=rep(1:10, 5)) 
DF <- transform(DF, y=runif(nrow(DF))) 

# use plyr to calculate cumsum per group of x 
require(plyr) 
DF.t <- ddply(DF, .(grp), transform, cy = cumsum(y)) 

# plot 
require(ggplot2) 
ggplot(DF.t, aes(x=x, y=cy, colour=grp, group=grp)) + geom_line()