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

為了賬號安全，請及時綁定郵箱和手機立即綁定
已解決430363個問題，去搜搜看，總會有你想問的

按組從上一行減去值

按組從上一行減去值

慕桂英3389331 2019-11-02 10:09:36
在R中，假設我有以下數(shù)據(jù)框：Dataid      date        value2380    10/30/12    21.012380    10/31/12    22.042380    11/1/12     22.652380    11/2/12     23.1120100   10/30/12    35.2120100   10/31/12    37.0720100   11/1/12     38.1720100   11/2/12     38.9720103   10/30/12    57.9820103   10/31/12    60.83 我想按組ID日期從當前值中減去先前的值，以創(chuàng)建此值：id      date        value   diff2380    10/30/12    21.01   02380    10/31/12    22.04   1.032380    11/1/12     22.65   0.612380    11/2/12     23.11   0.4620100   10/30/12    35.21   020100   10/31/12    37.07   1.8620100   11/1/12     38.17   1.120100   11/2/12     38.97   0.820103   10/30/12    57.98   020103   10/31/12    60.83   2.85
查看完整描述

2 回答

?
阿晨1998

TA貢獻2037條經(jīng)驗 獲得超6個贊

與dplyr：


library(dplyr)


data %>%

    group_by(id) %>%

    arrange(date) %>%

    mutate(diff = value - lag(value, default = first(value)))

為了清楚起見，你可以arrange通過date和分組列（根據(jù)評論的律師）


data %>%

    group_by(id) %>%

    arrange(date, .by_group = TRUE) %>%

    mutate(diff = value - lag(value, default = first(value)))

或lag搭配order_by：


data %>%

    group_by(id) %>%

    mutate(diff = value - lag(value, default = first(value), order_by = date))

與data.table：


library(data.table)


dt <- as.data.table(data)

setkey(dt, id, date)

dt[, diff := value - shift(value, fill = first(value)), by = id]


查看完整回答
反對 回復 2019-11-02
  • 2 回答
  • 0 關注
  • 689 瀏覽

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯(lián)系客服咨詢優(yōu)惠詳情

 幫助反饋 APP下載

慕課網(wǎng)APP
您的移動學習伙伴

 公眾號

掃描二維碼
關注慕課網(wǎng)微信公眾號