Dplyr：グループで最初に見つからない文字列を見つける方法

Question

は、私がnamesに各group最初の非欠落している名前のために、取得したいと思い、ここでは次の簡単な例

group <-c('A','A','A','B','B','B','B') 
names<- c(NA,'fred',NA,'josh','josh',NA,NA) 
data=data_frame(group,names) 

> data 
# A tibble: 7 × 2 
    group names 
    <chr> <chr> 
1  A <NA> 
2  A fred 
3  A <NA> 
4  B josh 
5  B josh 
6  B <NA> 
7  B <NA> 

を考えてみましょう。どうやってやるの？​​3210とfirstを使用する以下の解決策は失敗します。

data %>% group_by(group) %>% mutate(first_non_missing = first(names), 
            first_non_missing_alt = coalesce(names)) %>% ungroup() 

# A tibble: 7 × 4 
    group names first_non_missing first_non_missing_alt 
    <chr> <chr>    <chr>     <chr> 
1  A <NA>    <NA>     <NA> 
2  A fred    <NA>     fred 
3  A <NA>    <NA>     <NA> 
4  B josh    josh     josh 
5  B josh    josh     josh 
6  B <NA>    josh     <NA> 
7  B <NA>    josh     <NA> 

確かに、グループAため、first_non_missingは、3回のすべての観測のためのfred ..

感謝しなければなりません！

Answer 1

[集計は、まずあなたはまだすべての行をしたい場合はwhich

data %>% 
    group_by(group) %>% 
    summarise(first_non_missing = names[which(!is.na(names))[1]]) 

が

group first_non_missing 
    <chr>    <chr> 
1  A    fred 
2  B    josh 

を与える使用して、非欠落している、mutateでsummariseを置き換える見つけ、ここでグループごとに1つのエントリを、与えます。