tidyverse mit Nachschlüssel zu verbreiten und NAs basierend auf eindeutige Schlüssel füllen

Question

die minimale Beispiel vor:

library(tidyverse) 
ex <-tribble(
    ~id, ~property, ~value, 
    1, "A",  9, 
    1, "A",  8, 
    1, "B",  7, 
    2, "A",  6, 
    2, "B",  5 
) 

Mein Ziel ist es, die Eigenschaft in Spalten zu verbreiten diese Tabelle zu erhalten:

tribble(
    ~id, ~A, ~B, 
    1, 9, 7, 
    1, 8, 7, 
    2, 6, 5 
) 

Gruppierung von id und property und Schlüsseladdiereinheit nahe kommt, aber lässt NA:

## almost but not quite 
ex %>% 
    group_by(id, property) %>% 
    mutate(key = row_number()) %>% 
    spread(property, value) %>% 
    select(-key) -> X 
X 

Gibt:

 id  A  B 
1  1  9  7 
2  1  8 NA 
3  2  6  5 

ich dies in der minimal Beispiel durch Aufspalten des oben von jedem property, fallen NAS- und Verbinden zurück durch id lösen kann:

inner_join(
    na.omit(select(X, id, A)), 
    na.omit(select(X, id, B)) 
) 

aber deutlich, dass verallgemeinern nicht zu beliebiger Satz von Eigenschaften. Was ist eine bessere tidyverse Strategie, dies zu tun?

HINWEIS: Mehrere vorherige Fragen sprechen mit der ersten Hälfte von diesem, z.B. Aufbau der key Spalte, so dass spread nicht fehlschlägt, konnte aber etwas nicht sehen, das die NA s adressiert.

Answer 1

Sie können fill von tidyr verwenden:

library(dplyr) 
library(tidyr) 

ex %>% 
    group_by(id, property) %>% 
    mutate(key = row_number()) %>% 
    spread(property, value) %>% 
    select(-key) %>% 
    group_by(id) %>% 
    fill(-id) 

Ergebnis:

# A tibble: 3 x 3 
# Groups: id [2] 
    id  A  B 
    <dbl> <dbl> <dbl> 
1  1  9  7 
2  1  8  7 
3  2  6  5