r: создать список сетевых матриц

Question

Я хочу создать список сетевых матриц, разбитых по проектам. Мои данные структурированы как это.

Project Person_i  Person_j   Value
1       A         B          6
1       B         A          6
2       A         B          4
2       A         C          5
2       B         A          4
2       B         C          9
2       C         A          5
2       C         B          9

Я знаю, как разделить данные и как создавать двоичные списки ребер. Тем не менее, я просто не могу понять, как создавать матрицы с ценными данными.

В частности, я хочу, чтобы мои данные выглядели так

Перечислите $1:

  A B
A 0 6
B 6 0

Перечислите $2:

  A B C
A 0 4 5
B 4 0 9
C 5 9 0

Answer 1

Вы можете попробовать в базе R:

#just in case the columns are factors
df[,2:3]<-lapply(df[,2:3],as.character)
f<-function(x) {
  pers<-unique(unlist(x[,2:3]))
  res<-matrix(0,length(pers),length(pers),dimnames=list(pers,pers))
  res[as.matrix(x[,2:3])]<-x[,4]
  res
}
lapply(split(df,df$Project),f)
#$`1`
#   A B
# A 0 6
# B 6 0
#$`2`
#  A B C
#A 0 4 5
#B 4 0 9
#C 5 9 0

С reshape2 это легче:

require(reshape2)
lapply(split(df,df$Project),
       function(x) acast(x,Person_i ~ Person_j,value.var="Value",fill=0))