R计数每行零数，并删除每行超过5个零 [英] R count number of zero's per row, and remove every row more than 5 zero's

问题描述

我有一个关于每行零计数的问题。如果我们有这样的数据框：

  a = c（1,2,3,4,5,6,0， 2,5）
b = c（0,0,0,2,6,7,0,0,0）
c = c（0,5,2,7,3,1,0， 3,0）
d = c（1,2,6,3,8,4,0,4,0）
e = c（0,4,6,3,8,4,0， 6,0）
f = c（0,2,5,5,8,4,2,7,4）
g = c（0,8,5,4,7,4,0， 0,0）
h = c（1,3,6,7,4,2,0,4,2）
i = c（1,5,3,6,3,7,0， 5,3）
j = c（1,5,2,6,4,6,8,4,2）
 
 DF<  -  data.frame（a = a，b = b，c = c，d = d，e = e，f = f，g = g，h = h，i = i，j = j）
 
abcdefghij 
 1 1 0 0 1 0 0 0 1 1 1 
 2 2 0 5 2 4 2 8 3 5 5 
 3 3 0 2 6 6 5 5 6 3 2 
 4 4 2 7 3 3 5 4 7 6 6 
 5 5 6 3 8 8 8 7 4 3 4 
 6 6 7 1 4 4 4 4 2 7 6 
 7 0 0 0 0 0 2 0 0 0 8 
 8 2 0 3 4 6 7 0 4 5 4 
 9 5 0 0 0 0 4 0 2 3 2 
  

我想计算每行零的数字。如果每行的零数大于4，我想删除整行。结果数据框如下所示：

  abcdefghij 
 2 2 0 5 2 4 2 8 3 5 5 
 3 3 0 2 6 6 5 5 6 3 2 
 4 4 2 7 3 3 5 4 7 6 6 
 5 5 6 3 8 8 8 7 4 3 4 
 6 6 7 1 4 4 4 4 2 7 6 
 8 2 0 3 4 6 7 0 4 5 4 
  

解决方案

不仅可能，但很容易：

  DF [rowSums（DF == 0）< = 4，] 
  

您也可以使用 apply ：

  DF [apply == 0,1，sum）< = 4，] 
  

I have a question about counting zero's per row. If we have a dataframe like this:

a = c(1,2,3,4,5,6,0,2,5)
b = c(0,0,0,2,6,7,0,0,0)
c = c(0,5,2,7,3,1,0,3,0)
d = c(1,2,6,3,8,4,0,4,0)
e = c(0,4,6,3,8,4,0,6,0)
f = c(0,2,5,5,8,4,2,7,4)
g = c(0,8,5,4,7,4,0,0,0)
h = c(1,3,6,7,4,2,0,4,2)
i = c(1,5,3,6,3,7,0,5,3)
j = c(1,5,2,6,4,6,8,4,2)

DF<- data.frame(a=a,b=b,c=c,d=d,e=e,f=f,g=g,h=h,i=i,j=j)

  a b c d e f g h i j
1 1 0 0 1 0 0 0 1 1 1
2 2 0 5 2 4 2 8 3 5 5
3 3 0 2 6 6 5 5 6 3 2
4 4 2 7 3 3 5 4 7 6 6
5 5 6 3 8 8 8 7 4 3 4
6 6 7 1 4 4 4 4 2 7 6
7 0 0 0 0 0 2 0 0 0 8
8 2 0 3 4 6 7 0 4 5 4
9 5 0 0 0 0 4 0 2 3 2

I want to count the numbers of zero's per row. If the number of zero's per row is more than 4 i want to remove the complete row. The resulting dataframe looks like this:

  a b c d e f g h i j
2 2 0 5 2 4 2 8 3 5 5
3 3 0 2 6 6 5 5 6 3 2
4 4 2 7 3 3 5 4 7 6 6
5 5 6 3 8 8 8 7 4 3 4
6 6 7 1 4 4 4 4 2 7 6
8 2 0 3 4 6 7 0 4 5 4

Is that possible?? Thank you!

解决方案

It's not only possible, but very easy:

DF[rowSums(DF==0)<=4,]

You could also use apply:

DF[apply(DF==0,1,sum)<=4,]

这篇关于R计数每行零数，并删除每行超过5个零的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！