Ein nicht indexorientiert für eindeutige Werte zwischen zwei Listen in R

Question

suchen kann sagen, dass ich einen Ausschnitt aus einer Liste, die wie folgt aussieht:

aaa[[1]] 
# [1] "A5-5,73" "B3-4,73" "E3-8,73" "A1-8,73" "C1-7,73" "A1-2,73" "C3-2,73" "C1-1,73" 

Lets sagen, dass ich mit einem Abschnitt habe eine andere Liste, die sieht wie folgt aus:

bbb[[1]] 
# [1] "B3-4,73" "C3-2,73" "A5-5,73" "A1-8,73" "A1-2,73" "A1-5,73" "B1-1,73" "C1-4,73" 

Man bedenke, dass ich jetzt

which(aaa[[1]]!= bbb[[1]]) 

laufen die

012.351 zurück

# [1] 1 2 3 5 6 7 8 

Dies ist technisch wahr, weil der Index [4] das gleiche in beiden aaa und bbb

Was ich zurück haben möchte ist:

# [1] "C1-7,73" "A1-2,73" "C1-1,73" 

, weil diese die Werte von aaa, die nicht in bbb unabhängig von der Position sind. Ich würde auch zu einer Lösung offen, die nur eine Indexnummer zur Verfügung stellen würden, wie zum Beispiel:

# [1] 5 6 8 

Hier ist ein reproduzierbares Beispiel:

aaa <- vector("list") 
aaa[[1]] <- c("A5-5,73", "B3-4,73", "E3-8,73", "A1-8,73", 
      "C1-7,73", "A1-2,73", "C3-2,73", "C1-1,73") 
bbb <- vector("list") 
bbb[[1]] <- c("B3-4,73", "C3-2,73", "A5-5,73", "A1-8,73", 
      "A1-2,73", "A1-5,73", "B1-1,73", "C1-4,73") 

Answer 1

Wenn Sie jedes Element der vergleichen wollen Liste aaa mit dem entsprechenden Element bbb einfach tun.

mapply(FUN = setdiff, x = aaa, y = bbb) 

---

_{Während dieses Schreiben habe ich setdiff wurde bereits von @RichardScriven in den Kommentaren erwähnt.}

Answer 2

Als @ Richard Scriven erwähnt in seinem Kommentar

setdiff(aaa[[1]], bbb[[1]]) 

die Art und Weise ist es, die Elemente zu erhalten. Wie Sie auch für eine Indexnummer gefragt, könnten Sie die()

which(aaa[[1]] %in% setdiff(aaa[[1]], bbb[[1]])) 

Während% in% logischen Werten erzeugt, die() sagt, wo sie wahr sind.