我有一些像这样的数据
var1 var2
10 NA
101 NA
NA 86
11 NA
NA 11
NA 61
如果一个变量是NA,那么另一个变量不是,反之亦然。
如何将它们组合成一个变量:
var3
10
101
86
11
11
61
我可以通过循环轻松完成,但速度很慢,所以我想找到一种更简单的方法。我想将0分配给NA的值,然后只是将变量加在一起......有更好的方法吗?
答案 0 :(得分:6)
存在各种方法。这是一种方式:
var3 <- ifelse(!is.na(var1),var1,var2)
这是你的例子:
var1 <- c(10,101,NA,11,NA,NA)
var2 <- c(NA,NA,86,NA,11,61)
var3 <- ifelse(!is.na(var1),var1,var2)
> var3
[1] 10 101 86 11 11 61
此方法相对一般 - 它适用于非数字数据,例如:
var1 <- c("AB","WZ",NA,"MN",NA,NA)
var2 <- c(NA,NA,"QT",NA,"MN","RS")
var3 <- ifelse(!is.na(var1),var1,var2)
> var3
[1] "AB" "WZ" "QT" "MN" "MN" "RS"
将NA
替换为0
并添加的建议在这种情况下不起作用。
答案 1 :(得分:5)
rowSums
的 na.rm = TRUE
会执行此操作。 (这是你建议的解决方案......)
假设您的数据位于data.frame
DF
并且您的评论
如果一个变量是NA,那么另一个变量不是,反之亦然。
是真的。
DF$var3 <- rowSums(DF[, c('var1','var2')], na.rm = TRUE)