每列独特的观察结果

Question

在

data <- structure(list(A = c(0L, 0L, 1L, 0L, 1L, 1L), B = c(1L, 0L, 1L, 
1L, 0L, 1L), C = c(1L, 0L, 1L, 0L, 0L, 0L), D = c(0L, 1L, 1L, 
1L, 0L, 0L)), .Names = c("A", "B", "C", "D"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6"))

其中列是样本，行是物种观察。

如何获得仅出现在单个列（或数据帧的子集）中的物种数量？

在这个例子中，物种5仅出现在样品A中，物种2出现在样品D中。谢谢！

Answer 1

#n: t
#10**1: 7.31 μs
#10**2: 29.5 μs
#10**3: 297 μs
#10**4: 2.99 ms
#10**5: 29.9 ms
#10**6: 331 ms
#10**7: 3.7 s

为您提供仅出现在一列中的物种。

<强>更新

为您提供单身人士出现的栏目：

rowSums(data) == 1

Answer 2

也许你可以试试：

 data[!rowSums(data) > 1,]
 #  A B C D
 #2 0 0 0 1
 #5 1 0 0 0

这将只获得第2行和第5行，因为物种2仅出现在样本D中，而5仅出现在样本A中。