r - 折叠数据框中的行 w/NA 值

Question

我正在尝试折叠数据框中的 a、b 和 c 行，如下所示：

>df1 = data.frame(a=c(1,1,0,NA,NA,NA,NA,NA,NA),b=c(NA,NA,NA,0,1,1,NA,NA,NA),c=c(NA,NA,NA,NA,NA,NA,1,0,1)) 
   a  b  c
1  1 NA NA
2  1 NA NA
3  0 NA NA
4 NA  0 NA
5 NA  1 NA
6 NA  1 NA
7 NA NA  1
8 NA NA  0
9 NA NA  1

进入第 d 行，创建一个如下所示的数据框：

   a  b  c d
1  1 NA NA 1
2  1 NA NA 1
3  0 NA NA 0
4 NA  0 NA 0
5 NA  1 NA 1
6 NA  1 NA 1
7 NA NA  1 1
8 NA NA  0 0
9 NA NA  1 1

任何和所有的帮助将不胜感激。

Answer 1

这个怎么样...

df1$d <- apply( df1 , 1 , max , na.rm=TRUE )
df1$d
# [1] 1 1 0 0 1 1 1 0 1

显然，这假设您在每一行中都有一个1OR a 。0如果两者都有，它将始终选择 1。

考虑到您发布的数据，这也将起作用：

df1[!is.na(df1)]
# [1] 1 1 0 0 1 1 1 0 1

Answer 2

# using data.frame
df1$d <- apply(df1, 1, sum, na.rm=TRUE)

# using data.table
DT <- data.table(df1)
DT[, d := sum(.SD, na.rm=TRUE), by=1:nrow(DT)]

Answer 3

另一个 R 基础解决方案正在使用rowSums

> transform(df1, d=rowSums(df1, na.rm=TRUE))
   a  b  c d
1  1 NA NA 1
2  1 NA NA 1
3  0 NA NA 0
4 NA  0 NA 0
5 NA  1 NA 1
6 NA  1 NA 1
7 NA NA  1 1
8 NA NA  0 0
9 NA NA  1 1

或直接df1$d <- rowSums(df1, na.rm=TRUE)