0

我有以下数据框：

> df1 = data.frame(ind = 1:4, x=c('a', 'b', NA, 'd'))
> df2 = data.frame(ind = 1:4, x=c(NA, NA, 'c', NA))
> df1
  ind    x
1   1    a
2   2    b
3   3 <NA>
4   4    d
> df2
  ind    x
1   1 <NA>
2   2 <NA>
3   3    c
4   4 <NA>

我想将它们组合起来，用 df2 中的数值填充 df1 中的缺失值。我怎样才能做到这一点？我不能使用合并或连接命令来做到这一点：

> merge(df1, df2, by='ind', all=T)
  ind  x.x  x.y
1   1    a <NA>
2   2    b <NA>
3   3 <NA>    c
4   4    d <NA>
4

3 回答 3

3

您构建测试用例的方式会产生因素，并为紧凑的解决方案施加额外的障碍，因为级别不一致。您可以使用 levels= 它们唯一值的并集来创建因子，或者最好使用字符向量：

df1 = data.frame(ind = 1:4, x=c('a', 'b', NA, 'd'), stringsAsFactors=FALSE)
df2 = data.frame(ind = 1:4, x=c(NA, NA, 'c', NA), stringsAsFactors=FALSE)
df1[is.na(df1)] <- df2[is.na(df1)] # the key is same index on both sides
 df1
#---------
  ind x
1   1 a
2   2 b
3   3 c
4   4 d

可以说不太受欢迎的方法（但对于您不想重新处理的一对就地数据集来说可能更好）是：

 df1$x <- factor(df1$x, levels=union(levels(df1$x), levels(df2$x) ) )
 df2$x <- factor(df2$x, levels=union(levels(df1$x), levels(df2$x) ) )
 df1[is.na(df1)] <- df2[is.na(df1)]
于 2012-04-18T14:52:32.913 回答
1

x如果NA在两个数据集中你会怎么做？这是做你想做的吗？

x <- merge(df1, df2, all = TRUE, by = "ind")
x <- transform(x, newcol = ifelse(is.na(x.x), as.character(x.y), as.character(x.x)))

> x
  ind  x.x  x.y newcol
1   1    a <NA>      a
2   2    b <NA>      b
3   3 <NA>    c      c
4   4    d <NA>      d
于 2012-04-18T14:44:13.643 回答
1

这个怎么样：

rbind(df1[complete.cases(df1),],df2[complete.cases(df2),])
  index x
1     1 a
2     2 b
3     3 c
4     4 d
于 2012-04-18T14:23:30.097 回答