đếm các phần tử mới trong danh sách vector

Question

Tôi muốn tính các phần tử mới không có trong những năm trước. Trong ví dụ này

dữ liệu mẫu:

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

Tôi muốn nhận được đầu ra

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

đang không thành công:

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

Answer 1

Hầu như ở đó, nhưng nó tốt hơn để sử dụng vector lập chỉ mục để làm việc với các bù đắp và bổ sung các yếu tố ban đầu luôn nổi tiếng sau:

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

Giả sử rằng var1 được sắp xếp theo năm, và năm 2003 bạn muốn 3 thay vì 1, bạn có thể thử

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, nếu bạn hoàn toàn chắc chắn rằng năm 2003 phải là 0 (mà tôi thấy như một ngoại lệ đối với logic của bạn), sau đó bạn có thể làm như sau:

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