r - 加入两个邻接矩阵并保留值
问题描述
按照这个问题,是否可以连接两个邻接矩阵,并保留新行和新列的值?
以参考中的示例为基础,并用mat1
和mat2
初始化新添加的行和列中的值0
。我想用邻接矩阵中的值初始化它们,并保留该信息。
> mat1
Tommy Roy Addy Sam
Tommy 0 1 0 -1
Roy -1 -1 1 0
Addy 1 0 -1 0
Sam 0 0 -1 1
> mat2
Mike Roy Addy Sam Dan
Mike 0 1 0 -1 0
Roy -1 -1 1 0 1
Addy 1 0 -1 0 -1
Sam 0 0 -1 1 0
Dan 1 0 0 -1 1
complete_matrix <- function(mat, ref) {
dif <- setdiff(rownames(ref), rownames(mat))
mat <- rbind(mat, matrix(0, length(dif), ncol(mat), dimnames = list(dif, NULL)))
mat <- cbind(mat, matrix(0, nrow(mat), length(dif), dimnames = list(NULL, dif)))
return(mat)
}
> complete_matrix(mat2, mat1)
Mike Roy Addy Sam Dan Tommy
Mike 0 1 0 -1 0 0
Roy -1 -1 1 0 1 0
Addy 1 0 -1 0 -1 0
Sam 0 0 -1 1 0 0
Dan 1 0 0 -1 1 0
Tommy 0 0 0 0 0 0
例如,我想complete_matrix(mat2, mat1)
产生以下内容(观察Tommy
行和列):
Mike Roy Addy Sam Dan Tommy
Mike 0 1 0 -1 0 0
Roy -1 -1 1 0 1 1
Addy 1 0 -1 0 -1 0
Sam 0 0 -1 1 0 -1
Dan 1 0 0 -1 1 0
Tommy 0 1 0 -1 0 0
dput
对于 c&P:
mat1 <- structure(c(0L, -1L, 1L, 0L, 1L, -1L, 0L, 0L, 0L, 1L, -1L, -1L,
-1L, 0L, 0L, 1L), .Dim = c(4L, 4L), .Dimnames = list(c("Tommy",
"Roy", "Addy", "Sam"), c("Tommy", "Roy", "Addy", "Sam")))
mat2 <- structure(c(0L, -1L, 1L, 0L, 1L, 1L, -1L, 0L, 0L, 0L, 0L, 1L,
-1L, -1L, 0L, -1L, 0L, 0L, 1L, -1L, 0L, 1L, -1L, 0L, 1L), .Dim = c(5L,
5L), .Dimnames = list(c("Mike", "Roy", "Addy", "Sam", "Dan"),
c("Mike", "Roy", "Addy", "Sam", "Dan")))
解决方案
您可以使用包的union
功能来做到这一点igraph
,这需要先将矩阵转换为图形,然后将结果图形转换回矩阵:
library(igraph)
g1 = graph_from_adjacency_matrix(mat1,weighted=T)
g2 = graph_from_adjacency_matrix(mat2,weighted=T)
g3 = union(g1,g2)
union
不会自动合并 g1 和 g2 的权重,而是将它们作为单独的属性weight_1
和weight_2
. 我们可以通过取两个权重之间的最小值来组合它们,如果两个矩阵之间没有差异,这只是一种合并它们并删除NA
值的方法。
E(g3)$weight = pmin(E(g3)$weight_1,E(g3)$weight_2,na.rm=T)
res = as.matrix(as_adj(g3,attr="weight"))
Tommy Roy Addy Sam Mike Dan
Tommy 0 1 0 -1 0 0
Roy -1 -1 1 0 -1 1
Addy 1 0 -1 0 1 -1
Sam 0 0 -1 1 0 0
Mike 0 1 0 -1 0 0
Dan 0 0 0 -1 1 1
推荐阅读
- latex - 如何使用 pandoc 创建带有目录或标题内部分链接的 PDF
- javascript - 为什么我应该在此处包含 return ?
- php - 从子域向域发送 POST 请求时出现错误 419
- mysql - 如何在 MYSQL 的另一个表中获取项目数组及其关联值的列表?
- reactjs - 如何在 React 中进行条件构建?
- python - 在模型中断 django-model-utils InheritanceManager 上覆盖 __getattr__
- reactjs - 如何使用带有样式组件的本地字体并响应打字稿
- postgresql - template0 访问权限和 pg_database
- c - 在发布者中创建主题(ZeroMQ)
- angular - 将angular 7升级到8成功,但是core找不到模块rxjs?