温馨提示:本文翻译自stackoverflow.com,查看原文请点击:r - Remove rows which have all NA's, apart from the first column
data.table na r

r - 删除除第一列外所有NA的行

发布于 2020-03-27 10:55:42

我有一个data.table,它是通过使用以下两个面板观察值之间的差异而形成的:

tab <- tab[,
   lapply(.SD, function(x) x - shift(x)), 
   by = A, 
   .SDcols = (sapply(tab, is.numeric))
  ]

tab = data.table(A = c(1, 1, 2, 2), B = c(NA, 2, NA, 1), C = c(NA, NA, NA, 2), D=c(NA, 3, NA, 2)
tab
    A  B  C  D
1:  1  NA NA NA
2:  1  2  NA 3
3:  2  NA NA NA
4:  2  1  2  2 

我想用这个答案

tab <- tab [!Reduce(`&`, lapply(tab , is.na))]

删除行1和3,但这不起作用,因为第一列不是NA。如何修改代码以解决此问题?

期望的结果:

    A  B  C  D
1:  1  2  NA 3
2:  2  1  2  2 

查看更多

查看更多

提问者
Tom
被浏览
252
21.8k 2019-07-03 22:23

在这种情况下,我们可以在 .SDcols

tab[tab [, !Reduce(`&`, lapply(.SD , is.na)), .SDcols = 2:ncol(tab)]]