Subset Zeitreihe nach Gruppen basierend auf Stichtag Datenrahmen

Question

Ich habe einen Datenrahmen mit Zeitreihendaten für mehrere verschiedene Gruppen. Ich möchte für jede Gruppe innerhalb des ursprünglichen Datenrahmens unterschiedliche Anfangs- und Enddaten angeben.

Hier ist ein Beispieldatenrahmen:

date <- seq(as.POSIXct("2014-07-21 17:00:00", tz= "GMT"), as.POSIXct("2014-09-11 24:00:00", tz= "GMT"), by="hour") 
group <- letters[1:4]       
datereps <- rep(date, length(group))     
attr(datereps, "tzone") <- "GMT" 
sitereps <- rep(group, each = length(date))  
value <- rnorm(length(datereps)) 
df <- data.frame(DateTime = datereps, Group = group, Value = value) 

und hier ist der Datenrahmen ‚schneiden‘ Cutoff Daten zu verwenden:

start <- c("2014-08-01 00:00:00 GMT", "2014-07-26 00:00:00 GMT", "2014-07-21 17:00:00 GMT", "2014-08-03 24:00:00 GMT") 
end <- c("2014-09-11 24:00:00 GMT", "2014-09-01 24:00:00 GMT", "2014-09-07 24:00:00 GMT", "2014-09-11 24:00:00 GMT") 
cut <- data.frame(Group = group, Start = as.POSIXct(start), End = as.POSIXct(end)) 

ich es kann für jede Gruppe manuell tun, loszuwerden die Daten, die ich möchte nicht an beiden Enden der Zeitreihe mit ![(),]:

df2 <- df[!(df$Group == "a" & df$DateTime > "2014-08-01 00:00:00 GMT" & df$DateTime < "2014-09-11 24:00:00 GMT"),] 

B Wie kann ich das automatisieren?

Answer 1

Fügen Sie die Schnitte einfach in den Datenrahmen ein und erstellen Sie dann einen neuen Datenrahmen mit den neuen Spalten, wie unten. df3 enthält die entfernten Datensätze, df4 enthält die beibehaltenen Datensätze.

df2 <- merge(x = df,y = cut,by = "Group") 
df3 <- df2[df2$DateTime <= df2$Start | df2$DateTime >= df2$End,] 
df4 <- df2[!(df2$DateTime <= df2$Start | df2$DateTime >= df2$End),]