R: Как объединить строки кадра данных с одним и тем же идентификатором и принять самое новое значение, отличное от NA?

Question

Пример данные кадр

date  name  speed acceleration 
1/1/17  bob  5  NA 
1/1/15  george 5  NA 
1/1/15  bob  NA  4 
1/1/17  bob  4  NA 

Я хочу, чтобы сконденсировать все строки с этим именем в одну строку и сохранить новейшее значение не-пу для столбца скорости и ускорения.

Желаемая выход

date  name  speed acceleration 
1/1/17  bob  5  4 
1/1/15  george 5  NA 

Answer 1

Вы можете сделать это следующим образом:

library(dplyr) 
library(lubridate) 

input = read.table(text = 
"date  name  speed acceleration 
    1/1/17  bob  5  NA 
    1/1/15  george 5  NA 
    1/1/15  bob  NA  4 
    1/1/17  bob  4  NA", 
    header = TRUE, stringsAsFactors = FALSE) 

output <- input %>% 
    mutate(date = mdy(date)) %>% # or maybe dmy, depending on your date format 
    group_by(name) %>% 
    arrange(desc(date)) %>% 
    summarise_all(funs(na.omit(.)[1])) 

output 
# # A tibble: 2 × 4 
#  name  date speed acceleration 
# <chr>  <date> <int>  <int> 
# 1 bob 2017-01-01  5   4 
# 2 george 2015-01-01  5   NA 

Answer 2

Вот вариант использования data.table. Преобразование «data.frame» в «data.table» (setDT(input)), order «даты» после преобразования в Date класса, сгруппированных по «имя», петля через колонки и получить первый не-NA элемент

library(data.table) 
library(lubridate) 
setDT(input)[order(-mdy(date)), lapply(.SD, function(x) x[!is.na(x)][1]), name] 
#  name date speed acceleration 
#1: bob 1/1/17  5   4 
#2: george 1/1/15  5   NA