r - 如何删除单例和多布顿

Question

我的问题是这样的：

一个包含不同值的表，我需要的是同时消除单例（rowSums = 1）和多布顿（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

已解决包括“> 2”，仅此而已

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