r - 比较 2 个数据帧并将结果写入第三个数据帧

Question

我有 2 个具有相同尺寸 A、B 的数据框。每个数据框的第一列是日期。我想创建一个第三个数据框，其中包含 0，其中 A < B 和 1，其中 A > B，其中比较是按元素完成的，不包括日期列。这是我到目前为止所做的，无需循环即可工作。

C = A
C[] = 0
temp = unlist(as.relistable(as.matrix(C[-1])))
temp[which(A[-1]>B[-1])] = 1
C = data.frame(C[1], relist(temp)) 

但似乎必须有一种更简单的方法来做到这一点（特别是考虑到 data.frame 尺寸是相同的）。

一般来说，比较 2 个数据帧元素并将结果写入第 3 个数据帧的正确方法是什么？

Answer 1

TRUE并且FALSE分别是1，0所以你应该能够做到这一点......

C <- ( A > B ) + 0

要排除第一列，只需[像这样对其进行子集化：

C <- ( A[,-1] > B[,-1] ) + 0

例如：

A <- data.frame( Date1 = as.POSIXct( Sys.Date()+101:105 ) , Date2 = as.POSIXct( Sys.Date()-1001:1005 ) )
#       Date1      Date2
#1 2013-12-13 2010-12-07
#2 2013-12-14 2010-12-06
#3 2013-12-15 2010-12-05
#4 2013-12-16 2010-12-04
#5 2013-12-17 2010-12-03

B <- data.frame( Date1 = as.POSIXct( Sys.Date()+106:110 ) , Date2 = as.POSIXct( Sys.Date()-1006:1010 ) )
#       Date1      Date2
#1 2013-12-18 2010-12-02
#2 2013-12-19 2010-12-01
#3 2013-12-20 2010-11-30
#4 2013-12-21 2010-11-29
#5 2013-12-22 2010-11-28

C <- ( A > B ) + 0

#     Date1 Date2
#[1,]     0     1
#[2,]     0     1
#[3,]     0     1
#[4,]     0     1
#[5,]     0     1