R计算列中值之间的差异

Question

如何计算一列中值之间的成对差异？

计算应从前两个值开始，并应继续接下来的两个值，因为它在此处的“desired_result”列中完成:

data <- data.frame(data = c(5, NA, NA, NA, 3, NA, NA, 4, NA, 3, NA, NA, NA, 6, 1, 4, NA, 2))

Answer 1

这是一个单行:

data$desired_result[which(!is.na(data$data))[c(FALSE, TRUE)]] <- 
  rev(diff(rev(na.omit(data$data))))[c(TRUE, FALSE)]

where which(!is.na(data$data)) 查找 data$data 的非 NA 条目，然后添加 c(FALSE, TRUE ) 只选择每秒一次。此外，na.omit(data$data) 丢弃 NA 值，rev 反转此向量，diff 取差异，rev 将向量反转回正确的顺序，最后，由于我们不想要所有差异，我再次使用 c(TRUE, FALSE) 选择每一秒。