setze Operation innerhalb einer Listenspalte

Question

Ich versuche zu setze Operationen zwischen den Vektoren in einer Liste Spalte wie this gespeichert.

DT <- data.table(exp = c("exp1", "exp2", "exp2"), 
        sample = c(1L, 1L, 2L), 
        listdata = list(c(2L,5L), c(2L,3L,5L,7L), c(1L,2L,6L))) 

> DT 
    exp sample listdata 
1: exp1  1  2,5 
2: exp2  1 2,3,5,7 
3: exp2  2 1,2,6 

während sehr umständlich, kann ich

DT$inc = list(setdiff(unlist(DT$listdata[2]), unlist(DT$listdata[1]))) 

tun und eine neue Liste Spalte mit dem Wert c(3,7) erhalten. Aber wenn ich versuche, den Unterschied zwischen der aktuellen Zeile zu berechnen und der ersten Reihe mit

DT$inc = list(list(setdiff(unlist(DT$listdata, recursive = FALSE), unlist(DT$listdata[1])))) 

erwarten Sie eine neue Spalte „inc“

0 
c(3,7) 
c(1,6) 

ich c(3,7,1,6). Anscheinend unlist flachte die ganze Liste Spalte zusammen. Irgendeine Idee was ist los?

Ich lerne auch dplyr und data.table. Es würde also wirklich helfen, wenn Sie Lösungen mit einer von ihnen anbieten können.

Answer 1

[...] Ich versuche, den Unterschied zwischen der aktuellen Zeile und der ersten Reihe

Gut zu berechnen, Sie ... tun können

DT[, inc := .(Map(setdiff, listdata, listdata[1L]))] 

#  exp sample listdata inc 
# 1: exp1  1  2,5  
# 2: exp2  1 2,3,5,7 3,7 
# 3: exp2  2 1,2,6 1,6 

Aber ich denke, es ist viel besser, einfach nicht mit Listenspalten zu arbeiten.

---

nicht mit der Liste Spalten arbeiten könnte wie folgt aussehen ...

DT[, r := .I] 
DT2 = DT[,c(.SD[rep(.I, lengths(listdata))], .(v = unlist(listdata))), .SDcols=!"listdata"] 

#  exp sample r v 
# 1: exp1  1 1 2 
# 2: exp1  1 1 5 
# 3: exp2  1 2 2 
# 4: exp2  1 2 3 
# 5: exp2  1 2 5 
# 6: exp2  1 2 7 
# 7: exp2  2 3 1 
# 8: exp2  2 3 2 
# 9: exp2  2 3 6 

Dann einfach arbeiten wir mit diesem Datensatz, und tun können

DT2[!DT2[r==1L], on="v"] 

#  exp sample r v 
# 1: exp2  1 2 3 
# 2: exp2  1 2 7 
# 3: exp2  2 3 1 
# 4: exp2  2 3 6 

Answer 2

Hier eine entsprechende dplyr Lösung :

library(dplyr) 
DT %>% mutate(inc = lapply(listdata, setdiff, listdata[[1]])) 

# exp sample listdata inc 
#1 exp1  1  2, 5  
#2 exp2  1 2, 3, 5, 7 3, 7 
#3 exp2  2 1, 2, 6 1, 6