r - sum 和 + 之间的不同输出

Question

我正在解决一个问题，该问题基本上包括根据 ID 对所有行求和，并对一些特定变量求和以获得整合的数据集以输入另一项工作，但是 sum 函数存在问题，我很感激一些关于这个的解释。

数据集:

teste <- data.frame(ID = c(1, 1, 2, 1, 3, 3, 2),
                    VALUE = c(10, 10, 10, 10, 10, 10, 10),
                    MOD = c(1, 1, 1, 1, 1, 1, 1))

  ID VALUE MOD
1  1    10   1
2  1    10   1
3  2    10   1
4  1    10   1
5  3    10   1
6  3    10   1
7  2    10   1

使用 + 运算符:

teste %>%
    group_by(ID) %>%
    summarise_all(sum, na.rm = TRUE) %>%
    mutate(CONS = VALUE + MOD)

# A tibble: 3 x 4
     ID VALUE   MOD  CONS
  <dbl> <dbl> <dbl> <dbl>
1     1    30     3    33
2     2    20     2    22
3     3    20     2    22

使用 sum 函数:

teste %>%
    group_by(ID) %>%
    summarise_all(sum, na.rm = TRUE) %>%
    mutate(CONS = sum(VALUE, MOD))

# A tibble: 3 x 4
     ID VALUE   MOD  CONS
  <dbl> <dbl> <dbl> <dbl>
1     1    30     3    77
2     2    20     2    77
3     3    20     2    77

Answer 1

summarize_all removes one level of grouping所以重新组合它:

teste %>%
    group_by(ID) %>%
    summarise_all(sum, na.rm = TRUE) %>%
    group_by(ID) %>%   # <--------------------------
    mutate(CONS = sum(VALUE, MOD)) %>%
    ungroup

给予:

# A tibble: 3 x 4
# Groups:   ID [3]
     ID VALUE   MOD  CONS
  <dbl> <dbl> <dbl> <dbl>
1     1    30     3    33
2     2    20     2    22
3     3    20     2    22