Verknüpfen Sie die Spaltennamen in data.table auf Basis der Bedingungen.

Question

So sieht meine data.table aus. Die rechte Spalte PASTE ist meine gewünschte Spalte.

library(data.table) 

    dt <- fread(' 
    A  B  C  PASTE 
    TRUE FALSE TRUE A,C 
    TRUE TRUE TRUE A;B;C 
    FALSE TRUE FALSE B 
    FALSE FALSE FALSE 
    ') 

Ich versuche, die Spalte PASTE durch Verketten alle Spaltennamen solange der Wert in dieser Zeile für diese Spalte zu erstellen TRUE ist.

Dies ist mein Versuch:

dt[,PASTE:= if(dt[,c(1:3),with=FALSE] == TRUE, paste(names(dt), sep= ";"),"")] 

Answer 1

Wir sind von den Reihen, unlist, die Subset von Data.table (.SD), Teilmenge, die Namen des Datensatzes grouo können paste die Elemente zusammen und ordnen (:=) zu

nm1 <- names(dt)[-4] 
dt[, newCol := toString(nm1[unlist(.SD)]) ,by = 1:nrow(dt),.SDcols = nm1] 

---

Oder eine andere Option 'NEWCOL' ist melt zu " lange‘Format und dann trete ein

dt[melt(dt[, n := seq_len(.N)], id.var = c("n", "PASTE"))[, 
       toString(variable[value]), n], on = "n"]