问题描述
我正在尝试连接在同一过程中被引用的作者。我的节点是作者，边缘是进程，但我不知道如何创建边缘列表。
我现在拥有的（'Doutrina' 表示作者，'Numero' 表示进程号）：
我想要这样的东西（这里的“N”表示这种联系发生了多少次，即它们被一起引用了多少次）：
示例数据：
library(dplyr)
df <- tribble(
~Doutrina,~Numero,"MILARE,2014","1009526-53.2015.8.26.0032","SEGUIN,2000","0054387-89.2011.8.26.0224","SILVA,2009",2015","0000351-14.2013.8.26.0326",2011","MAXIMILIANO,1961","0000431-26.2013.8.26.0698","0054391-29.2011.8.26.0224","0012360-28.2010.8.26.0224","0012360-28.2010.8.26.0224"
)
df
#> # A tibble: 12 x 2
#> Doutrina Numero
#> <chr> <chr>
#> 1 MILARE,2014 1009526-53.2015.8.26.0032
#> 2 SEGUIN,2000 0054387-89.2011.8.26.0224
#> 3 SILVA,2009 0054387-89.2011.8.26.0224
#> 4 MILARE,2015 0000351-14.2013.8.26.0326
#> 5 SILVA,2011 0000351-14.2013.8.26.0326
#> 6 MAXIMILIANO,1961 0000351-14.2013.8.26.0326
#> 7 SILVA,2009 0000431-26.2013.8.26.0698
#> 8 SEGUIN,2000 0000431-26.2013.8.26.0698
#> 9 SILVA,2009 0054391-29.2011.8.26.0224
#> 10 SEGUIN,2000 0054391-29.2011.8.26.0224
#> 11 MAXIMILIANO,2015 0012360-28.2010.8.26.0224
#> 12 MILARE,2015 0012360-28.2010.8.26.0224
解决方法
我修改了您的示例数据，因此结果会更有趣。
library(dplyr)
df <- tribble(
~Doutrina,~Numero,"MILARE,2014","1009526-53.2015.8.26.0032","SEGUIN,2000","0054387-89.2011.8.26.0224","SILVA,2009",2015","0000351-14.2013.8.26.0326",2011","MAXIMILIANO,1961","0000431-26.2013.8.26.0698","0054391-29.2011.8.26.0224","0012360-28.2010.8.26.0224","0012360-28.2010.8.26.0224"
)
df %>%
mutate(Doutrina = sub(",[0-9]{4}","",Doutrina)) %>% # remove the year
full_join(x = .,y = .,by = "Numero") %>% # join data to itself by Numero
select(Doutrina = Doutrina.x,Doutrina2 = Doutrina.y) %>% # keep only name columns
filter(Doutrina != Doutrina2) %>% # remove self-reference rows
filter(Doutrina < Doutrina2) %>% # only keep rows for one diretion of edge/link
group_by(Doutrina,Doutrina2) %>%
summarise(N = n(),.groups = "drop")
#> # A tibble: 4 x 3
#> Doutrina Doutrina2 N
#> <chr> <chr> <int>
#> 1 MAXIMILIANO MILARE 2
#> 2 MAXIMILIANO SILVA 1
#> 3 MILARE SILVA 1
#> 4 SEGUIN SILVA 3