R：根據行值刪除列

Question

做了一些研究，但無法找到我的簡單問題的直接答案。 我有一個像這樣的數據表：

var1<-sample(12:43,5,replace=T)
var2<-sample(5:20,5,replace=T)
var3<-rep(0, 5)
var4<-sample(2:6,5,replace=T)
var5<-rep(0,5)
df<-data.table(var1,var2,var3,var4,var5)

     var1 var2 var3 var4 var5
1:   36   14    0    2    0
2:   43   19    0    6    0
3:   20    6    0    6    0
4:   41   17    0    2    0
5:   32    8    0    6    0

我想刪除僅包含0個值的所有列。 這將生成邏輯向量。

a<-df[,(df[20,]) != 0]

如何使用邏輯向量對數據進行子集？

Answer 1

使用dplyr

var1<-sample(12:43,5,replace=T)
var2<-sample(5:20,5,replace=T)
var3<-rep(0, 5)
var4<-sample(2:6,5,replace=T)
var5<-rep(0,5)
df<-data.frame(var1,var2,var3,var4,var5)

library(dplyr)
# keep only columns for which all line are different from 0
df %>% select_if(function(col) !all(col == 0))
#>   var1 var2 var4
#> 1   13   20    4
#> 2   39   19    6
#> 3   14   20    2
#> 4   35   13    3
#> 5   35   17    4

Answer 2

如果需要data.table方法，請遍歷data.table的子集（ lapply(.SD ），檢查all值是否均為0， unlist輸出，取反（ ! ）並根據邏輯索引對列進行子集化。

 df[, df[, !unlist(lapply(.SD, function(x) all(x==0)))], with = FALSE]

或使用base R ，我們可以Filter var或sum不為0的列。

 Filter(var, df)