使用现有列名称和值创建新列[重复]

我正在尝试使用数据集中现有的列名称创建一个新列。具体来说，在这个数据集中，一行对应一个呼吸道样本，有~10个病毒检测结果，每个结果都有一个对应的列；值 0 表示该病毒检测呈阴性，值 1 表示该病毒检测呈阳性。数据集的简化版本如下所示：

我想创建一个名为“virus_combinations”的新列，列出该样本检测呈阳性的病毒。我希望按字母顺序列出病毒组合，以便 R 将相同的病毒组合识别为相同的值（例如，FLUA + RSV 与 RSV + FLUA 的组合相同，因此我希望将它们列在相同的顺序）。

正如我提到的，我感兴趣的病毒大约有 10 种，样本检测呈阳性的病毒数量范围为 1-5 种。因此，手动添加所有可能的病毒组合以及相关的测试结果是很困难的。

我在Stack Exchange上看到了相关的帖子，其中解决方案涉及到以下代码：

df1 <- df %>%
  group_by(ID) %>%
  summarise(output = paste(name[value == 1], collapse = ','))

我尝试通过删除 group_by() 和 summarise() 命令来调整此代码，并将其与 mutate() 一起使用，但我不确定这是否是我实际上可以做的事情。我也不明白如何指定我想要从哪些列中提取新的“virus_combinations”变量。

df1 <- df %>%
  mutate(virus_combinations = paste(names[value == 1], collapse = ','))

您能想到的任何相关命令或软件包将不胜感激。先感谢您！

在基数 R 中：

 cbind(df1, v = apply(df[-1], 1, \(x)toString(names(df1)[-1][x==1])))
  Specimen.ID FLUA FLUB RSV HMPV               v
1           1    1    0   1    0       FLUA, RSV
2           2    0    1   1    0       FLUB, RSV
3           3    0    1   1    1 FLUB, RSV, HMPV

aggregate(cbind(virus_combination = as.character(ind)) ~ Specimen.ID, 
   cbind(df1['Specimen.ID'], stack(df1, -Specimen.ID)),
   toString, subset = values > 0 ) |>
   merge(df1, y = _)

 Specimen.ID FLUA FLUB RSV HMPV virus_combination
1           1    1    0   1    0         FLUA, RSV
2           2    0    1   1    0         FLUB, RSV
3           3    0    1   1    1   FLUB, RSV, HMPV

a <- as.matrix(df[-1])
cbind(df, v = tapply(names(df)[(a * col(a)) + 1], a*row(a), toString)[-1])

  Specimen_ID FLUA FLUB RSV HMPV               v
1           1    1    0   1    0       FLUA, RSV
2           2    0    1   1    0       FLUB, RSV
3           3    0    1   1    1 FLUB, RSV, HMPV