新しい列の列名を新しい列の値として使用していますか？

Question

私は以下のようなかじりを持っています。値には文字「Y」が使用されていることを確認してください。

require(tidyverse) 
df <- data_frame(a = c('Y', NA, 'Y'), b = c(NA, 'Y', NA)) 
df 

# A tibble: 3 × 2 
     a  b 
    <chr> <chr> 
1  Y <NA>  
2 <NA>  Y 
3  Y <NA> 

そして、私は他の2つ（またはそれ以上）を組み合わせた新しい列を作成したいが、列の名前を一致させるために「Y」に変更。この場合「a」と「b」。このような本

# A tibble: 3 × 3 
     a  b c 
    <chr> <chr> <chr> 
1  Y <NA> a 
2 <NA>  Y b 
3  Y <NA> a 

ように私には、複数の「Y」は、それぞれの行に存在しないことをかなり確信しています。私はgatherまたはmutate

Answer 1

を使用してこの問題を解決することができるとは思わない私たちはarr.ind=TRUE

ind <- which(!is.na(df), arr.ind = TRUE) 
df$c <- names(df)[ind[,2][order(ind[,1])]] 
df$c 
#[1] "a" "b" "a"