在 R 中创建和弦网络

Question

我正在尝试使用 R 中的“networkD3”库为我的数据创建和弦图。 我正在遵循此stackoverflow帖子中提出的逻辑： R中的网络和弦图困境

我对使用“igraph”和“networkd3”创建和弦图特别感兴趣，因为我在我的计算机上没有安装其他库（例如“circlize”）的管理权限。

我在 R 中创建了一些假数据：

library(igraph)
library(dplyr)
library(networkD3)

#create file from which to sample from
x5 <- sample(1:100, 1100, replace=T)
#convert to data frame
x5 = as.data.frame(x5)

#create first file (take a random sample from the created file)
a = sample_n(x5, 1000)
#create second file (take a random sample from the created file)
b = sample_n(x5, 1000)

#combine
c = cbind(a,b)
#create dataframe
c = data.frame(c)
#rename column names
colnames(c) <- c("a","b")

接下来，我创建了一个邻接矩阵：

#创建邻接矩阵

g1 <- graph_from_adjacency_matrix(c)

当我尝试从邻接矩阵创建和弦网络时会出现问题：

chordNetwork(Data = c, 
             width = 500, 
             height = 500,
            )

Error in chordNetwork(Data = g, width = 500, height = 500, ) : 
  Data must be of type matrix or data frame

有谁知道我做错了什么？

谢谢

Answer 1

两种功能igraph::graph_from_adjacency_matrix和networkD3::chordNetwork需要的方阵作为输入。 您输入的数据不是方形的（即行数和列数相同）。 这是基于帮助文件中示例的两个工作示例...

adjm <- matrix(sample(0:1, 100, replace=TRUE, prob=c(0.9,0.1)), nc=10)

graph_from_adjacency_matrix(adjm)

chordNetwork(Data = adjm)


#####


hairColourData <- matrix(c(11975,  1951,  8010, 1013,
                           5871, 10048, 16145,  990,
                           8916,  2060,  8090,  940,
                           2868,  6171,  8045, 6907),
                         nrow = 4)

graph_from_adjacency_matrix(hairColourData)

chordNetwork(Data = hairColourData, 
             labels = c("red", "brown", "blond", "gray"))