每个组的第一个实例的数据帧中的行差异计算答案

【问题标题】：Row difference calculation in dataframe from the first instance for each group每个组的第一个实例的数据帧中的行差异计算
【发布时间】：2015-01-15 05:33:00
【问题描述】：

输入数据

输出数据应该是这样的

ID   value     Diff  
a    10        0  
a    12        2    
a    18        8  
a    13        3  
b    23        0   
b    25        2  
b    33       10  
c    17        0  
c    23        6  
c    27       10

我从网上得到这个代码

library(data.table)  
DT <- as.data.table(dat)  
DT[, `:=`(DIFTIME, c(0, diff(as.Date(DATETIME)))), by = "ID"]

但这只会在两个连续行之间产生差异，而不是来自该组的第一个实例

dat<-structure(list(ID = c(1L, 1L, 1L, 1L, 2L, 2L, 3L, 3L),
DATETIME = structure(c(1328346000,1328479200, 1331024400,1331025400, 1328086800, 1328184000,   1336287600, 1336424400),
class = c("POSIXct", "POSIXt"), tzone = ""),
VALUE = c(300L,150L, 650L, 450L, 855L, 240L, 340L, 240L)),
.Names = c("ID", "DATETIME","VALUE"), class = "data.frame", row.names = c(NA, 7L))

【问题讨论】：

标签： r dataframe plyr dplyr lapply

【解决方案1】：

您也可以使用dplyr，其中df 是原始数据

library(dplyr)
group_by(df, ID) %>% mutate(Diff = value - first(value))
#    ID value Diff
# 1   a    10    0
# 2   a    12    2
# 3   a    18    8
# 4   a    13    3
# 5   b    23    0
# 6   b    25    2
# 7   b    33   10
# 8   c    17    0
# 9   c    23    6
# 10  c    27   10

【讨论】：

【解决方案2】：

使用data.table

setDT(df)[, Diff:=value-value[1], by=ID]
df
 #   ID value Diff
 #1:  a    10    0
 #2:  a    12    2
 #3:  a    18    8
 #4:  a    13    3
 #5:  b    23    0
 #6:  b    25    2
 #7:  b    33   10
 #8:  c    17    0
 #9:  c    23    6
#10:  c    27   10

数据

df <- structure(list(ID = c("a", "a", "a", "a", "b", "b", "b", "c", 
"c", "c"), value = c(10L, 12L, 18L, 13L, 23L, 25L, 33L, 17L, 
23L, 27L)), .Names = c("ID", "value"), class = "data.frame", row.names = c(NA, 
-10L))

【讨论】：

【解决方案3】：

您可以使用ave 函数在基础 R 中执行此操作。

dat$Diff <- ave( dat$value, dat$ID, FUN = function(x) x - x[1] )

【讨论】：