<div dir="ltr">Diogo,<div><br></div><div>Como vc já resolveu o prob principal, faço apenas uma sugestãozinha:<br><br>Este código parece-me estar <i>pedindo</i> para ser otimizado pelo uso da função <font face="monospace">rowMeans()</font>.</div><div><br><div style="font-size:16px"><font color="#808080" style="" face="monospace">for (i in (1:nrow(dados))){</font></div><div style="font-size:16px"><font color="#808080" face="monospace">dados$Média[i]<-mean(dados$v1[i],dados$v2[i],dados$v3[i],dados$v4[i],dados$v5[i],na.rm = TRUE)</font></div><div style="font-size:16px"><font color="#808080" style="" face="monospace">}</font></div><br></div><div>Não testei, mas ficaria desta forma no seu exemplo:<br><br><font face="monospace">dados$Média <- rowMeans(dados, na.rm=TRUE)</font></div><div><br></div><div>HTH</div><div>--</div><div>Cesar Rabak</div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Mon, Feb 14, 2022 at 2:26 PM Diogo Jerônimo por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div style="font-family:"bookman old style","new york",times,serif;font-size:16px"><div><div dir="ltr"><span>Prezado professor Marcus, obrigado!!!</span><br></div><div><br></div><div><div style="font-family:Helvetica,Arial,sans-serif;font-size:16px"><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white"><i id="gmail-m_6889034844030912904ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="gmail-m_6889034844030912904ydpcf278505yui_3_16_0_1_1497025264182_38507" style="color:rgb(0,0,191);font-size:medium"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color:inherit">Diogo Jerônimo</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white"><i id="gmail-m_6889034844030912904ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="gmail-m_6889034844030912904ydpcf278505yui_3_16_0_1_1497025264182_38429" style="color:rgb(0,0,191);font-size:medium"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color:inherit">Bacharel em Ciências Estatísticas - ENCE/IBGE</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white"><i id="gmail-m_6889034844030912904ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="gmail-m_6889034844030912904ydpcf278505yui_3_16_0_1_1497025264182_38308" style="color:rgb(0,0,191);font-size:medium"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color:inherit">Mestre em Metrologia - PUC-Rio/PósMQI</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white"><i id="gmail-m_6889034844030912904ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="gmail-m_6889034844030912904ydpcf278505yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0,0,191);font-size:medium"><font face="Courier New, courier, monaco, monospace, sans-serif" id="gmail-m_6889034844030912904ydpcf278505yui_3_16_0_1_1497025264182_38695" style="background-color:inherit"><a href="http://lattes.cnpq.br/8996149312896520" target="_blank">http://lattes.cnpq.br/8996149312896520</a></font></span></i></div></div></div></div>
<div><br></div>
</div><div id="gmail-m_6889034844030912904ydp6d8be171yahoo_quoted_5520863749">
<div style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px;color:rgb(38,40,42)">
<div>
Em segunda-feira, 14 de fevereiro de 2022 14:12:13 BRT, Marcus Nunes <<a href="mailto:marcus.nunes@gmail.com" target="_blank">marcus.nunes@gmail.com</a>> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555"><div><div dir="ltr"><div>O código a seguir tem comentários sobre o que está incorreto. Ao final, eu posto o código que funciona.<br clear="none"></div><div><br clear="none"></div><div># Código antigo<br clear="none"></div><div><br clear="none"></div><div> i=1 # o laço `for` atualiza automaticamente o contador `i`, criando cada um dos seus valores. portanto, essa linha é redundante.<br clear="none">for (i in (1:nrow(dados))){ # o ideal é fazer `i` variar até `nrow(dados)-1`, pois `i+1`quando `i=10` extrapola o tamanho do data frame<br clear="none"> if ((dados$Cluster[i]==dados$Cluster[i+1]) & (dados$Média[i]==dados$Média[i+1])){<br clear="none"> dados$sit[i] == "Resultado Igual"<br clear="none"> dados$sit[i+1] == "Resultado Igual"} # em nenhum local se define onde entra o "Resultado Diferente"<br clear="none"> else { # desnecessário<br clear="none"> }<br clear="none"> i=i+1 # linha redundante<br clear="none">}</div><div><div><div><br clear="none"></div><div># Código que funciona</div><div><br clear="none"></div><div>dados$sit <- "Resultado Diferente" # inicializa a coluna `sit` inteira como `Resultado Diferente`<br clear="none"><br clear="none">for (i in (1:(nrow(dados)-1))){<br clear="none"> if ((dados$Cluster[i]==dados$Cluster[i+1]) & (dados$Média[i]==dados$Média[i+1])){<br clear="none"> dados$sit[i] <- "Resultado Igual" # substitui apenas as posições de `sit` nas quais há resultado igual, de acordo com a condicional acima<br clear="none"> dados$sit[i+1] <- "Resultado Igual" <br clear="none"> }<br clear="none">}</div><div><br clear="none"></div><div>Não cheguei a testar minha sugestão em casos com 3 ou mais laboratórios iguais, então não saberia te dizer se a minha solução é universal.<br clear="none"></div><div><div><div dir="ltr"><div dir="ltr"><div><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><div dir="ltr"><div dir="ltr">Marcus Nunes</div><div dir="ltr">Professor Adjunto</div><div dir="ltr"><div dir="ltr"><a shape="rect" href="https://marcusnunes.me/" rel="nofollow" target="_blank">https://marcusnunes.me/</a></div></div><div dir="ltr">Universidade Federal do Rio Grande do Norte</div><div dir="ltr">Departamento de Estatística</div><div dir="ltr">Laboratório de Estatística Aplicada - <a shape="rect" href="http://lea.estatistica.ccet.ufrn.br/" rel="nofollow" target="_blank">http://lea.estatistica.ccet.ufrn.br</a></div><div>Curso de Big Data - <a shape="rect" href="https://introbigdata.org" rel="nofollow" target="_blank">https://introbigdata.org</a><br clear="none"></div><div dir="ltr">Aplicações em Shiny - <a shape="rect" href="http://shiny.estatistica.ccet.ufrn.br" rel="nofollow" target="_blank">http://shiny.estatistica.ccet.ufrn.br</a></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div><br clear="none"></div></div></div></div><br clear="none"><div><div id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555yqt18774"><div dir="ltr">On Mon, Feb 14, 2022 at 1:50 PM Diogo Jerônimo por (R-br) <<a shape="rect" href="mailto:r-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br clear="none"></div><blockquote style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div style="font-family:"bookman old style","new york",times,serif;font-size:16px"><div dir="ltr">Boa tarde a todos!!! Dúvida boba, mas tenho de explicar antes: estou fazendo uma análise de cluster, para poder identificar resultados iguais de laboratórios analíticos. O resultado foi um banco parecido com esse reproduzível:</div><div dir="ltr"><br clear="none"></div><div dir="ltr"><div><div dir="ltr"><font color="#808080"><span>library(dplyr)</span></font></div><div dir="ltr"><span style="color:rgb(128,128,128)"><br clear="none"></span></div><div dir="ltr"><span style="color:rgb(128,128,128)">x01<-c(8.49,8.62,8.63,8.49,8.44,2)</span><br clear="none"></div><div><font color="#808080">x02<-c(9.18,9.21,9.15,8.86,9.36,3)</font></div><div><font color="#808080">x03<-c(8.49,8.62,8.63,8.49,8.44,2)</font></div><div><font color="#808080">x04<-c(9.74,9.69,9.81,9.25,9.98,3)</font></div><div><font color="#808080">x05<-c(9.74,9.69,9.81,9.25,9.98,3)</font></div><div><font color="#808080">x06<-c(8.15,9.52,9.89,9.95,8.33,2)</font></div><div><font color="#808080">x07<-c(8.32,8.73,9.60,9.04,9.97,3)</font></div><div><font color="#808080">x08<-c(7.42,7.01,7.31,7.20,7.61,1)</font></div><div><font color="#808080">x09<-c(9.79,8.76,9.68,8.31,9.37,3)</font></div><div><font color="#808080">x10<-c(7.42,7.01,7.31,7.20,7.61,1)</font></div><div><span style="color:rgb(128,128,128)"><br clear="none"></span></div><div><span style="color:rgb(128,128,128)">dados<-data.frame(rbind(x01,x02,x03,x04,x05,x06,x07,x08,x09,x10))</span><br clear="none"></div><div><font color="#808080">names(dados)<-c("v1","v2","v3","v4","v5","Cluster")</font></div></div><br clear="none"></div><div dir="ltr">Para facilitar essa identificação, ordenei os resultados por cluster, pelos dados das variáveis, e então calculei a média em cada linha:</div><div dir="ltr"><br clear="none"></div><div dir="ltr"><div><div><font color="#808080">dados<-dados %>% </font></div><div><font color="#808080">arrange(Cluster, v1,v2,v3,v4,v5) </font></div><div><font color="#808080"><br clear="none"></font></div><div><font color="#808080">for (i in (1:nrow(dados))){</font></div><div><font color="#808080">dados$Média[i]<-mean(dados$v1[i],dados$v2[i],dados$v3[i],dados$v4[i],dados$v5[i],na.rm = TRUE)</font></div><div><font color="#808080">}</font></div><div><br clear="none"></div><div dir="ltr"><b><i>MEU PROBLEMA:</i></b> para finalmente identificar os resultados iguais, eu apliquei esse código abaixo, onde em resumo, se o cluster for igual e a média do resultado do laboratório da <b>linha i</b> for igual <span><span style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px">a média do resultado do laboratório da <b>linha i+1</b>, então ambos os laboratórios responderam resultados iguais. Apliquei o código abaixo, e ele está resultando em erro:</span></span> </div><div dir="ltr"><br clear="none"></div><div dir="ltr"><font color="#808080">i=1</font></div><div><font color="#808080">for (i in (1:nrow(dados))){</font></div><div><font color="#808080">if ((dados$Cluster[i]==dados$Cluster[i+1]) & (dados$Média[i]==dados$Média[i+1])){</font></div><div><font color="#808080">dados$sit[i] == "Resultado Igual"</font></div><div><font color="#808080">dados$sit[i+1] == "Resultado Igual"}</font></div><div><font color="#808080">else {</font></div><div><font color="#808080">}</font></div><div><font color="#808080">i=i+1</font></div><div><font color="#808080">}</font></div><div><br clear="none"></div></div><div dir="ltr">Alguém poderia dizer qual o meu erro? Ou se faltou algo no código?</div><div dir="ltr"><br clear="none"></div><div dir="ltr">Muito agradecido pela atenção, e desculpa a extensão!!!</div></div><div><br clear="none"></div><div><div style="font-family:Helvetica,Arial,sans-serif;font-size:16px"><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background-image:none;background-size:initial;background-origin:initial;background-clip:initial;background-color:white"><i id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555gmail-m_7106513639325430680gmail-m_-3382221373330041718ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555gmail-m_7106513639325430680gmail-m_-3382221373330041718ydpcf278505yui_3_16_0_1_1497025264182_38507" style="color:rgb(0,0,191);font-size:medium"><font style="background-color:inherit" face="Courier New, courier, monaco, monospace, sans-serif">Diogo Jerônimo</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background-image:none;background-size:initial;background-origin:initial;background-clip:initial;background-color:white"><i id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555gmail-m_7106513639325430680gmail-m_-3382221373330041718ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555gmail-m_7106513639325430680gmail-m_-3382221373330041718ydpcf278505yui_3_16_0_1_1497025264182_38429" style="color:rgb(0,0,191);font-size:medium"><font style="background-color:inherit" face="Courier New, courier, monaco, monospace, sans-serif">Bacharel em Ciências Estatísticas - ENCE/IBGE</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background-image:none;background-size:initial;background-origin:initial;background-clip:initial;background-color:white"><i id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555gmail-m_7106513639325430680gmail-m_-3382221373330041718ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555gmail-m_7106513639325430680gmail-m_-3382221373330041718ydpcf278505yui_3_16_0_1_1497025264182_38308" style="color:rgb(0,0,191);font-size:medium"><font style="background-color:inherit" face="Courier New, courier, monaco, monospace, sans-serif">Mestre em Metrologia - PUC-Rio/PósMQI</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background-image:none;background-size:initial;background-origin:initial;background-clip:initial;background-color:white"><i id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555gmail-m_7106513639325430680gmail-m_-3382221373330041718ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555gmail-m_7106513639325430680gmail-m_-3382221373330041718ydpcf278505yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0,0,191);font-size:medium"><font id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555gmail-m_7106513639325430680gmail-m_-3382221373330041718ydpcf278505yui_3_16_0_1_1497025264182_38695" style="background-color:inherit" face="Courier New, courier, monaco, monospace, sans-serif"><a shape="rect" href="http://lattes.cnpq.br/8996149312896520" rel="nofollow" target="_blank">http://lattes.cnpq.br/8996149312896520</a></font></span></i></div><p id="gmail-m_6889034844030912904ydp6d8be171yiv3353661555gmail-m_7106513639325430680gmail-m_-3382221373330041718ydpcf278505yui_3_16_0_1_1497025264182_38326" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background-image:none;background-size:initial;background-origin:initial;background-clip:initial;background-color:white"><br clear="none"></p></div></div></div></div>_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">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" rel="nofollow" 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" rel="nofollow" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br clear="none">
</blockquote></div></div>
</div></div></div>
</div>
</div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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/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-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>