如何删除单身人士和蠢货

Question

我的问题是：

包含不同值和我需要的表是同时消除单例（rowSums = 1）和dobletons（rowSums = 2）而无需重复这些步骤。

Name    samp1   samp2   samp3   samp4
A   1.00    4.92    3.34    56.90
B   1.97    3.96    8.65    2.79
C   1.00    0.00    0.00    0.00
D   1.70    4.32    3.97    3.37
E   0.00    0.00    2.00    0.00

我首先试图消除单身人士

data = read.table(file="XXX", header = TRUE,  row.names=1)
data_no_singletons = data[rowSums(data)!=1,]
data_no_dobletons = data_no_singletons[rowSums(data_no_singletons)!=2,]

是否可以同时使用这两个条件消除行来获取此表？

Name    samp1   samp2   samp3   samp4
A   1.00    4.92    3.34    56.90
B   1.97    3.96    8.65    2.79
D   1.70    4.32    3.97    3.37

解决 包括＆＃34;＆gt; 2＆＃34;这就是全部

data_cleaned = data[rowSums(data)> 2,]