R/Конверсия биграфа в монограф

Материал из Letopisi.Ru — «Время вернуться домой»
Перейти к: навигация, поиск

Превращение биграфа в граф = история превращения графа, в котором есть и субъекты - person и объекты

Исходный пример - есть люди и есть группы, к которым они относятся

  1. obebukhova Литература
  2. sch27@tagobr.ru Литература


library('Matrix')
A <- spMatrix(nrow=length(unique(df$person)),
       ncol=length(unique(df$group)),
       i = as.numeric(factor(df$person)),
       j = as.numeric(factor(df$group)),
       x = rep(1, length(as.numeric(df$person))) )
row.names(A) <- levels(factor(df$person))
colnames(A) <- levels(factor(df$group))
A
Arow <- A %*% t(A)  # users
Acol <- t(A) %*% A # pages

А дальше может работать отдельно с участниками и страницами и их связями

gn <- graph_from_adjacency_matrix(Arow,mode = c("directed"), weighted = NULL, diag = TRUE, add.colnames = NULL, add.rownames = NA) # получаем граф
gn <- simplify(gn) # Упрощаем граф


Ссылки:

Персональные инструменты
Инструменты