第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全，請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問(wèn)題，去搜搜看，總會(huì)有你想問(wèn)的

按組計(jì)算連續(xù)行中的值之間的差異

按組計(jì)算連續(xù)行中的值之間的差異

按組計(jì)算連續(xù)行中的值之間的差異這是我的df（data.frame）：group value1     101     201     252     52     102     15 我需要按組計(jì)算連續(xù)行中值之間的差異。所以，我需要一個(gè)結(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]雖然，我可以通過(guò)使用來(lái)處理這個(gè)問(wèn)題ddply，但需要花費(fèi)太多時(shí)間。這是因?yàn)槲业膱F(tuán)隊(duì)中有很多團(tuán)體df。（我的超過(guò)1,000,000個(gè)團(tuán)體df）有沒(méi)有其他有效的方法來(lái)處理這個(gè)問(wèn)題？
查看完整描述

3 回答

?
拉風(fēng)的咖菲貓

TA貢獻(xiàn)1995條經(jīng)驗(yàn) 獲得超2個(gè)贊

該軟件包data.table可以使用該shift功能相當(dāng)快速地完成此操作。


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，請(qǐng)參閱編輯。


查看完整回答
反對(duì) 回復(fù) 2019-07-30
?
蠱毒傳說(shuō)

TA貢獻(xiàn)1895條經(jīng)驗(yàn) 獲得超3個(gè)贊

您可以使用基本功能，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


查看完整回答
反對(duì) 回復(fù) 2019-07-30
?
蝴蝶不菲

TA貢獻(xiàn)1810條經(jīng)驗(yàn) 獲得超4個(gè)贊

試著用tapply

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


查看完整回答
反對(duì) 回復(fù) 2019-07-30
  • 3 回答
  • 0 關(guān)注
  • 561 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購(gòu)課補(bǔ)貼
聯(lián)系客服咨詢(xún)優(yōu)惠詳情

 幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

 公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)