Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/wordpress/12.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 如何计算某一组节点之间的边数？_R_Matrix_Edges_Sna_Edge List - Fatal编程技术网
Fatal编程技术网
  • r/
  • R 如何计算某一组节点之间的边数？

R 如何计算某一组节点之间的边数？

r matrix

R 如何计算某一组节点之间的边数？,r,matrix,edges,sna,edge-list,R,Matrix,Edges,Sna,Edge List,我有以下数据集和以下脚本： library(GGally) library(ggnet) library(network) library(sna) library(ggplot2) # edgelist e <- data.frame(sender = c(1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 5), receiver = c(2, 3, 4, 5, 1, 3, 1, 1, 2, 2, 4, 3, 2, 4))

我有以下数据集和以下脚本：

library(GGally)
library(ggnet)
library(network)
library(sna)
library(ggplot2)

# edgelist
e <- data.frame(sender = c(1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 5),
                receiver = c(2, 3, 4, 5, 1, 3, 1, 1, 2, 2, 4, 3, 2, 4))

# information about the nodes (vertices)
v <- data.frame(actors = c(1, 2, 3, 4, 5),
                groups = c("A", "A", "B", "C", "D"))

net <- network(e, directed = TRUE)

x = data.frame(actors = network.vertex.names(net))
x = merge(x, v, by = "actors", sort = FALSE)$groups

net %v% "group" = as.character(x)

y = RColorBrewer::brewer.pal(9, "Set1")[ c(3, 1, 9, 6, 8) ]
names(y) = levels(x)

ggnet2(net, color = "group", palette = y, alpha = 0.75, size = 4, edge.alpha = 0.5, arrow.size = 8, arrow.gap = 0.01)

库（GGally）
图书馆（ggnet）
图书馆（网络）
图书馆（sna）
图书馆（GG2）
#边缘学者

e来自
网络的
mixingmatrix
函数实现了这一功能。它显示了组内和组间的联系数量，实现了同质和混合


> mixingmatrix(net, "group")
       To
From    A B C D Total
  A     3 2 1 1     7
  B     3 0 1 0     4
  C     1 1 0 0     2
  D     0 0 1 0     1
  Total 7 3 3 1    14