r如何根据所有行的行标准获取列名称

我想创建一个变量，将每行的列名连接在一起，其中包含

TRUE

模态

我试过了

names(mat2)[mat2[i,]==TRUE]

但它不起作用。 以下是我的数据：

# dput(data)
structure(list(Object1 = c(FALSE, FALSE, FALSE, FALSE, FALSE, 
TRUE, TRUE, TRUE, TRUE, TRUE), Object2 = c(FALSE, FALSE, FALSE, 
FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), Object3 = c(FALSE, 
FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE), Object4 = c(FALSE, 
FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), 
    Object5 = c(FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE), Object6 = c(FALSE, FALSE, TRUE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), Object7 = c(FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
    ), Object8 = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE), Object9 = c(FALSE, FALSE, FALSE, 
    TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), Object10 = c(FALSE, 
    FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE), 
    Object11 = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE), Object12 = c(FALSE, FALSE, TRUE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), Object13 = c(FALSE, 
    TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
    ), Object14 = c(FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, 
    TRUE, TRUE, TRUE, TRUE), Object15 = c(FALSE, FALSE, FALSE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE), Object16 = c(FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
    )), .Names = c("Object1", "Object2", "Object3", "Object4", 
"Object5", "Object6", "Object7", "Object8", "Object9", "Object10", 
"Object11", "Object12", "Object13", "Object14", "Object15", "Object16"
), row.names = c(NA, 10L), class = "data.frame")

这里是我的带有颜色的数据框（我为

TRUE

模态设置了1种颜色）：

我想获得一个新变量，如下所示：

---

我们可以使用

应用
和
边距=1

data$NewColumn <- apply(data, 1, FUN = function(x) paste(names(x)[x], collapse=' '))

data$NewColumn我们可以使用
apply
和
MARGIN=1

data$NewColumn <- apply(data, 1, FUN = function(x) paste(names(x)[x], collapse=' '))

data$NewColumn太棒了，它正在工作！谢谢！谢谢你的链接！DoneFantastic，它起作用了！谢谢！谢谢你的链接！多恩