Предположим, что у меня есть этот фрейм данных:
times vals
1 1 2
2 3 4
3 7 6
настроено с помощью
foo <- data.frame(times=c(1,3,7), vals=c(2,4,6))
и я хочу это:
times vals
1 1 2
2 2 2
3 3 4
4 4 4
5 5 4
6 6 4
7 7 6
То есть, я хочу заполнить все время от 1 до 7 и заполнить vals из последнего времени, которое не превышает заданное время.
У меня есть код для этого, используя dplyr, но он уродлив. Предложения лучше?
library(dplyr)
foo <- merge(foo, data.frame(times=1:max(foo$times)), all.y=TRUE)
foo2 <- merge(foo, foo, by=c(), suffixes=c('', '.1'))
foo2 <- foo2 %>% filter(is.na(vals) & !is.na(vals.1) & times.1 <= times) %>%
group_by(times) %>% arrange(-times.1) %>% mutate(rn = row_number()) %>%
filter(rn == 1) %>%
mutate(vals = vals.1,
rn = NULL,
vals.1 = NULL,
times.1 = NULL)
foo <- merge(foo, foo2, by=c('times'), all.x=TRUE, suffixes=c('', '.2'))
foo <- mutate(foo,
vals = ifelse(is.na(vals), vals.2, vals),
vals.2 = NULL)