在R语言中如何重叠两个同维度的二进制矩阵？

根据你的需求，矩阵C的每个元素是矩阵A和B对应位置的逻辑或结果（即只要A或B对应位置为1，C就为1，否则为0），以下是几种简洁的实现方式：

1. 直接使用逻辑或运算符 | #

R语言中可以直接用|对两个矩阵做逐元素逻辑或运算，再转换为整数类型（逻辑值TRUE对应1，FALSE对应0）：

# 构造示例矩阵A和B
A <- matrix(c(0, 0, 1, 1), nrow = 2, ncol = 2, dimnames = list(NULL, c("Gene A", "Gene B")))
B <- matrix(c(1, 0, 0, 0), nrow = 2, ncol = 2, dimnames = list(NULL, c("Gene A", "Gene B")))

# 计算矩阵C
C <- as.integer(A | B)
# 恢复矩阵的维度与列名
dim(C) <- dim(A)
colnames(C) <- colnames(A)

# 查看结果
C

运行后输出的C即为目标结果：

Gene A Gene B
[1,]      1      1
[2,]      0      1

2. 使用pmax()函数（最简洁） #

pmax()会对两个矩阵的对应元素取最大值，对于二进制矩阵来说，最大值恰好等价于逻辑或的结果：

C <- pmax(A, B)

该方法直接返回整数类型矩阵，无需额外处理维度，结果与上述方法完全一致。

3. 逐元素判断（适合理解原理） #

如果想手动实现逻辑判断逻辑，可借助apply()函数逐元素处理：

C <- apply(A, c(1,2), function(x, y) ifelse(x == 1 | y == 1, 1, 0), y = B)

这种方法效率略低，仅适合小矩阵或学习原理时使用。

内容的提问来源于stack exchange，提问作者Nikita Srivastav