使用r dplyr库在新列中生成聚合数字

Question

我试图根据现有列中值的汇总，在数据框架中使用dplyr在数据框架中生成新列。给定我的数据框：

group1 <- c("2019","2019","2019","2018","2018","2017","2017","2017")
group2 <- c("2019-01-01", "2019-01-01","2019-01-01","2018-05-01","2018-06-01","2017-01-01","2017-01-01","2017-02-01")
group3 <- c("A","A","B","A","A","C","C","B")
df <- data.frame("Year" = group1,"Date" = group2,"Sample" = group3)

给出：

  Year      Date  Sample
1 2019 2019-01-01   A
2 2019 2019-01-01   A
3 2019 2019-01-01   B
4 2018 2018-05-01   A
5 2018 2018-06-01   A
6 2017 2017-01-01   C
7 2017 2017-01-01   C
8 2017 2017-02-01   B

所以我想生成新的列"计数"，每行都会给出每个样本唯一日期的总数。因此，对于上述数据，我希望结果为：

  Year       Date Sample Count
1 2019 2019-01-01   A     1
2 2019 2019-01-01   A     1
3 2019 2019-02-01   B     1
4 2018 2018-05-01   A     2
5 2018 2018-06-01   C     2
6 2017 2017-01-01   C     1
7 2017 2017-01-01   C     1
8 2017 2017-02-01   B     1

我尝试在r中使用以下代码：

df %>%
  group_by(Year) %>%
    group_by(Sample) %>%
      group_by(Date) %>%
        mutate(Count = n_distinct(Date))

但我没有得到正确的答案！

Answer 1

您可以尝试：

library(dplyr)
df %>% 
  group_by(Year, Sample) %>% 
  mutate(Count = n_distinct(Date))

如果要将几个变量传递给group_by，则需要将它们放在一起 - 您正在做的是通过每个新语句取消以前的分组。

此外，如果您想计算唯一的日期，则不应按照它们进行分组。

上述代码将给出：

# A tibble: 8 x 4
# Groups:   Year, Sample [6]
  Year  Date       Sample Count
  <fct> <fct>      <fct>  <int>
1 2019  2019-01-01 A          1
2 2019  2019-01-01 A          1
3 2019  2019-01-01 B          1
4 2018  2018-05-01 A          2
5 2018  2018-06-01 A          2
6 2018  2017-01-01 C          1
7 2017  2017-01-01 C          1
8 2017  2017-02-01 B          1

请注意，您生成的数据框架与您向我们展示的数据框架之间存在不匹配。代码生成的数据框是：

  Year       Date Sample
1 2019 2019-01-01      A
2 2019 2019-01-01      A
3 2019 2019-01-01      B
4 2018 2018-05-01      A
5 2018 2018-06-01      A
6 2018 2017-01-01      C
7 2017 2017-01-01      C
8 2017 2017-02-01      B

确实，给定Year中唯一具有2个不同Date s的Sample是A（2018年）。