R邻接矩阵 - 获取具有特定属性值的关系比例

Question

我有一个描述友谊的邻接矩阵。此外，我还有存储在向量中的矩阵参与者的属性值（例如性别）。我的目标是分别得到男性和女性的男性和女性朋友的百分比。

e.g. matrix A
 Actor 1   2    3
[1,]  0    1    1
[2,]  0    0    1
[3,]  1    1    0
.
gender <- c("male", "female", "male")

在上面的这个例子中，结果应该是这样的：

        male  female
male    50%    50%
female  100%   0%

感谢您的任何建议。

Answer 1

这样的事情怎么样？

# define matrix
m <- matrix(c(0,0,1,1,0,1,1,1,0),nrow = 3, ncol = 3)

# define gender vector
gender <- c("male", "female", "male")

# find: male-male friendships
mm <- subset.matrix(m, subset = gender == "male", select = gender == "male")
sum(mm)/(dim(mm)[1]*dim(mm)[2])

这为您提供了输出矩阵的 1,1 元素

但我有点困惑。你的矩阵不应该是对称的，这样 percent_males_friends_with_females 等于 percent_females_that_are_friends_with_males 吗？