因子をPOSIXltに変換して日付を伝播させようR

Question

私は時刻情報を持つベクトルを1日に1回しか書かれていません。ベクトルをPOSIXltのような使用可能な形式に変換する必要があります。 1日以内のすべての時刻（%H:%M）が日付のない時間より前に記録された最後の日付に属している時刻が表示されます。日付への変換率についての質問に、複数の以前の回答から

t <- structure(c(6L, 1L, 2L, 3L, 4L, 5L, 10L, 7L, 8L, 9L), 
    .Label = c("00:15", "00:25", "00:35", "00:45", "02:05", "20.01.2013; 0:05", 
    "20:48", "20:58", "21:08", "25.01.2013; 20:38"), class = "factor") 

（例えばhere）、私はt[c(1, 7)]を変換する方法を知っています。

t1 <- strptime(as.character(t[c(1, 7)]), format = "%d.%m.%Y; %H:%M") 
# t1 
# [1] "2013-01-20 00:05:00 CET" "2013-01-25 20:38:00 CET" 

ただし、正しく変換されるように、残りの値の欠損日付を伝播するにはどうすればよいですか。

Answer 1

library(zoo) # For the na.locf function 

df = data.frame(date=t) 

# Put date and time in separate columns 
df$time = gsub(".*; (.*)","\\1", df$date) 
df$date = as.Date(df$date, format="%d.%m.%Y") 

# Fill missing df$date values 
df$date = na.locf(df$date) 

# Convert to POSIXct 
df$date = as.POSIXct(paste(df$date, df$time)) 
df = df[,1, drop=FALSE] 

df 

        date 
1 2013-01-20 00:05:00 
2 2013-01-20 00:15:00 
3 2013-01-20 00:25:00 
4 2013-01-20 00:35:00 
5 2013-01-20 00:45:00 
6 2013-01-20 02:05:00 
7 2013-01-25 20:38:00 
8 2013-01-25 20:48:00 
9 2013-01-25 20:58:00 
10 2013-01-25 21:08:00 

Answer 2

我々はdplyr

library(dplyr) 
data.frame(t) %>% 
    mutate(Date = as.Date(t, "%d.%m.%Y")) %>% 
    group_by(grp = cumsum(!is.na(Date))) %>% 
    mutate(Date = Date[1L], 
      DateTime = as.POSIXct(paste(Date, sub(".*;", "", t)))) %>% 
    ungroup() %>% 
    select(DateTime) 
#   DateTime 
#    <dttm> 
#1 2013-01-20 00:05:00 
#2 2013-01-20 00:15:00 
#3 2013-01-20 00:25:00 
#4 2013-01-20 00:35:00 
#5 2013-01-20 00:45:00 
#6 2013-01-20 02:05:00 
#7 2013-01-25 20:38:00 
#8 2013-01-25 20:48:00 
#9 2013-01-25 20:58:00 
#10 2013-01-25 21:08:00 

---

それともbase R

i1 <- nchar(as.character(t))==5 
v1 <- ifelse(i1, paste(sub(";.*", ";", t[!i1])[cumsum(!i1)], 
        sub(".*;\\s+", "", t[i1])), as.character(t)) 

strptime(v1, "%d.%m.%Y %H:%M")