Tenho dois conjuntos de dados, um que chamarei de mestre e o outro de suplementar. Ambos têm observações em intervalos de 10 minutos, mas há lacunas de tempo no mestre que desejo preencher com o suplementar. Normalmente, eu usaria apenas um left_join, mas o suplementar também tem carimbos de data/hora sobrepostos do mestre. Quero apenas transferir os carimbos de data/hora exclusivos do suplementar para o mestre. Código de exemplo abaixo:
TIMESTAMP <- c("2019-04-27 17:30:00", "2019-04-27 17:40:00", "2019-04-27 17:50:00", "2019-04-27 18:10:00", "2019-04-27 18:30:00", "2019-04-27 18:40:00")
dates<-c("2019-04-27", "2019-04-27", "2019-04-27", "2019-04-27", "2019-04-27", "2019-04-27")
Tower <- c("TW2", "TW2", "TW2", "TW2", "TW2", "TW2")
Camera <- c("C5N","C5N","C5N","C5N","C5N","C5N")
Cow <-c(0, 1, 0, 0, 0, 5)
Master<- data.frame(TIMESTAMP, dates, Tower, Camera, Cow)
TIMESTAMP <- c("2019-04-27 17:30:00", "2019-04-27 17:40:00", "2019-04-27 18:00:00", "2019-04-27 18:10:00", "2019-04-27 18:20:00","2019-04-27 18:30:00")
dates<-c("2019-04-27", "2019-04-27", "2019-04-27", "2019-04-27", "2019-04-27", "2019-04-27")
Tower <- c("TW2", "TW2", "TW2", "TW2", "TW2", "TW2")
Camera <- c("C4N","C4N","C4N","C4N","C4N","C4N")
Cow <-c(0, 1, 4, 0, 2, 0)
Supplemental<- data.frame(TIMESTAMP, dates, Tower, Camera, Cow)
Tentei usar anti_join no pacote dplyr, mas o dataframe resultante tinha apenas 2 observações, então algo deve estar errado.
require(dplyr)
Complete<-Master%>%
anti_join(Supplemental, by=join_by(TIMESTAMP==TIMESTAMP))
Qualquer ajuda é bem-vinda!