循环检查date是否包含R中的某个时间间隔 A=c（“A”、“b”、“c”、“d”、“e”、“f”、“g”、“h”、“h”、“j”） B=c（2016-01-04 08:00:00，2016-01-04 08:02:262016-01-04 09:15:15， 2016-01-04 15:16:03, 2016-01-05 12:35:12, 2016-01-05 16:35:05, 2016-01-06 08:20:35, 2016-01-06 08:20:36, 2016-01-07 03:09:00, 2016-01-07 07:16:00) a=as.data.frame（a） b=as.data.frame（b） c=cbind（a，b） A1=c（2016-01-04 07:59:592016-01-05 12:35:12016-01-06 16:36:00， 2016-01-07 03:08:00, 2016-01-08 09:00:00, 2016-01-09 09:00:00) B1=c（2016-01-04 10:00:00，2016-01-05 12:40:00，2016-01-06 16:38:53， 2016-01-07 07:10:00, 2016-01 08 23:50:42, 2016-01-09 17:45:32) a1=as.data.frame（a1） b1=as.data.frame（b1） c1=cbind（a1，b1） z=0 E=矩阵（NA，nrow=长度（c[，1]），ncol=长度（c1[，1]）） E 对于（1中的i：长度（c[，1]）） { N

这里有一种方法：

A=c("a","b","c","d","e","f","g","h","h","j")
B=c(2016-01-04 08:00:00, 2016-01-04 08:02:26, 2016-01-04 09:15:15, 
    2016-01-04 15:16:03, 2016-01-05 12:35:12, 2016-01-05 16:35:05,
    2016-01-06 08:20:35, 2016-01-06 08:20:36, 2016-01-07 03:09:00,
    2016-01-07 07:16:00)
a=as.data.frame(A)
b=as.data.frame(B)
c=cbind(a,b)

A1=c(2016-01-04 07:59:59, 2016-01-05 12:35:12, 2016-01-06 16:36:00,
     2016-01-07 03:08:00, 2016-01-08 09:00:00, 2016-01-09 09:00:00)
B1=c(2016-01-04 10:00:00, 2016-01-05 12:40:00, 2016-01-06 16:38:53,
     2016-01-07 07:10:00, 2016-01 08 23:50:42, 2016-01-09 17:45:32)
a1=as.data.frame(A1)
b1=as.data.frame(B1)
c1=cbind(a1,b1)

z=0
E=matrix(NA,nrow=length(c[,1]),ncol=length(c1[,1]))
E


for(i in 1:length(c[,1]))
{
  N<-c[i,2] 
  for(j in 1:length(c1[,1]))
  {

    z[j]=(N <= c1[j,2] & N >= c1[j,1])
  }
  E[,i]=z

}  
E

g=which(E == 1,arr.ind=T)
n=g[,2]
s<-c[n,]

---

数据

library(data.table)
setDT(c1, key = c("A1", "B1"))
setDT(c)[, C:=B]
foverlaps(c, c1, by.x=c("C", "B"))[!is.na(A1) & !is.na(B1)][, C:=NULL][]
#                     A1                  B1 A                   B
# 1: 2016-01-04 07:59:59 2016-01-04 10:00:00 a 2016-01-04 08:00:00
# 2: 2016-01-04 07:59:59 2016-01-04 10:00:00 b 2016-01-04 08:02:26
# 3: 2016-01-04 07:59:59 2016-01-04 10:00:00 c 2016-01-04 09:15:15
# 4: 2016-01-05 12:35:12 2016-01-05 12:40:00 e 2016-01-05 12:35:12
# 5: 2016-01-07 03:08:00 2016-01-07 07:10:00 h 2016-01-07 03:09:00

A=c（“A”、“b”、“c”、“d”、“e”、“f”、“g”、“h”、“h”、“j”）
B=c（“2016-01-04 08:00:00”、“2016-01-04 08:02:26”、“2016-01-04 09:15:15”，
"2016-01-04 15:16:03", "2016-01-05 12:35:12", "2016-01-05 16:35:05",
"2016-01-06 08:20:35", "2016-01-06 08:20:36", "2016-01-07 03:09:00",
"2016-01-07 07:16:00")
a=as.data.frame（a）
b=as.data.frame（b）
c=cbind（a，b）
A1=c（“2016-01-04 07:59:59”、“2016-01-05 12:35:12”、“2016-01-06 16:36:00”，
"2016-01-07 03:08:00", "2016-01-08 09:00:00", "2016-01-09 09:00:00")
B1=c（“2016-01-04 10:00:00”、“2016-01-05 12:40:00”、“2016-01-06 16:38:53”，
"2016-01-07 07:10:00", "2016-01-08 23:50:42", "2016-01-09 17:45:32")
a1=as.data.frame（a1）
b1=as.data.frame（b1）
c1=cbind（a1，b1）
c$B您可以从
data.table
.if中检查错误（任意（x[[xintervals[2L]]]-x[[xintervals[1L]]]]<0L）停止（“列中的所有项，”：缺少需要TRUE/FALSE的值另外：警告消息：在运算系数中（x[[xintervals[2L]]]，x[[xintervals[1L]]））：“-”对于因子没有意义您必须正确设置数据-我将其添加到帖子中。您可能还希望更正原始帖子，因为
A1=c（2016-01-04 07:59:59…
不起作用。
A=c("a","b","c","d","e","f","g","h","h","j")
B=c("2016-01-04 08:00:00", "2016-01-04 08:02:26", "2016-01-04 09:15:15", 
    "2016-01-04 15:16:03", "2016-01-05 12:35:12", "2016-01-05 16:35:05",
    "2016-01-06 08:20:35", "2016-01-06 08:20:36", "2016-01-07 03:09:00",
    "2016-01-07 07:16:00")
a=as.data.frame(A)
b=as.data.frame(B)
c=cbind(a,b)

A1=c("2016-01-04 07:59:59", "2016-01-05 12:35:12", "2016-01-06 16:36:00",
     "2016-01-07 03:08:00", "2016-01-08 09:00:00", "2016-01-09 09:00:00")
B1=c("2016-01-04 10:00:00", "2016-01-05 12:40:00", "2016-01-06 16:38:53",
     "2016-01-07 07:10:00", "2016-01-08 23:50:42", "2016-01-09 17:45:32")
a1=as.data.frame(A1)
b1=as.data.frame(B1)
c1=cbind(a1,b1)
c$B <- as.POSIXct(c$B)
c1$B1 <- as.POSIXct(c1$B1)
c1$A1 <- as.POSIXct(c1$A1)