вычисления на нескольких именах столбцов в data.table

Question

У меня есть разреженная таблица данных, которая выглядит следующим образом:

data = data.table(
    var1 = c("a","",""), 
    var2 = c("","","c"), 
    var3 = c("a","b",""), 
    var4 = c("","b","") 
) 
     var1 var2 var3 var4 
    1: a   a  
    2:    b b 
    3:   c  

Я хотел бы добавить столбец, который содержит строку из нулей и единиц, указывающая, какие переменные представить в любой строке, например:

var1 var2 var3 var4 concat 
1: a   a  1|0|1|0 
2:    b b 0|0|1|1 
3:   c   0|1|0|0 

я могу получить к этому с помощью следующей команды:

data[, concat := paste(
      as.integer(var1 != ""), 
      as.integer(var2 != ""), 
      as.integer(var3 != ""), 
      as.integer(var4 != ""), 
      sep = "|")] 

Однако, если у меня есть сотни переменных, я бы предпочел использовать какие-то вычисления для получения желаемого выражения. Возможно, что-то основано на paste0("var",1:4) или, по крайней мере, на векторе имен столбцов. Какие-либо предложения?

Answer 1

же основной подход, как указано выше:

data[ , concat := apply(.SD, 1, function(x) paste(+(x == ""), collapse = "|"))][] 
# var1 var2 var3 var4 concat 
# 1: a   a  0|1|0|1 
# 2:    b b 1|1|0|0 
# 3:   c   1|0|1|1 

Answer 2

data$concat <- apply(apply(data, 2, function(x) ifelse(x == "", 0, 1)), 1, function(x) paste(x, collapse="|")) 

Разбивка:

1) Для каждого столбца в data, проверьте, если элемент пуст, если так возвращать 0, иначе 1

apply(data, 2, function(x) ifelse(x == "", 0, 1)) 

Давайте назовем возвращение из (1) переменная concat. Для каждого ряда concat вставьте все вместе с трубой (|), разделив их. Установите этот столбец в data.

apply(concat, 1, function(x) paste(x, collapse="|")) 

Answer 3

Другим вариантом является сгруппировать данные по строкам и вставить каждую строку вместе:

data[,concat := paste0(as.integer(.SD != ""), collapse = "|"), by = 1:nrow(data)] 
data 
# var1 var2 var3 var4 concat 
#1: a   a  1|0|1|0 
#2:    b b 0|0|1|1 
#3:   c   0|1|0|0 

Answer 4

Вариация не требуя каких-либо группировку по каждой строке или apply - на каждой строке.

data[, concat := do.call(paste, c(lapply(.SD, function(x) (x!="")+0), sep="|")) ] 

# var1 var2 var3 var4 concat 
#1: a   a  1|0|1|0 
#2:    b b 0|0|1|1 
#3:   c   0|1|0|0 

Answer 5

Благодарим за множество разнообразных решений. Я впечатлен!

Я сделал несколько бенчмаркинга на своем большом наборе данных, чтобы сравнить время работы нескольких разных подходов. Вот что я нашел:

data[ , concat := apply(.SD, 1, function(x) paste(+(x == ""), collapse = "|"))] 

Время: 6 мин, 41 с

data[, concat := do.call(paste, c(lapply(.SD, function(x) (x!="")+0), sep="|")) ] 

Время: 10 мин, 26 сек

data[,concat := paste0(as.integer(.SD != ""), collapse = "|"), by = 1:nrow(data)] 

Время:> 40 мин (вручную убит)