一行与所有行的条件语句

Question

我不知道这里发生了什么。 我在代码中有一些逻辑缺陷吗？

我想通过时间差来匹配两个数据集。 一个案例与另一组中的条目不同大约 4 小时。 我正在计算差异，例如：

qnr$submitdate[10]-raw1$time[7]
Time difference of 4 hours

我指定了一个时间 window：

sum(qnr$submitdate[10]-raw1$time[7] <= 4 & qnr$submitdate[10]-raw1$time[7] > 3.995)
[1] 1

完美，1 个匹配，现在当我考虑整个数据集时，我得到 0 个匹配？ 这个怎么可能？

sum(qnr$submitdate[10]-raw1$time <= 4 & qnr$submitdate[10]-raw1$time > 3.995)
[1] 0

具体来说，我想匹配一个标识符：

for (i in 1:nrow(qnr)){
 match <- raw1$subject[(qnr$submitdate[i]-raw1$time <= 4 & qnr$submitdate[i]-raw1$time > 3.995)]
 if(length(match)>0) qnr$subject[i] <- match
}

这有效，但仅适用于某些情况，而不是上述情况。 有人可以帮助我并启发我吗？

数据：

qnr <- structure(list(submitdate = structure(c(1635427498, 1635427876, 
1635428218, 1635429757, 1635430844, 1635432380, 1635435962, 1635453487, 
1635464448, 1635508264, 1635509440, 1635509727, 1635510277, 1635511263, 
1635511718, 1635514199, 1635514329, 1635517928, 1635519441, 1635519704, 
1635520386, 1635521108, 1635522747, 1635525148, 1635526577), tzone = "UTC", class = c("POSIXct", 
"POSIXt")), subject = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA)), row.names = c(NA, 
-25L), class = c("tbl_df", "tbl", "data.frame"))

raw1 <- structure(list(time = structure(c(1635413099, 1635413819, 1635416446, 
1635417980, 1635421563, 1635439088, 1635493864, 1635495041, 1635495326, 
1635495876, 1635496863, 1635499803, 1635499932, 1635503528, 1635505042, 
1635508347, 1635512177, 1635512850, 1635518752, 1635519382), class = c("POSIXct", 
"POSIXt"), tzone = ""), subject = c("9wtd4kldpun6bhgq", "qbvhqxuw67x1eduw", 
"k2dc9c88t3jcfssy", "vmvwfc6z7j236nhk", "7qo7ra1jj25ue3fb", "5xx9qkkb53nzxev5", 
"o6zaaq469c7t2jps", "dfsj021ojphza6uc", "4k0l4a3yrb33hel1", "vf6usaa0cl8kz17t", 
"f1wwfeoeekoru88z", "oe8e2u6w4a1f6f6m", "tnxxywtpsj8nejoa", "zht8w1bfhq4dk22l", 
"atd314r9a4htlaal", "mwbh9eafxczk0x8u", "ke7m4qqp4aodd1fb", "v13fx76lsohsa1hh", 
"8kvynhcvfs09g658", "5scqtdz8ha8cuxt1")), row.names = c(79226L, 
26641L, 79425L, 79624L, 79823L, 26789L, 2961L, 3109L, 3257L, 
47585L, 3405L, 3553L, 3701L, 47784L, 3849L, 47983L, 48182L, 48381L, 
48580L, 48779L), class = c("data.table", "data.frame"))

Answer 1

原因是减去时间使用 timediff 函数，它使用 units="auto" 作为标准。

它工作，当改变

qnr$submitdate[i]-raw1$time

至

difftime(qnr$submitdate[i],raw1$time, units="hours")