<div dir="ltr"><div>Roney, boa noite!</div><div><br></div><div>Já vi que o colega Rubem resolveu a questão. Tinha trabalhado noutra ideia, que deixo para consulta. Não é tão eficiente quanto a solução que vocês tiveram, mas é bem melhor que o código anterior.</div><div><br></div><div><font face="monospace, monospace"># <code r></font></div><div><font face="monospace, monospace">setwd("C:/LAB/Temp/Roney"); getwd()</font></div><div><font face="monospace, monospace"># download.file("<a href="https://db.tt/13dT9XQI">https://db.tt/13dT9XQI</a>", destfile="ver2.rds", mode="wb")</font></div><div><font face="monospace, monospace">ver2 <- readRDS("ver2.rds")</font></div><div><font face="monospace, monospace">str(ver2, max=1)</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">to <- Sys.time()</font></div><div><font face="monospace, monospace">RES <- NULL</font></div><div><font face="monospace, monospace">for(k in 2:length(ver2)){</font></div><div><font face="monospace, monospace">     df  <- merge(ver2[[k-1]], ver2[[k]], by="name", all=T)</font></div><div><font face="monospace, monospace">     df  <- df[order(df$grupo.x, df$grupo.y),]</font></div><div><font face="monospace, monospace">     tmp <- merge(aggregate(data=df, name~grupo.x+grupo.y, FUN="length"), </font></div><div><font face="monospace, monospace">                  aggregate(data=df, PY.x~grupo.x+grupo.y, FUN="max"))</font></div><div><font face="monospace, monospace">     res <- data.frame(ID=k-1, G1=tmp[,1], G2=tmp[,2], n=tmp[,3], anobase=tmp[,4])</font></div><div><font face="monospace, monospace">     RES <- rbind(RES, res[order(res$G1, res$G2),])</font></div><div><font face="monospace, monospace">}</font></div><div><font face="monospace, monospace">Sys.time()-to</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">head(RES)</font></div><div><font face="monospace, monospace"># </code></font></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br><div class="gmail_quote"><br></div></div></div>