按組計算連續(xù)行中的值之間的差異這是我的df（data.frame）：group value1 101 201 252 52 102 15 我需要按組計算連續(xù)行中值之間的差異。所以，我需要一個結(jié)果。group value diff1 10 NA # because there is a no previous value1 20 10 # value[2] - value[1]1 25 5 # value[3] value[2]2 5 NA # because group is changed2 10 5 # value[5] - value[4]2 15 5 # value[6] - value[5]雖然，我可以通過使用來處理這個問題ddply，但需要花費太多時間。這是因為我的團隊中有很多團體df。（我的超過1,000,000個團體df）有沒有其他有效的方法來處理這個問題？
3 回答
拉風的咖菲貓
TA貢獻1995條經(jīng)驗 獲得超2個贊
該軟件包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
# <int> <int> <int>
# 1 1 10 NA
# 2 1 20 10
# 3 1 25 5
# 4 2 5 NA
# 5 2 10 5
# 6 2 15 5
有關(guān)前期data.table::shift和前期的替代方案dplyr::lag，請參閱編輯。
蠱毒傳說
TA貢獻1895條經(jīng)驗 獲得超3個贊
您可以使用基本功能，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
蝴蝶不菲
TA貢獻1810條經(jīng)驗 獲得超4個贊
試著用tapply
df$diff<-as.vector(unlist(tapply(df$value,df$group,FUN=function(x){ return (c(NA,diff(x)))})))- 3 回答
- 0 關(guān)注
- 564 瀏覽
添加回答
舉報
0/150
提交
取消