contar elementos nuevos en la lista de vectores

Question

Quiero contar los elementos nuevos que no estaban presentes en años anteriores. En el ejemplo

datos de la muestra:

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

me gustaría obtener la salida

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

Código sin éxito:

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

Answer 1

Casi allí, pero su mejor usar vector de indexación para trabajar con el offset y añadir el elemento inicial siempre conocido después:

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

Suponiendo que var1 se ordena según el año, y que para 2003 desea 3 en lugar de 1, podría intentar

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 

bien, si está absolutamente seguro de que el año 2003 será 0 (que veo como una excepción a la lógica), entonces usted podría hacer lo siguiente:

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