所有其他列满足条件的子集行 R

Question

您好，我已经尝试了 2 天来解决这个问题，但我一直无法解决，非常感谢您的帮助，我有以下数据框：

我有 48 列，其中一列称为 orthogroups，另外 47 列是生物名称，在 Orthogroup 列中，行中填满了 orthogroup 名称，而在生物名称列下方，有数字表示 orthogroups 的副本数正交列。

我一直在尝试创建一个子集，在其中减去邻列中所有值都是 0 或 1 的正交组行例如 OG00001 = 1、0、1、0、1 等。我尝试使用此命令

newdf <- subset(Orthogroups.GeneCount, Orthogroups.GeneCount[1:48,] == 1)

或者，如果没有满足条件的Orthogroup ，则在 ax 列数中获取满足条件的行，例如 48 列中至少有 32 列满足条件，并且仅显示满足条件的 32 个正交组，我曾经有一个命令，但我把它弄丢了。 非常感谢您的帮助，我尝试使用dplyr过滤器，但%>%不起作用。

Answer 1

这样的事情应该有效（未测试）：

Orthogroups.GeneCount[
  rowSums(Orthogroups.GeneCount[, -1] == 0 |
            Orthogroups.GeneCount[, -1] == 1) == ncol(Orthogroups.GeneCount) - 1, ]