R:每年为每个唯一名称计算唯一行数

Question

这是我关于 stackoverflow 的第一个问题。我搜索了类似的问题，但没有找到答案。

我知道标题中的问题不清楚，但我希望你能理解我想要的输出。

我有一个如下所示的数据框:

   ID      Name Year
1   1      Anas 2018
2   1      Carl 2018
3   1 Catherine 2018
4   2      Anas 2018
5   2      Carl 2018
6   3 Catherine 2018
7   3    Julien 2018
8   4      Raul 2018
9   4     Ahmed 2018
10  4  Laurence 2018
11  4      Carl 2018
12  5      Anas 2019
13  5   Georges 2019
14  5     Arman 2019
15  6      Anas 2019
16  6    Pietro 2019
17  7    Pietro 2019
18  8     Diego 2019

如果“名称”列中的名称具有相同的 ID，则表示他们是项目中的协作者。

我想为每个名字添加一个列，其中包含每年唯一合作者的数量(通过将每个名字包括在他的合作者的计数中)

输出应该是这样的:(我添加了最后一列来解释如何计数-不需要)

ID      Name Year Unique_Coll                                      explication
1   1      Anas 2018           3                          (Anas, Carl, Catherine)
2   1      Carl 2018           6  (Carle, Anas, Catherine, Laurence, Ahmed, Raul)
3   1 Catherine 2018           4                  (Catherine, Carl, Anas, Julien)
4   2      Anas 2018           3                          (Anas, Carl, Catherine)
5   2      Carl 2018           6  (Carle, Anas, Catherine, Laurence, Ahmed, Raul)
6   3 Catherine 2018           4                  (Catherine, Carl, Anas, Julien)
7   3    Julien 2018           2                              (Julien, Catherine)
8   4      Raul 2018           4                    (Raul, Ahmed, Laurence, Carl)
9   4     Ahmed 2018           4                    (Ahmed, Raul, Laurence, Carl)
10  4  Laurence 2018           4                    (Laurence, Raul, Ahmed, Carl)
11  4      Carl 2018           6  (Carle, Anas, Catherine, Laurence, Ahmed, Raul)
12  5      Anas 2019           4                   (Anas, Georges, Arman, Pietro)
13  5   Georges 2019           3                           (Georges, Anas, Arman)
14  5     Arman 2019           3                            (Arman Anas, Georges)
15  6      Anas 2019           4                   (Anas, Georges, Arman, Pietro)
16  6    Pietro 2019           2                                   (Pietro, Anas)
17  7    Pietro 2019           2                                   (Pietro, Anas)
18  8     Diego 2019           1                                        (Diego)  

谢谢

Answer 1

您可以构建一个变量，它是一个名称列表，并按以下方式计算唯一名称的数量:

library(dplyr)
df = df %>% 
group_by(ID) %>% 
mutate(group = list(Name)) %>% 
group_by(Year,Name) %>% 
mutate(n = n_distinct(unlist(list(group)))) %>%
select(-group)

# A tibble: 18 x 4
# Groups:   Year, Name [12]
      ID Name       Year     n
   <int> <chr>     <int> <int>
 1     1 Anas       2018     3
 2     1 Carl       2018     6
 3     1 Catherine  2018     4
 4     2 Anas       2018     3
 5     2 Carl       2018     6
 6     3 Catherine  2018     4
 7     3 Julien     2018     2
 8     4 Raul       2018     4
 9     4 Ahmed      2018     4
10     4 Laurence   2018     4
11     4 Carl       2018     6
12     5 Anas       2019     4
13     5 Georges    2019     3
14     5 Arman      2019     3
15     6 Anas       2019     4
16     6 Pietro     2019     2
17     7 Pietro     2019     2
18     8 Diego      2019     1