Füllen Sie Zeitreihenintervalle fehlt

Question

ich mehrere Zeitintervalle haben wie die folgende aufgezeichnet:

In   Out   tag  
    2008-12-18 2008-12-19 1 
    2008-12-22 2008-12-23 1 
    2008-12-29 2009-01-02 1 
    2009-01-05 2009-01-05 1 
    2009-01-13 2009-01-13 1 
    2009-01-14 2009-01-14 1 
    2009-01-19 2009-01-19 1 

Ich möchte inn die fehlenden Intervalle füllen, so dass es wie folgt aussieht:

In   Out   tag  
    2008-12-18 2008-12-19 1 
    2008-12-20 2008-12-21 0 
    2008-12-22 2008-12-23 1 
    2008-12-24 2008-12-28 0 
    2008-12-29 2009-01-02 1 
    2009-01-03 2008-01-04 0 
    2009-01-05 2009-01-05 1 
    ... 

Ich weiß, dass ich zoo verwenden kann, um fehlende Daten einer Zeitreihe auszufüllen. Auch dass ich mit interval(start, end) aus dem lubridate Paket Intervalle erstellen konnte. Mein Anfang war, dass ich das irgendwie kombinieren konnte, um die fehlenden Intervalle auszufüllen.

Ich habe auch darüber nachgedacht, ob es irgendwelche "brut-force" -Methoden gibt, mit denen ich die Intervalle füllen könnte. z. B. Funktion, die das letzte Element von Out in der vorherigen Zeile und In von der nächsten Zeile abrufen würde, aber keine Lösung gefunden haben.

Idealerweise würde ich gerne wissen, ob es irgendwelche clevere Möglichkeiten sind diese zoo, lubridate, xts oder andere Werkzeuge in R mit zu tun?

Answer 1

Try this:

library(data.table) 

df = data.table(
    In=as.Date('2008-12-18') + cumsum(c(0,4,7,7,8,1,5)), 
    Out=as.Date('2008-12-19') + cumsum(c(0,4,10,3,8,1,5)), 
    tag=1) 

toMerge = df[, .(In=Out+1, Out=shift(In-1, type='lead'), tag=0)][In <= Out] 

> merge(df, toMerge, all=T) 
#   In  Out tag 
# 1: 2008-12-18 2008-12-19 1 
# 2: 2008-12-20 2008-12-21 0 
# 3: 2008-12-22 2008-12-23 1 
# 4: 2008-12-24 2008-12-28 0 
# 5: 2008-12-29 2009-01-02 1 
# 6: 2009-01-03 2009-01-04 0 
# ...