如何比较R中多个数据集的相同位置的每个值

Question

假设我有三个具有相同形式的数据集。

set.seed(1)
df1<-as.data.frame(matrix(sample(c(1:4),15,replace=T),nrow=5))
set.seed(2)
df2<-as.data.frame(matrix(sample(c(1:4),15,replace=T),nrow=5))
set.seed(3)
df3<-as.data.frame(matrix(sample(c(1:4),15,replace=T),nrow=5))

df1              df2               df3
  V1 V2 V3         V1 V2 V3          V1 V2 V3
1  2  4  1       1  1  4  3        1  1  3  3
2  2  4  1       2  3  1  1        2  4  1  3
3  3  3  3       3  3  4  4        3  2  2  3
4  4  3  2       4  1  2  1        4  2  3  3
5  1  1  4       5  4  3  2        4  3  3  4

我想要做的是为三个数据集中相同位置的三个值中的至少一个大于3的情况赋值1，否则为0.我期望的输出

newdf
  V1 V2 V3  
1  0  1  0
2  1  1  0
3  0  1  1
4  1  0  0
5  1  0  1 

将三个数据集合并为一个可能是一个解决方案。但是，由于我的数据非常庞大，我怀疑这种方式是个好主意。任何建议将不胜感激！

Answer 1

这是一个可以帮助您合并数据集的可能解决方案

(((df1 > 3L) + (df2 > 3L) + (df3 > 3L)) > 0L) + 0L
#      V1 V2 V3
# [1,]  0  1  0
# [2,]  1  1  0
# [3,]  0  1  1
# [4,]  1  0  0
# [5,]  1  0  1

或类似地

(Reduce(`+`, list(df1 > 3L, df2 > 3L, df3 > 3L)) > 0L) + 0L

这里的想法是检查每个数据集中的每个值是否大于3，然后总结TRUE结果，检查总和是否为> 0并转换为整数添加0。这是有效的，因为+和>是通用函数，其data.frame方法保留了数据集的维度，请参阅?Ops，更具体地说methods(Ops)。