根据数据帧子集中的条件在R中添加新列

我有以下数据集：

 df <- data.frame("attribute"=c('name', 'age', 'location'),
                "A"=c(1,0,0), "B"=c(0,1,1), "C"=c(1,0,1))
 names(df) <- c("attribute", "A", "B", "C")
 df

    attribute   A B C
        name    1 0 1
        age     0 1 0
     location   0 1 1

for（i在df$属性中）{for（j在c（“A”、“B”、“c”）}打印（名称（df） [名称（df）%in%c（“A”、“B”、“c”）][i]==1）

---

我无法解决此问题。

我们可以使用

max.col

df$Column <- names(df)[-1][max.col(df[-1], 'first')]
df$Column
#[1] "A" "B" "B"

df$列
df$Column <- names(df)[-1][max.col(df[-1], 'first')]
df$Column
#[1] "A" "B" "B"