contiamo nuovi elementi nell'elenco vettoriale

Question

Voglio contare nuovi elementi che non erano presenti negli anni precedenti. Nell'esempio

dati del campione:

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

Vorrei ottenere l'output

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

codice non riuscita:

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

Answer 1

Ci siamo quasi, ma la sua meglio da usare vector l'indicizzazione di lavorare con l'offset e aggiungere l'elemento iniziale da sempre noto in seguito:

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

Supponendo che var1 è ordinata per anno, e che per il 2003 si piacerebbe 3 invece di 1, si potrebbe provare

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, se si è assolutamente sicuri che il 2003 dovrebbe essere 0 (che io vedo come eccezione alla logica), allora si potrebbe fare la seguente:

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