loop lento

# ------------------------------
# início do código
# ------------------------------

# baixar o arquivo 'ver2.rds' nesse link:
# https://db.tt/13dT9XQI

ver2 <- readRDS("~/Downloads/ver2.rds")

grupo <- list()

for(k in 2:length(ver2)){
   grp <- sort(unique((ver2[[k-1]]$grupo))) ### qtde de grupos no ano t-1
   grp2 <- sort(unique((ver2[[k]]$grupo))) ### qtde de grupos no ano t
   RES <- LAB <- list()
   for (i in grp) {
       for (j in grp2) {
           RES <- append(RES,list(length(intersect(ver2[[k-1]]$name[ver2[[k-1]]$grupo==i], ver2[[k]]$name[ver2[[k]]$grupo==j]))))
           LAB <- append(LAB, paste(i,j, sep='-'))
       }
   }
   grupo[[k]] <- data.frame(label=sapply(LAB, "["), qtde=sapply(RES, sum))
   grupo[[k]] <- subset(grupo[[k]],qtde>0)
   grupo[[k]]$tm1.grupo <- as.numeric(gsub('-.*','',grupo[[k]]$label))
   grupo[[k]]$tm1.ano <- as.numeric(max(ver2[[k]]$PY)-1)
   grupo[[k]]$t.grupo <- as.numeric(gsub('^.-','',grupo[[k]]$label))
   grupo[[k]]$t.ano <- as.numeric(max(ver2[[k]]$PY))
}
# grupo
# ------------------------------
# fim do código
# ------------------------------