zählen neue Elemente in Vektor-Liste

Question

Ich möchte neue Elemente zählen, die in früheren Jahren nicht vorhanden waren. Im Beispiel

Beispieldaten:

var1 <- list('2003' = 1:3, '2004' = c(4:3), '2005' = c(6,4,1), '2006' = 1:4) 

Ich möchte die Ausgabe

newcount <- list('2003' = 0, '2004' = 1, '2005' = 1, '2006' = 0) 

Erfolglos Code erhalten:

newcount <- mapply(setdiff, var1, seq_along(var1), function(i) 
      {if (i > 1) {Reduce(union, var1[i-1], accumulate=T)}}, length) 

Answer 1

fast da, aber seine besser zu benutzen Vektor-Indizierung mit dem Offset zu arbeiten und das immer bekannte Anfangselement hinzufügen, danach:

lapply(c(list(`2003`=integer(0)), 
     mapply(setdiff,var1[-1], 
       Reduce(union,var1,accumulate=TRUE)[-length(var1)])),length) 
$`2003` 
[1] 0 

$`2004` 
[1] 1 

$`2005` 
[1] 1 

$`2006` 
[1] 0 

Answer 2

Unter der Annahme, dass var1 wird nach Jahren sortiert, und dass für das Jahr 2003 würden Sie 3 statt 1 mögen, könnten Sie versuchen,

newcount <- lapply(seq_along(var1),function(x){ 
    prev<-unlist(var1[seq_len(x-1)]) 
# Improvement suggested by plannapus 
    sum(!var1[[x]]%in%prev) # length(which(!var1[[x]]%in%prev)) 
}) 

names(newcount)<-names(var1) 

newcount 
# $`2003` 
# [1] 3 

# $`2004` 
# [1] 1 

# $`2005` 
# [1] 1 

# $`2006` 
# [1] 0 

OK, wenn Sie absolut sicher sind, dass 2003 0 sein sollte (was ich als Ausnahme von der Logik sehen), dann könnten Sie folgendes tun:

newcount <- c(0, lapply(seq_along(var1)[-1],function(x){ 
    prev<-unlist(var1[seq_len(x-1)]) 
    sum(!var1[[x]]%in%prev) 
}))