r - 如何比较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的情况分配一个值，否则为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)。