反转累积和的功能方法？答案

【问题标题】：Functional way to reverse cumulative sum?反转累积和的功能方法？
【发布时间】：2014-01-28 22:29:55
【问题描述】：

如果我有一个累积和的向量，例如

> vec <- cumsum(1:10)
[1]  1  3  6 10 15 21 28 36 45 55

有没有一种功能性的方法可以将vec 转换为c(1:10) 的原始向量？

现在，我正在使用一个 for 循环：

> result <- vec[1]
> for (i in 2:length(vec)) result <- append(result, vec[i]-vec[i-1])
> result
[1]  1  2  3  4  5  6  7  8  9 10

但这对我来说似乎不太像 R... 有什么想法吗？

【问题讨论】：

标签： r

【解决方案1】：

只需使用diff 获取连续差异：

> c(vec[1],diff(vec))
 [1]  1  2  3  4  5  6  7  8  9 10

【讨论】：

【解决方案2】：

如果其他人希望在整个 dataframe 中反转 cumsum，我使用了以下内容：

我的数据框是Factor.df，第一列是一系列character - 因此选择第二列。希望对你有帮助

Factor.df[,2:ncol(Factor.df)] <- Factor.df[,2:ncol(Factor.df)] %>% dplyr::mutate_each(dplyr::funs((.) - dplyr::lag(.)))

【讨论】：