gpt4 book ai didi

r - 将虚拟编码矩阵转换为邻接矩阵

转载 作者:行者123 更新时间:2023-12-05 09:34:37 25 4
gpt4 key购买 nike

<分区>

大家,我有这个二进制矩阵

rownames <- c("gene1", "gene2", "gene3", "gene4")
colnames <- c("A", "B", "C", "D")

data <- matrix(c(1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1),nrow = 4, ncol = 4, byrow = TRUE, dimnames = list(rownames, colnames))

data
# A B C D
#gene1 1 0 1 0
#gene2 1 1 0 0
#gene3 1 0 1 0
#gene4 0 1 0 1

我想将数据转换成这个邻接矩阵用于网络 igraph 可视化。

   A B C D
A 0 1 2 0
B 1 0 0 1
C 2 0 0 0
D 0 1 0 0

解释:从 A 中,gene2 与 B 共享分数“1”,这就是我得到 1 分的原因。从 A 中,gene1 和 gene3 与 C 共享分数“总分 2”,这就是它获得 2 分的原因

矩阵可以改成这样吗?我应该使用迭代吗?但我不知道。Tidyverse 方法将非常有帮助。

谢谢

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com