Weighted multi-relational networks from the paper
Nikola Dragić, Oded Keynan, Amiyaal Ilany: Multilayer social networks reveal the social complexity of a cooperatively breeding bird. iScience, Volume 24, Issue 11, 19 November 2021, 103336
Focal observations of Arabian babblers (Argya squamiceps). The folder contains adjacency matrices of nine social groups observed between 2017 and 2020. Some of the groups were observed multiple times, the complete list of group rounds is also provided. We recorded six different interaction types, hence the folder contains a total of 114 adjacency matrices.
> wdir <- "C:/Users/vlado/DL/data/multi/multilayer/birds" > setwd(wdir) > F <- c(dir(pattern="csv"),"XXX.yyy.csv") # add sentinel > type <- c("aggression","allofeeding","allopreening", + "group_foraging","playing","scrounging") > > info <- list(network="birds", + by=c("Dragić, Nikola","Keynan, Oded","Ilany, Amiyaal"), + title="Multilayer social networks reveal the social complexity of a cooperatively breeding bird", + url="https://www.sciencedirect.com/science/article/pii/S2589004221013055", + creator="V. Batagelj",date=date()) > ways <- list(V1="source",V2="target",type="interaction type") > nodes <- list(); links <- list(); data <- list() > NM <- list(format="MWnets",info=info,ways=ways,nodes=nodes,links=links,data=data) > > old <- "XXX" > for(f in F){fc <- strsplit(f,"\\.")[[1]]; group <- fc[1]; itype <- fc[2] + if(group!="XXX") M <- as.matrix(read.csv(f)[-1]) + if(group!=old) { + if(old!="XXX") { + D$type <- as.integer(factor(D$type,levels=type)) + MN <- NM; MN$links <- D + MN$info$network <- paste("birds",old) + MN$nodes <- list(V1=data.frame(ID=nam),V2=data.frame(ID=nam), + type=data.frame(ID=type)) + write(toJSON(MN),paste(old,".json",sep="")) + } + old <- group; cat(old,"\n"); nam <- colnames(M); n <- nrow(M); + D <- data.frame(V1=integer(),V2=integer(),type=character(),w=integer(), + stringsAsFactors=FALSE) + } + for(i in 1:n) for(j in 1:n) + if(M[i,j]>0) D <- rbind(D,data.frame(V1=i,V2=j,type=itype,w=M[i,j])) + } ARU_01 ARU_02 BER_01 BER_02 BOR_01 BOR_02 BOR_03 HIL_01 HVR_01 KOT_01 KOT_02 NIS_02 NIS_04 NIS_05 THG_01 THG_02 THG_03 THG_04 ZEV_01 XXX
We obtained 19 networks on json files.
> MN <- fromJSON("HVR_01.json") > str(MN) List of 6 $ format: chr "MWnets" $ info :List of 6 ..$ network: chr "birds HVR_01" ..$ by : chr [1:3] "Dragić, Nikola" "Keynan, Oded" "Ilany, Amiyaal" ..$ title : chr "Multilayer social networks reveal the social complexity of a cooperatively breeding bird" ..$ url : chr "https://www.sciencedirect.com/science/article/pii/S2589004221013055" ..$ creator: chr "V. Batagelj" ..$ date : chr "Wed Jan 11 02:07:23 2023" $ ways :List of 3 ..$ V1 : chr "source" ..$ V2 : chr "target" ..$ type: chr "interaction type" $ nodes :List of 3 ..$ V1 :'data.frame': 10 obs. of 1 variable: .. ..$ ID: chr [1:10] "V1" "V2" "V3" "V4" ... ..$ V2 :'data.frame': 10 obs. of 1 variable: .. ..$ ID: chr [1:10] "V1" "V2" "V3" "V4" ... ..$ type:'data.frame': 6 obs. of 1 variable: .. ..$ ID: chr [1:6] "aggression" "allofeeding" "allopreening" "group_foraging" ... $ links :'data.frame': 272 obs. of 4 variables: ..$ V1 : int [1:272] 1 1 1 2 2 2 2 2 2 3 ... ..$ V2 : int [1:272] 2 7 8 3 5 6 7 8 9 1 ... ..$ type: int [1:272] 1 1 1 1 1 1 1 1 1 1 ... ..$ w : int [1:272] 4 1 3 2 1 4 7 2 2 1 ... $ data : list()
List of network sizes
> for(f in dir(pattern="json")){ + MN <- fromJSON(f); N <- MN$nodes; L <- MN$links + cat(f,"(",length(N$V1$ID),",",length(N$V2$ID),",",length(N$type$ID),",", + length(L$V1),")\n") + } ARU_01.json ( 10 , 10 , 6 , 345 ) ARU_02.json ( 6 , 6 , 6 , 112 ) BER_01.json ( 9 , 9 , 6 , 266 ) BER_02.json ( 9 , 9 , 6 , 173 ) BOR_01.json ( 6 , 6 , 6 , 102 ) BOR_02.json ( 8 , 8 , 6 , 216 ) BOR_03.json ( 7 , 7 , 6 , 149 ) HIL_01.json ( 7 , 7 , 6 , 119 ) HVR_01.json ( 10 , 10 , 6 , 272 ) KOT_01.json ( 9 , 9 , 6 , 260 ) KOT_02.json ( 6 , 6 , 6 , 76 ) NIS_02.json ( 11 , 11 , 6 , 384 ) NIS_04.json ( 15 , 15 , 6 , 722 ) NIS_05.json ( 14 , 14 , 6 , 463 ) THG_01.json ( 6 , 6 , 6 , 131 ) THG_02.json ( 6 , 6 , 6 , 87 ) THG_03.json ( 10 , 10 , 6 , 341 ) THG_04.json ( 10 , 10 , 6 , 235 ) ZEV_01.json ( 8 , 8 , 6 , 193 ) >