<div dir="ltr"><div>Bom dia,</div><div><br></div><div>Se a diagonal é 0 (no exemplo passado não é), então basta ordenar os valores e escolher aquele que for o primeiro depois da diagonal.</div><div><br></div><div>Supondo matriz m x n, basta pegar o menor entre `m` e `n` para determinar a quantidade de valores na matriz.</div><div><br></div><div><div># cria matriz do exemplo</div><div>valores <- c(0, 86.441, 63.108, 120.692, 21.903,</div><div> 86.441, 0, 7.663, 39.936, 39.71,</div><div> 63.108, 7.663, 0, 30.014, 32.262,</div><div> 120.692, 39.936, 30.014, 0, 97.077,</div><div> 86.463, 5.358, 5.075, 40.632, 41.155, # este ultimo valor deveria ser 0 (zero) para cumprir a regra da diagonal zerada</div><div> 58.086, 22.672, 5.571, 20.989, 43.635,</div><div> 160.623, 84.723, 99.275, 59.463, 121.871,</div><div> 149.096, 78.921, 107.048, 104.64, 94.213)</div><div>mat <- matrix(valores, 8, byrow = TRUE)</div><div><br></div><div># determina menor dimensão</div><div>menor_dim <- min(dim(mat))</div><div><br></div><div># pega menor valor fora da diagonal</div><div>menor_valor <- sort(mat)[menor_dim + 1]</div><div><br></div><div># Determina posição na matriz</div><div>posicao <- which(mat == menor_valor)</div><div>linha <- posicao %% dim(mat)[1] </div><div>coluna <- (posicao %/% dim(mat)[1]) + 1</div><div><br></div><div>mat[linha, coluna]</div></div><div><br></div><div>Para determinar o maior valor basta adicionar o argumento `decreasing = TRUE` na chamada da função `sort()`</div><div><br></div><div>Aqui só retorna os indices de linha e coluna, mas conseguir o nome depois disso não é difícil.</div><div><br></div><div class="gmail_extra">Att,</div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div dir="ltr">Tomás Barcellos<div><br></div></div></div></div></div>
<br><div class="gmail_quote">Em 11 de setembro de 2017 11:27, Rodrigo Lima via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Prezados blogueiros<div><br></div><div>Bom diaz</div><div>Estou com uma dúvida básica no R e preciso da ajuda de vocês. Eu tenho uma matriz de distância genética entre centenas de indivíduos (parte dela abaixo) e quero identificar a combinação linha x coluna com máximo valor e a combinação linha x coluna com mínimo valor eliminando a diagonal, pois essa tem valor zero. Vamos imaginar que o mínimo é 5.075. Logo, quero saber esse valor e posição dele, por por exemplo. Os nomes da coluna e diagonal são de acesso de germoplasma.</div><div> 4</div><div>5 5.075</div><div><br></div><div><table border="0" cellpadding="0" cellspacing="0" width="384" style="border-collapse:collapse;width:288pt">
<colgroup><col width="64" span="6" style="width:48pt">
</colgroup><tbody><tr height="20" style="height:15pt">
<td height="20" width="64" style="height:15pt;width:48pt"></td>
<td class="m_4323672980611444505gmail-xl63" align="right" width="64" style="width:48pt">1</td>
<td class="m_4323672980611444505gmail-xl63" align="right" width="64" style="width:48pt">2</td>
<td class="m_4323672980611444505gmail-xl63" align="right" width="64" style="width:48pt">3</td>
<td class="m_4323672980611444505gmail-xl63" align="right" width="64" style="width:48pt">4</td>
<td class="m_4323672980611444505gmail-xl63" align="right" width="64" style="width:48pt">5</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" class="m_4323672980611444505gmail-xl63" align="right" style="height:15pt">1</td>
<td align="right">0</td>
<td align="right">86.441</td>
<td align="right">63.108</td>
<td align="right">120.692</td>
<td align="right">21.903</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" class="m_4323672980611444505gmail-xl63" align="right" style="height:15pt">2</td>
<td align="right">86.441</td>
<td align="right">0</td>
<td align="right">7.663</td>
<td align="right">39.936</td>
<td align="right">39.71</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" class="m_4323672980611444505gmail-xl63" align="right" style="height:15pt">3</td>
<td align="right">63.108</td>
<td align="right">7.663</td>
<td align="right">0</td>
<td align="right">30.014</td>
<td align="right">32.262</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" class="m_4323672980611444505gmail-xl63" align="right" style="height:15pt">4</td>
<td align="right">120.692</td>
<td align="right">39.936</td>
<td align="right">30.014</td>
<td align="right">0</td>
<td align="right">97.077</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" class="m_4323672980611444505gmail-xl63" align="right" style="height:15pt">5</td>
<td align="right">86.463</td>
<td align="right">5.358</td>
<td align="right">5.075</td>
<td align="right">40.632</td>
<td align="right">41.155</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" class="m_4323672980611444505gmail-xl63" align="right" style="height:15pt">6</td>
<td align="right">58.086</td>
<td align="right">22.672</td>
<td align="right">5.571</td>
<td align="right">20.989</td>
<td align="right">43.635</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" class="m_4323672980611444505gmail-xl63" align="right" style="height:15pt">7</td>
<td align="right">160.623</td>
<td align="right">84.723</td>
<td align="right">99.275</td>
<td align="right">59.463</td>
<td align="right">121.871</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" class="m_4323672980611444505gmail-xl63" align="right" style="height:15pt">8</td>
<td align="right">149.096</td>
<td align="right">78.921</td>
<td align="right">107.048</td>
<td align="right">104.64</td>
<td align="right">94.213</td>
</tr></tbody></table><div><div class="m_4323672980611444505gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div><font size="2" face="arial, helvetica, sans-serif"><br></font></div><div><font size="2" face="arial, helvetica, sans-serif">Grato.</font></div><span class="HOEnZb"><font color="#888888"><div><font size="2" face="arial, helvetica, sans-serif"><br></font></div><div><font size="2" face="arial, helvetica, sans-serif">Rodrigo.</font></div><div><font size="2" face="arial, helvetica, sans-serif"><br></font></div><div><font size="2" face="arial, helvetica, sans-serif">-- </font></div><div><div><font size="2" face="arial, helvetica, sans-serif">Prof. Rodrigo Oliveira de Lima</font></div><div><font size="2" face="arial, helvetica, sans-serif">Federal University of Viçosa</font></div><div><font size="2" face="arial, helvetica, sans-serif">Department of Plant Sciences</font></div><div><font size="2" face="arial, helvetica, sans-serif">Viçosa, MG, Brazil, 36570-900,</font></div><div><font size="2" face="arial, helvetica, sans-serif">Phone: <a href="tel:+55%2031%203899-2781" value="+553138992781" target="_blank">+55(31)3899-2781</a>/3247</font></div><div><font size="2" face="arial, helvetica, sans-serif">Fax: <a href="tel:+55%2031%203899-2614" value="+553138992614" target="_blank">+55(31)3899-2614</a> </font></div><div><font size="2" face="arial, helvetica, sans-serif">Email: <a href="mailto:rodrigoodelima@ufv.br" target="_blank">rodrigoodelima@ufv.br</a></font></div><div><font size="2" face="arial, helvetica, sans-serif">CV: <a href="http://lattes.cnpq.br/2761299616351806" target="_blank">http://lattes.cnpq.br/<wbr>2761299616351806</a> <br></font><br></div></div></font></span></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div>
</div></div>
<br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div></div>