计算行之间的差异，但按组保留原始值答案

【问题标题】：calculate difference between rows, but keep the raw value by group计算行之间的差异，但按组保留原始值
【发布时间】：2019-07-20 08:54:09
【问题描述】：

我有一个数据框，其中包含按组的累积值，我需要重新计算回原始值。 lag 函数在这里工作得很好，但不是序列中的第一个数字，而是返回 NA，或者两组之间的滞后。

如何代替NA值或组间差异获得组中的第一个数字？

我的虚拟数据：

# make example
df <- data.frame(id = rep(1:3, each = 5),
                 hour = rep(1:5, 3),
                 value = sample(1:15))

首先计算累积值，然后将其转换回行值。即value 应该等于valBack。 mutate(valBack = c(cumsum[1], (cumsum - lag(cumsum))[-1])) 的建议只是将第一个 (NA) 值替换为正确的值，但不适用于每个组的第一个数字？

df %>%
  group_by(id) %>%
  dplyr::mutate(cumsum = cumsum(value)) %>% 
  mutate(valBack = c(cumsum[1], (cumsum - lag(cumsum))[-1]))  # skip the first value in a lag vector

哪些结果：

   # A tibble: 15 x 5
# Groups:   id [3]
      id  hour value cumsum valBack
   <int> <int> <int>  <int>   <int>
 1     1     1    10     10      10   # this works
 2     1     2    13     23      13
 3     1     3     8     31       8
 4     1     4     4     35       4
 5     1     5     9     44       9
 6     2     1    12     12     -32    # here the new group start. The number should be 12, instead it is -32??
 7     2     2    14     26      14
 8     2     3     5     31       5
 9     2     4    15     46      15
10     2     5     1     47       1
11     3     1     2      2     -45      # here should be 2 istead of -45
12     3     2     3      5       3
13     3     3     6     11       6
14     3     4    11     22      11
15     3     5     7     29       7

我想通过安全计算使我的valBack 等于value。（当然，在真实数据中我没有value 列，只有cumsum 列）

【问题讨论】：

标签： r dataframe dplyr cumsum

【解决方案1】：

试试：

library(dplyr)

df %>%
  group_by(id) %>%
  mutate(
    cumsum = cumsum(value),
    valBack = c(cumsum[1], (cumsum - lag(cumsum))[-1])
  )

给予：

# A tibble: 15 x 5
# Groups:   id [3]
      id  hour value cumsum valBack
   <int> <int> <int>  <int>   <int>
 1     1     1    10     10      10
 2     1     2    13     23      13
 3     1     3     8     31       8
 4     1     4     4     35       4
 5     1     5     9     44       9
 6     2     1    12     12      12
 7     2     2    14     26      14
 8     2     3     5     31       5
 9     2     4    15     46      15
10     2     5     1     47       1
11     3     1     2      2       2
12     3     2     3      5       3
13     3     3     6     11       6
14     3     4    11     22      11
15     3     5     7     29       7

【讨论】：

如何调整它以使其也适用于单个组？现在它只替换列中的第一个值，而不是每个组。再次感谢您，
每个组都有效吗？不知道你的意思。
嗨，我已经更新了我的示例以表明它不会产生所需的输出。希望现在更清楚了吗？
不清楚，因为它不会产生您所描述的输出。它与您想要得到的完全匹配。您可以重新启动 R 并仅加载 dplyr 然后执行代码吗？不知何故，您的代码似乎没有按id 分组，尽管这正是它应该做的。
天哪，难以置信！！谢谢，现在可以了。我再次添加了dplyr::mutate(valBack = c(cumsum[1], (cumsum - lag(cumsum))[-1]))，它可以工作了:) 谢谢:)

【解决方案2】：

虽然接受的答案有效，但它比需要的复杂。如果您查看lag 函数，您会发现它有不同的参数

dplyr::lag(x, n = 1L, default = NA, order_by = NULL, ...)

在这里我们可以使用default 并将其设置为0 以获得所需的输出。往下看：

library(dplyr)

df %>%
  group_by(id) %>%
  mutate(cumsum  = cumsum(value), 
         rawdata = cumsum - lag(cumsum, default = 0))

#> # A tibble: 15 x 5
#> # Groups:   id [3]
#>       id  hour value cumsum rawdata
#>    <int> <int> <int>  <int>   <dbl>
#>  1     1     1     2      2       2
#>  2     1     2     1      3       1
#>  3     1     3    13     16      13
#>  4     1     4    15     31      15
#>  5     1     5    10     41      10
#>  6     2     1     3      3       3
#>  7     2     2     8     11       8
#>  8     2     3     4     15       4
#>  9     2     4    12     27      12
#> 10     2     5    11     38      11
#> 11     3     1    14     14      14
#> 12     3     2     6     20       6
#> 13     3     3     5     25       5
#> 14     3     4     7     32       7
#> 15     3     5     9     41       9

【讨论】：