合并中的R多种载体删除NAS

Question

我有例如向量这样的：

a= c(1, NA, NA, 2, 3) 
b=c(NA, 1, NA, NA, NA) 
c=c(NA, NA, 5, NA, NA) 

我要合并三个矢量获得

d=c(1,1,5,2,3) 

是否有这样做的一种方式没有广泛的循环？非常感谢:)

Answer 1

你可以尝试

rowSums(cbind(a,b,c), na.rm=TRUE) 
#[1] 1 1 5 2 3 

或

mat <- cbind(a,b,c) 
mat[cbind(1:nrow(mat),max.col(!is.na(mat)))] 
#[1] 1 1 5 2 3 

或者

ind <- which(!is.na(mat), arr.ind=TRUE) 
mat[ind[order(ind[,1]),]] 
#[1] 1 1 5 2 3 

Answer 2

我会考虑pmin或pmax为给你描述的情况更直接的方式：

pmin(a, b, c, na.rm = TRUE) 
# [1] 1 1 5 2 3 
pmax(a, b, c, na.rm = TRUE) 
# [1] 1 1 5 2 3