我有以下数据框架
dat <- data.frame(a = c(0,0,2,3), b= c(1,0,0,0), c=c(0,0,1,3))
哪个印刷品:
> dat
a b c
1 0 1 0
2 0 0 0
3 2 0 1
4 3 0 3
我想删除所有列都为零的行,结果如下:
a b c
1 0 1 0
3 2 0 1
4 3 0 3
我怎样才能做到这一点？
我尝试过但失败了:
> row_sub = apply(dat, 1, function(row) all(row !=0 ))
> dat[row_sub,]
[1] a b c
<0 rows> (or 0-length row.names)