累积差R
累积差R
提问于 2022-09-08 08:54:43
R中cumsum()的反面是什么？
a = c(2, 5, 8)
cumsum = c(2, 7, 15)
cumdiff = c(2, 3, 1)因为5-2 =3和8-7 = 1。
在R中有一个软件包可以用于这个包吗？
回答 2
Stack Overflow用户
回答已采纳
发布于 2022-09-08 09:31:21
在base R中
cumdiff <- function(x) x - head(c(0, cumsum(x)), -1)
#cumdiff <- function(x) x - c(0, cumsum(x))[-(length(x) + 1)]在dplyr中，有lag和default = 0
library(dplyr)
cumdiff <- function(x) x - lag(cumsum(x), default = 0)结果：
a = c(2,5,8)
cumdiff(a)
#[1] 2 3 1Stack Overflow用户
发布于 2022-09-08 09:52:44
library(dplyr)
data.frame(a) %>%
mutate(
cumdiff = a - lag(cumsum(a)),
cumdiff = ifelse(is.na(cumdiff), a, cumdiff)
)
a cumdiff
1 2 2
2 5 3
3 8 1页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/73646256
复制相关文章
相似问题
腾讯云开发者
