<div dir="ltr">library(dplyr)<br>x01<-c(1001,"Potássio",3.49,3.62,3.63,3.49,3.44,2)<br>x02<-c(2000,"Potássio",4.18,4.21,4.15,4.86,4.36,3)<br>x03<-c(1002,"Potássio",3.49,3.62,3.63,3.49,3.44,2)<br>x04<-c(1003,"Potássio",3.49,3.62,3.63,3.49,3.44,2)<br>x05<-c(2001,"Potássio",4.18,4.21,4.15,4.86,4.36,3)<br>x06<-c(2000,"Albumina",2.35,2.36,2.21,2.15,2.27,10)<br>x07<-c(3000,"Albumina",2.69,2.78,2.88,2.91,2.84,12)<br>x08<-c(2001,"Albumina",2.35,2.36,2.21,2.15,2.27,10)<br>x09<-c(3001,"Albumina",2.69,2.78,2.88,2.91,2.84,12)<br><br>exemplo<-data.frame(rbind(x01,x02,x03,x04,x05,x06,x07,x08,x09))<br>names(exemplo)<-c("CodCli","Substância","v1","v2","v3","v4","v5","Cluster")<br>row.names(exemplo)<-NULL<br><br>exemplo<-exemplo %>%<br>  mutate(v1=as.numeric(v1),v2=as.numeric(v2),v3=as.numeric(v3),v4=as.numeric(v4),<br>         v5=as.numeric(v5))<br><br>exemplo$Média<-rowMeans(exemplo[,3:7],na.rm = TRUE)<br><br><font color="#ff0000">exemplo %>% pivot_longer(cols = 3:7) %>% <br>  group_by(Cluster, Substância, Média) %>% <br>  select(-value) %>% <br>  pivot_wider(names_from = name, values_from = CodCli) %>% <br>  as.data.frame() %>% pivot_longer(cols=-c(1:3)) %>% as.data.frame() %>% select(-name) %>% <br>  separate(value, c("x","CodCli.1","CodCli.2","CodCli.3")) %>% select(-x) %>% <br>  unique() %>% as.data.frame() %>% arrange(Substância)</font><br clear="all"><div><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div style="text-align:left"><br></div><div style="text-align:left"><br></div><div style="text-align:left"><br></div><div style="text-align:left">Vê se isso ajuda...</div><div style="text-align:left"><br></div><div style="text-align:center"><div style="text-align:left"><font color="#073763"><b><i>Cid Edson Mendonça Póvoas</i></b></font></div><div style="text-align:left"><font color="#073763"><b><i><br></i></b></font></div><div style="text-align:left"><b style="font-size:12.8px;color:rgb(7,55,99)"><i><a href="http://www.anovagro.com/" target="_blank">AnovAgro</a></i></b><br></div><div style="text-align:left"><b><i><font color="#073763">Engenheiro Agrônomo - </font></i></b><i style="color:rgb(7,55,99)"><b>Data Scientist</b></i><b><i><font color="#073763"> </font></i></b></div><div><div style="text-align:left"><i style="color:rgb(7,55,99)"><b>CREA :</b> 051984991-4</i><b><font color="#073763"><i><br></i></font></b></div><div style="text-align:left"><b><font color="#073763"><i>Técnico em Segurança do Trabalho </i></font></b><br></div><div style="text-align:left"><i style="color:rgb(7,55,99)"><b>Nº: </b></i><span style="text-align:center"><font color="#073763"><i>0012669/BA</i></font></span></div><div style="text-align:left"><i style="color:rgb(7,55,99)"><b>Tel: </b>+55 73 99151-9565</i></div><div style="text-align:left"><font color="#073763"><span style="font-size:12.8px"><b>Lattes : </b></span><span style="font-size:12.8px"><a href="http://lattes.cnpq.br/2303498368142537" target="_blank">http://lattes.cnpq.br/2303498368142537</a></span><br></font></div></div><div><div><div style="text-align:left"><span style="font-size:12.8px"><font color="#073763"><b>LinkedIn :</b> <a href="http://br.linkedin.com/in/cidedson/" target="_blank">http://br.linkedin.com/in/cidedson/</a></font></span></div><div style="text-align:left"><font color="#073763"><b>Whatsapp :</b> <a href="https://wa.me/5573991519565" target="_blank">https://wa.me/5573991519565</a></font></div></div></div></div></div></div></div><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em qua., 16 de fev. de 2022 às 08:47, Diogo Jerônimo por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<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 dir="ltr" style="font-size:16px">Prezados, bom dia de novo, lá vou perturbar os amigos... Segue outro exemplo reproduzível (tem a ver com minha dúvida de ontem):</div><div dir="ltr" style="font-size:16px"><br></div><div dir="ltr"><div><div><span style="color:rgb(128,128,128);font-size:small">library(dplyr)</span><br></div><div><span style="color:rgb(128,128,128);font-size:small">x01<-c(1001,"Potássio",3.49,3.62,3.63,3.49,3.44,2)</span><br></div><div><font color="#808080" size="2">x02<-c(2000,"Potássio",4.18,4.21,4.15,4.86,4.36,3)</font></div><div><font color="#808080" size="2">x03<-c(1002,"Potássio",3.49,3.62,3.63,3.49,3.44,2)</font></div><div><font color="#808080" size="2">x04<-c(1003,"Potássio",3.49,3.62,3.63,3.49,3.44,2)</font></div><div><font color="#808080" size="2">x05<-c(2001,"Potássio",4.18,4.21,4.15,4.86,4.36,3)</font></div><div><font color="#808080" size="2">x06<-c(2000,"Albumina",2.35,2.36,2.21,2.15,2.27,10)</font></div><div><font color="#808080" size="2">x07<-c(3000,"Albumina",2.69,2.78,2.88,2.91,2.84,12)</font></div><div><font color="#808080" size="2">x08<-c(2001,"Albumina",2.35,2.36,2.21,2.15,2.27,10)</font></div><div><font color="#808080" size="2">x09<-c(3001,"Albumina",2.69,2.78,2.88,2.91,2.84,12)</font></div><div><font color="#808080" size="2"><br></font></div><div><font color="#808080" size="2">exemplo<-data.frame(rbind(x01,x02,x03,x04,x05,x06,x07,x08,x09))</font></div><div><font color="#808080" size="2">names(exemplo)<-c("CodCli","Substância","v1","v2","v3","v4","v5","Cluster")</font></div><div><font color="#808080" size="2">row.names(exemplo)<-NULL</font></div><div style="font-size:16px"><br></div><div dir="ltr"><div><div dir="ltr"><font color="#808080" size="2"><div><div>exemplo<-exemplo %>%</div><div>mutate(v1=as.numeric(v1),v2=as.numeric(v2),v3=as.numeric(v3),v4=as.numeric(v4),</div><div>       v5=as.numeric(v5))</div></div></font></div><div><span style="color:rgb(128,128,128);font-size:small"><br></span></div><div><span style="color:rgb(128,128,128);font-size:small">exemplo$Média<-rowMeans(exemplo[,3:7],na.rm = TRUE)</span><br></div><div style="font-size:16px"><br style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif"></div></div></div><div dir="ltr" style="font-size:16px">Como o de ontem, esse banco tem variáveis que identificam o código do cliente, a média dos dados (iguais entre laboratórios) e o Cluster, que foi obtido previamente. A substância é detalhe adicional.</div><div dir="ltr" style="font-size:16px"><br></div><div dir="ltr" style="font-size:16px">O que eu gostaria é: reestruturar esse banco, colocando como variáveis de identificação a substância, o cluster e a média, e o código do cliente indo para as colunas, como está nessa tabela abaixo:</div><div style="font-size:16px"><br></div><div style="font-size:16px" dir="ltr"><b><span style="background-color:rgb(253,248,105)">Subst       Cluster    Média       CodCli.1   </span><span style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px"><span style="background-color:rgb(253,248,105)">CodCli.2   <span style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px">CodCli.3</span></span></span></b></div><div style="font-size:16px" dir="ltr"><div><div><span style="background-color:rgb(253,248,105)">Albumina<span style="white-space:pre-wrap">       </span>10<span style="white-space:pre-wrap">              </span>2,2680<span style="white-space:pre-wrap">    </span>2000<span style="white-space:pre-wrap">     </span>2001<span style="white-space:pre-wrap"> </span></span></div><div><span style="background-color:rgb(253,248,105)">Albumina<span style="white-space:pre-wrap">    </span>12<span style="white-space:pre-wrap">              </span>2,8200   <span style="white-space:pre-wrap">    </span>3000<span style="white-space:pre-wrap">        </span>3001<span style="white-space:pre-wrap"> </span></span></div><div><span style="background-color:rgb(253,248,105)">Potássio<span style="white-space:pre-wrap">   </span>2<span style="white-space:pre-wrap">               </span>3,5340<span style="white-space:pre-wrap">    </span>1001<span style="white-space:pre-wrap">     </span>1002<span style="white-space:pre-wrap">     </span>1003</span></div><div><span style="background-color:rgb(253,248,105)">Potássio<span style="white-space:pre-wrap">   </span>3<span style="white-space:pre-wrap">               </span>4,3520<span style="white-space:pre-wrap">    </span>2000<span style="white-space:pre-wrap">     </span>2001<span style="white-space:pre-wrap"> </span></span></div></div><br></div><div style="font-size:16px" dir="ltr"><div><div dir="ltr">Eu tentei usar o comando <font color="#cd232c">reshape</font>, com esse código abaixo, mas ele não funcionou comigo (tentei também o <font color="#cd232c">spread</font>, do tidyr): <br></div></div><br></div><div><font color="#808080" size="2">exemplo<-exemplo %>%<br></font></div><div><font color="#808080" size="2">  select(CodCli,Substância,Cluster,Média)</font></div><div><font color="#808080" size="2"><br></font></div><div><font color="#808080" size="2">exemplo_quebra<-reshape(exemplo,<br></font></div><div><font color="#808080" size="2">                                        direction="wide",</font></div><div><font color="#808080" size="2">                                        idvar=c("Substância","Cluster","Média"),</font></div><div><font color="#808080" size="2">                                        timevar="Cod.Cli")</font></div><div style="font-size:16px"><br></div><div style="font-size:16px" dir="ltr">Algum amigo poderia indicar onde estou errando? Ou se teria uma rotina melhor para realizar esse procedimento?<br></div><div style="font-size:16px" dir="ltr"><br></div><div style="font-size:16px" dir="ltr">Novamente obrigado!!!</div><div style="font-size:16px"><br></div></div></div><div style="font-size:16px"><i id="gmail-m_-2974581309438902227ydpcf278505yui_3_16_0_1_1497025264182_38508" style="font-family:Helvetica,Arial,sans-serif"><span id="gmail-m_-2974581309438902227ydpcf278505yui_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><br></div><div style="font-size:16px"><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_-2974581309438902227ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="gmail-m_-2974581309438902227ydpcf278505yui_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_-2974581309438902227ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="gmail-m_-2974581309438902227ydpcf278505yui_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_-2974581309438902227ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="gmail-m_-2974581309438902227ydpcf278505yui_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_-2974581309438902227ydpcf278505yui_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>
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>