Wstaw wiersze dla brakujących dat/godzin

To stare pytanie, ale po prostu chciałem opublikować sposób obsługi dplyr, ponieważ natknąłem się na ten post, szukając odpowiedzi na podobny problem. Uważam, że jest to bardziej intuicyjne i łatwiejsze dla oczu niż podejście do zoo.

library(dplyr)

ts <- seq.POSIXt(as.POSIXct("2001-09-01 0:00",'%m/%d/%y %H:%M'), as.POSIXct("2001-09-01 0:07",'%m/%d/%y %H:%M'), by="min")

ts <- seq.POSIXt(as.POSIXlt("2001-09-01 0:00"), as.POSIXlt("2001-09-01 0:07"), by="min")
ts <- format.POSIXct(ts,'%m/%d/%y %H:%M')

df <- data.frame(timestamp=ts)

data_with_missing_times <- full_join(df,original_data)

   timestamp     tr tt sr st
1 09/01/01 00:00 15 15 78 42
2 09/01/01 00:01 20 64 98 87
3 09/01/01 00:02 31 84 23 35
4 09/01/01 00:03 21 63 54 20
5 09/01/01 00:04 15 23 36 15
6 09/01/01 00:05 NA NA NA NA
7 09/01/01 00:06 NA NA NA NA
8 09/01/01 00:07 NA NA NA NA

Również przy użyciu dplyr, ułatwia to coś takiego jak zmiana wszystkich brakujących wartości na coś innego, co przydało mi się podczas wykreślania w ggplot.

data_with_missing_times %>% group_by(timestamp) %>% mutate_each(funs(ifelse(is.na(.),0,.)))

   timestamp     tr tt sr st
1 09/01/01 00:00 15 15 78 42
2 09/01/01 00:01 20 64 98 87
3 09/01/01 00:02 31 84 23 35
4 09/01/01 00:03 21 63 54 20
5 09/01/01 00:04 15 23 36 15
6 09/01/01 00:05  0  0  0  0
7 09/01/01 00:06  0  0  0  0
8 09/01/01 00:07  0  0  0  0

Date padding jest zaimplementowany w pakiecie padr w R. jeśli przechowujesz ramkę danych, ze zmienną date-time przechowywaną jako POSIXct lub POSIXlt. Wszystko co musisz zrobić to:

library(padr)
pad(df_name)

Zobacz winietę ("padr") lub ten wpis na blogu, aby jej użyć.

# some made-up data
originaldf <- data.frame(timestamp=c("9/1/01 0:00","9/1/01 0:01","9/1/01 0:03","9/1/01 0:04"),
    tr = rnorm(4,0,1),
    tt = rnorm(4,0,1))

originaldf$minAsPOSIX <- as.POSIXct(originaldf$timestamp, format="%m/%d/%y %H:%M", tz="GMT")

# Generate vector of all minutes
ndays <- 1 # number of days to generate
minAsNumeric <- 60*60*24*243 + seq(0,60*60*24*ndays,by=60)

# convert those minutes to POSIX
minAsPOSIX <- as.POSIXct(minAsNumeric, origin="2001-01-01", tz="GMT")

# new df
newdf <- merge(data.frame(minAsPOSIX),originaldf,all.x=TRUE, by="minAsPOSIX")

W przypadku, gdy chcesz zastąpić wartości NA uzyskane za pomocą dowolnej metody wymienionej powyżej zerami, możesz to zrobić:

df[is.na(df)] <- 0

(orginalnie chciałem skomentować to w odpowiedzi Ibollar, ale brakuje mi niezbędnej reputacji, dlatego zamieściłem jako odpowiedź)

df1.zoo <- zoo(df1[,-1], as.POSIXlt(df1[,1], format = "%Y-%m-%d %H:%M:%S")) #set date to Index: Notice that column 1 is Timestamp type and is named as "TS"

full.frame.zoo <- zoo(NA, seq(start(df1.zoo), end(df1.zoo), by="min")) # zoo object
full.frame.df  <- data.frame(TS = as.POSIXlt(index(full.frame.zoo), format = "%Y-%m-%d %H:%M:%S")) # conver zoo object to data frame

full.vancouver <- merge(full.frame.df, df1, all = TRUE) # merge

Szukałem czegoś podobnego, gdzie zamiast wypełniać brakujące znaczniki czasu moje dane były w miesiącach i dniach. Więc chciałem wygenerować sekwencję miesięcy, które zaspokoiłyby lata przestępne i tak dalej. Użyłem lubridate:

date <- df$timestamp[1]
date_list <- c(date)
while (date < df$timestamp[nrow(df)]){
    date <- date %m+% months(1) 
    date_list <- c(date_list,date)
}
date_list <- format(as.Date(date_list),"%Y-%m-%d")
df_1 <- data.frame(months=date_list, stringsAsFactors = F)

To da mi listę dat w kolejnych miesiącach. Wtedy dołączam się

df_with_missing_months <- full_join(df_1,df)