比较两个data.frames并根据一个data.frame中的NA值删除行

Question

我有两个数据框。一个被认为是参考并具有每个值，另一个可能是也可能不是缺失值。我想比较两个数据帧，然后从参考数据帧中删除另一个具有 NA 的值。但是，数据框中可能包含缺失值的每一行都需要被视为单个比较，因此您正在为每一行开发唯一的引用。例如参考数据框（1）：

  var1   var2   var3
1   a      b      c
2   q      w      e
3   z      x      n

另一个数据框(2)：

   var1    var2    var3
1    p       o       i
2    u       y       t
3    NA      e       w
4    l       k       NA   

对于数据框 2 的第 1 行和第 2 行，我需要完整的参考，因为没有缺失值：

  var1   var2   var3
1   a      b      c
2   q      w      e
3   z      x      n

对于数据框 2 的第 3 行，我需要：

    var2   var3
1    b      c
2    w      e
3    x      n

对于数据框 2 的第 4 行，我需要：

  var1   var2   
1   a      b      
2   q      w      
3   z      x      

Answer 1

试试：

> ref<-data.frame(var1=c('a','q','z'),var2=c('b','w','x'),var3=c('c','e','n'))
> new<-data.frame(var1=c('p','u',NA,'l'),var2=c('o','y','e','k'),var3=c('i','t','w',NA))
> apply(new,1,function(x) ref[,which(!is.na(x))] )
[[1]]
  var1 var2 var3
1    a    b    c
2    q    w    e
3    z    x    n

[[2]]
  var1 var2 var3
1    a    b    c
2    q    w    e
3    z    x    n

[[3]]
  var2 var3
1    b    c
2    w    e
3    x    n

[[4]]
  var1 var2
1    a    b
2    q    w
3    z    x

根据作者评论中的要求，如果他也想：

"如果 NA 在奇数索引，则删除 +1 索引，如果 NA 在偶数索引，则删除 -1 索引"。

is.odd <- function(x) x %% 2 == 1
apply(new, 1, function(x) {
    toremove <-which(is.na(x))
    toremove1<-sapply(toremove,function(x) ifelse(is.odd(x),x+1,x-1) )
    ref[,!(1:ncol(ref) %in% c(toremove,toremove1)),drop=F]
})