Объединять имена столбцов на основе построчных значений

Question

У меня есть R-фрейм данных с 3 столбцами, содержащими значения 0 или 1. Мне нужно создать столбец как конкатенацию имен столбцов, когда значение 1 разделено '&'.Следующий код работает с пустым пространством '' в качестве разделителя, но завершается ошибкой, когда я изменяю его на '&'.

Код:

A = c(1,0,1,0,0,1)
B = c(1,1,1,0,1,0)
C = c(0,0,0,1,1,1)
data = data.frame(A, B, C)
data$New = paste(ifelse(data$A == 1, "A", ""),
                 ifelse(data$B == 1, "B", ""),
                 ifelse(data$C == 1, "C", ""), sep = '')
data

Вывод:

  A B C New
1 1 1 0  AB
2 0 1 0   B
3 1 1 0  AB
4 0 0 1   C
5 0 1 1  BC
6 1 0 1  AC

Код и вывод с разделителем '&':

A = c(1,0,1,0,0,1)
B = c(1,1,1,0,1,0)
C = c(0,0,0,1,1,1)
data = data.frame(A, B, C)
data$New = paste(ifelse(data$A == 1, "A", ""), 
                 ifelse(data$B == 1, "B", ""),
                 ifelse(data$C == 1, "C", ""), sep = '&')
data

  A B C  New
1 1 1 0 A&B&
2 0 1 0  &B&
3 1 1 0 A&B&
4 0 0 1  &&C
5 0 1 1 &B&C
6 1 0 1 A&&C

Ожидаемый результат:

  A B C New
1 1 1 0 A&B
2 0 1 0   B
3 1 1 0 A&B
4 0 0 1   C
5 0 1 1 B&C
6 1 0 1 A&C

1. Есть ли способ сделать это в R?
2. В случае большого количества столбцов, есть ли способ сделать то же самое без написания явного условия ifelse на каждомколонна?

Answer 1

Вы можете использовать apply с paste, чтобы сделать это.

nms <- names(data)
data$New <- apply(data, 1, function(x){
  paste(nms[as.logical(x)], collapse = "&")
})

data
#  A B C New
#1 1 1 0 A&B
#2 0 1 0   B
#3 1 1 0 A&B
#4 0 0 1   C
#5 0 1 1 B&C
#6 1 0 1 A&C

Answer 2

Используя which с arr.ind = TRUE, а затем aggregate:

cbind(data,
      new = aggregate(col ~ row, data = which(data == 1, arr.ind = TRUE),
                      function(x) paste(names(data)[x], collapse = "&"))[ , "col"])

#   A B C new
# 1 1 1 0 A&B
# 2 0 1 0   B
# 3 1 1 0 A&B
# 4 0 0 1   C
# 5 0 1 1 B&C
# 6 1 0 1 A&C

Аналогично, используя tapply:

ix <- which(data == 1, arr.ind = TRUE)
cbind(data,
      new = tapply(ix[ , "col"], ix[ , "row"],
                   function(x) paste(names(data)[x], collapse = "&")))

Answer 3

Мы можем задать подмножество names, циклически перебирая строки

data$New <- apply(data[1:3], 1, function(x) paste(names(x[x!=0]), collapse="&"))
data$New
#[1] "A&B" "B"   "A&B" "C"   "B&C" "A&C"

---

, это также можно сделать по столбцам

library(tidyverse)
data[1:3] %>% 
    na_if(0) %>%
   `*`(col(.)) %>% 
   imap(~ rep(.y, length(.x))[.x]) %>%
   reduce(paste, sep= "&") %>% 
   str_remove("(NA&)+|(&NA)+") %>%
   str_remove("&NA")
#[1] "A&B" "B"   "A&B" "C"   "B&C" "A&C"