r - 列を NA と組み合わせる

Question

私はデータフレームを持っています

data <- data.frame('a' = c('A','B','C','D','E'),
              'x' = c(1,2,NA,NA,NA),
              'y' = c(NA,NA,3,NA,NA),
              'z' = c(NA,NA,NA,4,NA))

次のようになります。

  a  x  y  z
1 A  1 NA NA
2 B  2 NA NA
3 C NA  3 NA
4 D NA NA  4
5 E NA NA NA

次のようなデータが得られることを期待しています。

  a  N
1 A  1
2 B  2
3 C  3
4 D  4
5 E NA

ありがとうございました！

Answer 1

次のようなことを試してみてください。

> result <- apply(data[, -1], 1, function(x) ifelse(all(is.na(x)), NA, x[!is.na(x)]))
> data.frame(a=data[,1], N=result)
  a  N
1 A  1
2 B  2
3 C  3
4 D  4
5 E NA