在R中合并两列

Question

如何合并两列并替换R中的缺失值？

假设我有一个data.frame：

D = data.frame(a = c(1,NA,3), b = c(1,2,NA))

看起来像这样

   a  b
1  1  1
2 NA  2
3  3 NA

我将如何使其看起来像这样：

  c
1 1
2 2
3 3

Answer 1

假设这两列要么具有相同的值，要么其中之一为NA

D = data.frame(a = c(1,NA,3), b = c(1,2,NA))
D[['c']] <- rowMeans(D, na.rm = TRUE)
D

   a  b c
1  1  1 1
2 NA  2 2
3  3 NA 3

Answer 2

如果列a是主列，并且您要复制b中a为NA的值，则：

D = data.frame(a = c(1,NA,3), b = c(1,2,NA))
D2=data.frame(c = D$a)
D2$c[is.na(D2$c)] <- D$b[is.na(D$a)]
D2
  c
1 1
2 2
3 3