<html><head></head><body><div class="ydp991303d9yahoo-style-wrap" style="font-family:times new roman, new york, times, serif;font-size:16px;"><div><div><span><div>###################CONTAGEM DE DOADORES###########################</div><div>#COM ESSA ROTINA ABAIXO, VC ORDENA DO MAIOR PARA O MAIOR AS DUAS VARIÁVEIS</div><div>d_cad0_10<- tip_doa[order(tip_doa$NUMEROGENTE,tip_doa$DATAHORADOACAO, decreasing=TRUE) ,]</div><div><br></div><div>NA ROTINA ABAIXO VC MANTEM AS DUPLICADAS E MANTEM SOMENTE A DE MAIOR FREQUÊNCIA</div><div>dc_0_10<- d_cad0_10[!duplicated(d_cad0_10$NUMEROGENTE),]<br></div><div><br></div><div><br></div><div>USEI ESSA ROTINA EM UM BANCO DE DOADORES AQUI DE MANAUS PARA MANTER SOMENTE SOMENTE ELE UMA VEZ, E COMO ORDENEI ELE MANTINHA O PRIMEIRO REGISTRO DOS DUPLICADOS E O PRIMEIRO ERA O DE MAIOR FREQUÊNCIA. ACHO QUE ERA ISSO.</div><div><br></div><div>TESTE ESSA.</div><div><br></div><div><br></div></span><br></div><div>[ ]'s</div><div class="ydp991303d9signature">Prof. Edson Lira, Me <br>Estatístico<br>Manaus-Amazonas</div></div>
<div><br></div><div><br></div>
</div><div id="yahoo_quoted_1784745502" class="yahoo_quoted">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div>
Em quinta-feira, 8 de novembro de 2018 18:29:43 AMT, Fernando Souza por (R-br) <r-br@listas.c3sl.ufpr.br> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="yiv3690954147"><div><div>Cara criei esse comando que aproxima bem do que você deseja,</div><div>Porém a última situaçao (Local=D) não estou conseguindo programar, veja se tem alguma idéia que possa complementar.</div><br clear="none"><div>att</div><br clear="none"><div>dados<-data.frame(Local=c('A','A','A','B','C','C','C','C','D','D'),Frequencia=c(2,2,1,3,5,5,5,5,3,4),Data=c("13/05/2015","13/05/2015","13/05/2015","13/05/2015","13/05/2015","10/05/2015","13/05/2015","13/05/2015","13/05/2015","13/05/2015"),qtde=c(500,700,700,400,300,400,400,900,550,500))</div><div>dados$Data <-as.Date(dados$Data,"%d/%m/%Y")</div><div>str(dados)</div><div>dados</div><br clear="none"><div># install.packages("plyr")</div><div>library(plyr)</div><br clear="none"><div>arranjo<-function(x){</div><div> valido <- c()</div><div> for(i in 1:nrow(x)){</div><div> if(x[i,2]==max(x[,2])){</div><div> valido[i]<-1</div><div> if( x[i,3]>= max(x[,3]) & x[i,2]==max(x[,2])){</div><br clear="none"><div> valido[i] <-1</div><div> }else{</div><br clear="none"><div> valido[i] <- 0</div><br clear="none"><div> }</div><div> if(x[i,4]>= max(x[,4])){</div><div> </div><div> valido[i] <- 1</div><div> </div><div> }else{</div><br clear="none"><div> valido[i] <- 0</div><div> }</div><div> }else{</div><div> valido[i]=0</div><div> }</div><div> }</div><div> return(mutate(x,valido=valido))</div><div>}</div><br clear="none"><div>ddply(dados,.(Local, Data),arranjo)</div><br clear="none"><br clear="none"><br clear="none"><br clear="none"><div class="yiv3690954147yqt1329027983" id="yiv3690954147yqt35808"><div class="yiv3690954147gmail_quote_attribution">On Nov 7 2018, at 11:29 am, Yury Duarte por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:</div><blockquote><br clear="none"><div><div><div><div><div>Olá Daniel!</div><div><br clear="none"></div><div>Utilizei a abordagem que você sugeriu e criei dois laços para fazer a checagem.</div><div>Ainda não está exatamente como gostaria mas o filtro já está sendo feito da maneira que preciso.</div><div>Segue a estrutura utilizada. </div><div><br clear="none"></div><div>Obrigado!</div><div><br clear="none"></div><div>Abraços</div><div><br clear="none"></div><div>dados:</div><div><div>area_id dia mes ano frequencia valor</div><div>a 15 12 2012 10 5</div><div>a 22 12 2012 15 10</div><div>a 15 12 2012 12 15</div><div>a 24 11 2013 15 20</div><div>b 8 12 2013 10 5</div><div>b 14 10 2012 12 10</div><div>c 7 11 2012 15 5</div><div>c 19 11 2013 12 10</div><div>c 19 10 2014 12 15</div><div>c 19 10 2013 15 20</div><div>d 5 10 2014 10 5</div><div>d 23 10 2014 10 10</div><div>d 5 12 2012 10 15</div><div>d 5 12 2012 15 20</div><div>d 5 12 2013 12 25</div><div>d 6 11 2014 12 30</div></div><div><br clear="none"></div><div>estrutura:</div><div><div>#--------------------Remover Objetos do R--------------------#</div><div>rm(list = ls())</div><div>set.seed(29031989)</div><div><br clear="none"></div><div>raiz = 'C:\\Users\\Desktop\\'</div><div>a = read.table(paste0(raiz, 'teste_classificacao_final.txt'), header = T, sep = '\t')</div><div>colunas = colnames(a)</div><div>locais = data.frame(unique(a$area_id))</div><div><br clear="none"></div><div>for (i in 1:length(locais[,1])){</div><div> #nome = paste0("area_", locais[i,1])</div><div> #area = assign(nome, a[which(a$area_id==locais[i,1]),])</div><div> area = a[which(a$area_id==locais[i,1]),]</div><div> anos = data.frame(unique(area$ano))</div><div> </div><div> for (x in 1:length(anos[,1])) {</div><div> area_ano = area[which(area$ano==anos[x,1]),]</div><div> frequencia_max = max(area_ano$frequencia)</div><div> valor_max = max(area_ano$valor)</div><div> area_ano_freq = area_ano[which(area_ano$frequencia==frequencia_max),]</div><div> area_ano_freq_val = area_ano_freq[which(area_ano_freq$frequencia==frequencia_max),]</div><div> </div><div> write.table(area_ano_freq_val, paste0(raiz, 'teste', '.txt'), sep = "\t", append = T, col.names = F, row.names = F)</div><div> </div><div> }</div><div>}</div><div><br clear="none"></div><div>b = read.table(paste0(raiz, 'teste.txt'), header = F, sep = '\t')</div><div>colnames(b) = colunas</div><div><div><div><div><br clear="none"></div><div><div>Yury Duarte</div></div><div>Engenheiro Agrônomo - ESALQ/USP</div></div></div></div><br clear="none"></div></div></div></div><br clear="none"><div><div><div>Em qua, 7 de nov de 2018 às 09:26, Daniel Guimarães Tiezzi por (R-br) <<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:</div></div><blockquote><div><div>Uma opção eh usar Uma estrutura de repetição para checar as variaveis e retornar o valor q deseja</div><div><br clear="none"></div><div>Daniel</div></div><br clear="none"><div><div><div>On Wed, 7 Nov 2018, 09:22 Yury Duarte por (R-br) <<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a> wrote:</div></div><blockquote><div><div><div>Bom dia colegas listeiros,</div><div><br clear="none"></div><div>Edson, agradeço pela dica! Já tinha me esquecido da possibilidade de utilizar aggregate nos meus comandos. </div><div><div>Entretanto, tentei utilizar a função sugerida para resolver o problema mas não consegui adapta-la para a minha necessidade.</div><div>Quando utilizo o aggregate ele me pede uma 'function' para ser aplicada aos dados, de acordo com a ordem de agrupamento estabelecida dentro do argumento 'by', mas não não consegui adaptar uma função que me retornasse um boleano de mesmo valor/significado da coluna 'valido' (que gerei manualmente para validar os resultados do código). Consegui agregar os locais por área e por data quando pedi para retornar a média das frequências ou das quantidades, mas isso não me ajuda muito no momento. </div></div><div><br clear="none"></div><div><div>aggregate(dados$local, by = list(dados$data), 'função') </div></div><div><br clear="none"></div><div>Desde já, agradeço pela ajuda de todos! </div><div><br clear="none"><div><div><div><div><div>Yury Duarte</div></div><div>Engenheiro Agrônomo - ESALQ/USP</div></div></div></div><br clear="none"></div></div></div><br clear="none"><div><div><div>Em ter, 6 de nov de 2018 às 18:21, Edson Lira por (R-br) <<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:</div></div><blockquote><div>Dá uma olhada no aggregate</div><br clear="none"><div><a rel="nofollow" shape="rect" target="_blank" href="https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature" title="https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature">Enviado do Yahoo Mail no Android</a></div><br clear="none"><blockquote><div><span style="color:rgb(109, 0, 246);"><font style="font-family:Roboto, sans-serif;"><div>Em ter, 6 6e nov 6e 2018 às 15:25, Yury Duarte por (R-br)</div><div><</font></span><span style="color:rgb(109, 0, 246);"><font style="font-family:Roboto, sans-serif;"><a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a></font></span><span style="color:rgb(109, 0, 246);"><font style="font-family:Roboto, sans-serif;">> escreveu:</div></font></span></div><div><div><div><div>Boa tarde colegas listeiros, como vão?</div><div><br clear="none"></div><div>Tenho um problema e estou com certa dificuldade em resolver de forma prática. Meu conjunto de dados é o seguinte:</div><div><div><table border="0" cellpadding="0" cellspacing="0" width="352" style="border-collapse:collapse;width:264pt;"><colgroup span="1"><col span="1" width="64" style="width:48pt;"><col span="1" width="74" style="width:56pt;"><col span="1" width="75" style="width:56pt;"><col span="1" width="75" style="width:56pt;"><col span="1" width="64" style="width:48pt;"></colgroup><tbody><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" width="64" style="min-height:15pt;width:48pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">local</td><td colspan="1" rowspan="1" width="74" style="width:56pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">frequencia</td><td colspan="1" rowspan="1" width="75" style="width:56pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">data</td><td colspan="1" rowspan="1" width="75" style="width:56pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">quantidade</td><td colspan="1" rowspan="1" width="64" style="width:48pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>valido</b></td></tr><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">A</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">2</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">500,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>0</b></td></tr><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">A</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">2</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">700,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>1</b></td></tr><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">A</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">1</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">700,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>0</b></td></tr><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">B</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">3</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">400,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>1</b></td></tr><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">C</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">5</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">300,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>0</b></td></tr><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">C</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">5</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">10/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">400,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>0</b></td></tr><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">C</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">5</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">13/05/2016</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">400,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>1</b></td></tr><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">C</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">5</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">900,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>1</b></td></tr><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">D</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">3</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">550,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>0</b></td></tr><tr height="20" style="min-height:15pt;"><td colspan="1" rowspan="1" height="20" style="min-height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">D</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">4</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">13/05/2015</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;">500,00</td><td align="right" colspan="1" rowspan="1" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri, sans-serif;vertical-align:bottom;border:none;white-space:nowrap;"><b>1</b></td></tr></tbody></table></div><br clear="none"></div><div>Para esse conjunto, gostaria de gerar a coluna 'valida', que me classifica os dados da seguinte maneira: para cada local e para cada ano, retornar apenas o local de maior frequência, mais recente e de maior quantidade (nessa ordem).</div><div>Pensei em gerar um objeto para cada local a partir do which(), mas como meu conjunto de dados tem mais de 150 mil linhas e mais de 2000 locais, achei que essa abordagem não seria muito prática nem rápida de ser processada. </div><div><br clear="none"></div><div>Desde já, agradeço pela colaboração de todos!</div><div><br clear="none"></div><div>Att</div><div><br clear="none"><div><div><div><div><div>Yury Duarte</div></div><div>Engenheiro Agrônomo - ESALQ/USP</div></div></div></div></div></div></div><div>_______________________________________________</div><div>R-br mailing list</div><div><a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></div><div><a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></div><div>Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div></div></blockquote><div>_______________________________________________</div><div>R-br mailing list</div><div><a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></div><div><a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></div><div>Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div></blockquote></div><div>_______________________________________________</div><div>R-br mailing list</div><div><a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></div><div><a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></div><div>Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div></blockquote></div><div>_______________________________________________</div><div>R-br mailing list</div><div><a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a></div><div><a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></div><div>Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div></blockquote></div><div>_______________________________________________</div><div>R-br mailing list</div><div>R-br@listas.c3sl.ufpr.br</div><div>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</div><div>Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.</div></div></blockquote></div></div></div><div class="yqt1329027983" id="yqt52286">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div></div>
</div>
</div></body></html>