<div dir="ltr">Diogo,<div><br></div><div>A razão porque é <i>difícil </i> de fazer isso no ggplot é que ele é baseado numa "gramática de gráficos".</div><div><br></div><div>Nessa visão essa linha que vc gostaria de passar pelos níveis seria "errada" porque indica visualmente (a tal da "semiótica" da visualização gráfica) que haveria valores válidos intermediários para os níveis (<i>lote</i>), o que é incorreto, por serem lotes atributos discretos, a menos que num átimo de especialização, como a obtenção de peças de u'a máquina com processo contínuo¹ se faça uma arbitragem para definir "lote" como peças de um certo horário, e por isso haveria lógica em "interpolar" esse atributo.</div><div><br></div><div>Por óbvio, pelo exemplo dado no seu CMR, por ser "sintético" essa dúvida não pode ser sanada lendo seu post.</div><div><br></div><div>HTH</div><div><br></div><div>--</div><div>Cesar Rabak</div><div><br></div><div>[1] <i>Been there, done that</i>. </div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Mon, Oct 17, 2022 at 10:54 AM 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 dir="ltr" style="font-size:16px">Boa tarde grupo, acho que é uma dúvida boba, mas não estou conseguindo resolver. Segue o exemplo desse gráfico que sai via ggplot2:</div><div style="font-size:16px"><br></div><div dir="ltr"><div><div><font color="#cd232c" size="2">grupo<-rep(c(1,2,3),8)</font></div><div><font color="#cd232c" size="2">nível<-rep(c(rep("I",3),rep("II",3),rep("III",3),rep("IV",3)),2)</font></div><div><font color="#cd232c" size="2">lote<-c(rep("L1",12),rep("L2",12))</font></div><div><font color="#cd232c" size="2">res<-rnorm(24,100,30)</font></div><div><font color="#cd232c" size="2">datos<-data.frame(cbind(grupo,nível,lote,res))</font></div><div><span style="color:rgb(205,35,44);font-size:small">datos$res<-as.numeric(datos$res)</span><br></div><div><font color="#cd232c" size="2"><br></font></div><div><font color="#cd232c" size="2">ggplot(datos,aes(y=res,x=nível))+</font></div><div><font color="#cd232c" size="2">  geom_point(aes(colour=grupo))+</font></div><div><font color="#cd232c" size="2">  facet_wrap(~lote)</font></div></div><div style="font-size:16px"><br></div><div dir="ltr" style="font-size:16px">O resultado gráfico é algo assim:</div><div dir="ltr" style="font-size:16px"><img title="Imagem incorporada" alt="Imagem incorporada" src="cid:183e67dfb054afae9a41" style="max-width: 400px; width: 50%;"><br><span></span><br></div><div style="font-size:16px">Eu gostaria de passar uma linha que ligasse <b>as médias dos dados de cada nível</b>, segundo cada lote, ou seja ligando a média do nível I a média do nível II... Teriam como me dar uma ajuda?</div><div style="font-size:16px"><br></div><div style="font-size:16px" dir="ltr">Muito obrigado!!!</div><div dir="ltr" style="font-size:16px"><i style="font-family:Helvetica,Arial,sans-serif"><span style="color:rgb(0,0,191);font-size:medium"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color:inherit"><br></font></span></i></div><div dir="ltr" style="font-size:16px"><i id="m_-5412769126149650996ydpcf278505yui_3_16_0_1_1497025264182_38508" style="font-family:Helvetica,Arial,sans-serif"><span id="m_-5412769126149650996ydpcf278505yui_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 dir="ltr" style="font-size:16px"><i id="m_-5412769126149650996ydpcf278505yui_3_16_0_1_1497025264182_38430" style="font-family:Helvetica,Arial,sans-serif"><span id="m_-5412769126149650996ydpcf278505yui_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 dir="ltr" style="font-size:16px"><i id="m_-5412769126149650996ydpcf278505yui_3_16_0_1_1497025264182_38309" style="font-family:Helvetica,Arial,sans-serif"><span id="m_-5412769126149650996ydpcf278505yui_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 dir="ltr" style="font-size:16px"><i id="m_-5412769126149650996ydpcf278505yui_3_16_0_1_1497025264182_38323" style="font-family:Helvetica,Arial,sans-serif"><span id="m_-5412769126149650996ydpcf278505yui_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="m_-5412769126149650996ydpcf278505yui_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 style="font-size:16px"><div style="font-family:Helvetica,Arial,sans-serif;font-size:16px"><p id="m_-5412769126149650996ydpcf278505yui_3_16_0_1_1497025264182_38326" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white"><br></p></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>