Вычислить разницу между значениями в последовательных строках по группам
Это мой df (data.frame):
group value 1 10 1 20 1 25 2 5 2 10 2 15
Мне нужно рассчитать разницу между значениями в последовательных строках по группам.
Итак, мне нужен такой результат.
- Какой самый полезный трюк?
- Удалите все знаки препинания, кроме апострофов в R
- Отбор проб в R из вектора различной длины
- Создать таблицу PDF
- нумерация по группам
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]
Хотя, я могу справиться с этой проблемой, используя ddply , но это занимает слишком много времени. Это потому, что у меня много групп в моем df . (более 1 000 000 групп в моем df )
Существуют ли другие эффективные подходы к решению этой проблемы?
- Манекены переменных из строковой переменной
- Настройка прокси для R
- Извлечь месяц и год из зоопарка :: объект yearmon
- R: преобразовать строку с разделителями в переменные
- Эффективно конвертировать обратную косую черту в косую черту в R
- Импорт CSV-файла в R-числовые значения, считанные как символы
- Разделить вектор по его последовательностям
- Перекодирование переменных с помощью R
Таблица data.table может сделать это довольно быстро, используя функцию 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
Или используя функцию lag в 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
Для альтернатив pre- data.table::shift и pre- dplyr::lag , см. dplyr::lag .
Вы можете использовать базовую функцию ave() для этого
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)))
который возвращается
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
попробуйте это с помощью
df$diff<-as.vector(unlist(tapply(df$value,df$group,FUN=function(x){ return (c(NA,diff(x)))})))