Преобразовать аккуратный фрейм данных в матрицу смежности

Question

У меня есть дата-кадр с бумажными идентификаторами и именами авторов, например:

library(tidyverse)

df <- tribble(
  ~id, ~name,
  1, "a", 
  1, "b", 
  2, "b", 
  2, "c",
  3, "b",
  3, "c"
)

Интерпретация заключается в том, что авторы a и b написали статью 1 вместе, а авторы b и c написали статьи 2 и 3.

Я хотел бы построить это, например, с помощью ggraph вроде так:

a - b = c

То есть я хотел бы, чтобы авторы были узлами, а количество статей - соавторами в качестве граничных весов.

Answer 1

Вы можете определить матрицу смежности с базой R. Попробуйте это:

# create a 2-mode sociomatrix
mat <-  t(table(df))
# create adjacency matrix as product of the 2-mode sociomatrix
adj.mat <- mat %*% t(mat)
# if you want the diagonal to be 0 use : diag(adj.mat) <- 0. This can also be done directly
# with igraph
# define your network
library(igraph)
net <- graph_from_adjacency_matrix(adj.mat, mode = "undirected", weighted = TRUE,
                                   diag = FALSE)
V(net)$name # vertices (nodes) name
E(net) # edges
E(net)$weight # edges weight
# example of plot
library(ggraph)
ggraph(net, layout = "igraph", algorithm = "kk") +
        geom_edge_link(aes(width = weight)) +
        geom_node_point(size = 8, colour = "steelblue") + 
        geom_node_text(aes(label = name)) +
        ggforce::theme_no_axes()
# output