Werte in einem Datenrahmen in R ausfüllen?

Question

Angenommen ich diesen Datenrahmen haben:

times vals 
1  1 2 
2  3 4 
3  7 6 

mit

foo <- data.frame(times=c(1,3,7), vals=c(2,4,6)) 

einrichten und ich möchte diese:

times vals 
1  1 2 
2  2 2 
3  3 4 
4  4 4 
5  5 4 
6  6 4 
7  7 6 

Das heißt, ich in allen Zeiten füllen wollen von 1 bis 7, und füllen Sie die Werte von der letzten Zeit, die nicht größer als die angegebene Zeit ist.

Ich habe einen Code, um es mit dplyr zu tun, aber es ist hässlich. Vorschläge für bessere?

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) 

Answer 1

A dplyr und tidyr Option:

library(dplyr) 
library(tidyr) 

foo %>% 
right_join(data_frame(times = min(foo$times):max(foo$times))) %>% 
fill(vals) 
# Joining by: "times" 
# times vals 
# 1  1 2 
# 2  2 2 
# 3  3 4 
# 4  4 4 
# 5  5 4 
# 6  6 4 
# 7  7 6 

Answer 2

Dies ist ein Standard Roll Problem kommen:

library(data.table) 

setDT(foo)[.(1:7), on = 'times', roll = T] 
# times vals 
#1:  1 2 
#2:  2 2 
#3:  3 4 
#4:  4 4 
#5:  5 4 
#6:  6 4 
#7:  7 6 

Die oben ist für Entwick-Version (1.9.7+), die intelligentere über Spaltenanpassung ist während beitritt. Für 1.9.6 müssen Sie noch Spaltennamen für die innere Tabelle angeben:

setDT(foo)[.(times = 1:7), on = 'times', roll = T] 

Answer 3

Dies ist etwas länger und ausführliche Basis R Lösung:

# calculate the number of repetitions needed for vals variable 
reps <- c(with(foo, times[2:length(times)]-times[1:length(times)-1]), 1) 

# get result 
fooDoneIt <- data.frame(times = min(foo$times):max(foo$times), 
       vals = rep(foo$vals, reps)) 

Answer 4

Mit approx:

data.frame(times = 1:7, 
      vals = unlist(approx(foo, xout = 1:7, method = "constant", f = 0)[2], use.names = F)) 

    times vals 
1  1 2 
2  2 2 
3  3 4 
4  4 4 
5  5 4 
6  6 4 
7  7 6