У меня есть две таблицы:
library(data.table)
Input<-data.table("Date"=seq(1:10),"Cycle"=c(90,100,130,180,200,230,250,260,300,NA))
Date Cycle
1: 1 90
2: 2 100
3: 3 130
4: 4 180
5: 5 200
6: 6 230
7: 7 250
8: 8 260
9: 9 300
10: 10 320
FDate<-data.table("Date"=seq(1:9),"Cycle"=c(90,100,130,180,200,230,250,260,300),"Task"=c("D","A","B,C",NA,"A,D","D","C","D","A,C,D"))
Date Cycle Task
1: 1 90 D
2: 2 100 A
3: 3 130 B,C
4: 4 180 <NA>
5: 5 200 A,D
6: 6 230 D
7: 7 250 C
8: 8 260 D
9: 9 300 A,C,D
Я просто хочу иметь таблицу вывода с неперекрывающимися Date
и соответствующими Cycle
. Я пробовал с setdiff
, но это не сработало. Я ожидаю такого результата
Date Cycle
10 320
Когда я попробовал это setdiff(FDate$Date,Input$Date)
, оказалось, что integer(0)
Input[!FDate, on=.(Date)]
при условии, что дата без перекрытия достаточна, илиInput[!FDate, on=.(Date, Cycle)]
23.07.2019