Calcular diferença entre valores em linhas consecutivas por grupo

Este é um meu df (data.frame):

 group value 1 10 1 20 1 25 2 5 2 10 2 15 

Eu preciso calcular a diferença entre os valores em linhas consecutivas por grupo.

Então, preciso desse resultado.

 group value diff 1 10 NA # because there is a no previous value 1 20 10 # value[2] - value[1] 1 25 5 # value[3] value[2] 2 5 NA # because group is changed 2 10 5 # value[5] - value[4] 2 15 5 # value[6] - value[5] 

Embora eu possa lidar com esse problema usando o ddply , mas isso leva muito tempo. Isso é porque eu tenho muitos grupos no meu df . (mais de 1.000.000 de grupos no meu df )

Existem outras abordagens eficazes para lidar com esse problema?

O pacote data.table pode fazer isso rapidamente, usando a function shift .

 require(data.table) df < - data.table(group = rep(c(1, 2), each = 3), value = c(10,20,25,5,10,15)) #setDT(df) #if df is already a data frame df[ , diff := value - shift(value), by = group] # group value diff #1: 1 10 NA #2: 1 20 10 #3: 1 25 5 #4: 2 5 NA #5: 2 10 5 #6: 2 15 5 setDF(df) #if you want to convert back to old data.frame syntax 

Ou usando a function lag em dplyr

 df %>% group_by(group) %>% mutate(Diff = value - lag(value)) # group value Diff #    # 1 1 10 NA # 2 1 20 10 # 3 1 25 5 # 4 2 5 NA # 5 2 10 5 # 6 2 15 5 

Para alternativas pre- data.table::shift e pre- dplyr::lag , veja as edições.

Você pode usar a function de base ave() para este

 df < - data.frame(group=rep(c(1,2),each=3),value=c(10,20,25,5,10,15)) df$diff <- ave(df$value, factor(df$group), FUN=function(x) c(NA,diff(x))) 

que retorna

  group value diff 1 1 10 NA 2 1 20 10 3 1 25 5 4 2 5 NA 5 2 10 5 6 2 15 5 

tente isso com tapply

 df$diff< -as.vector(unlist(tapply(df$value,df$group,FUN=function(x){ return (c(NA,diff(x)))})))