<html><head></head><body><div class="ydpe98f3c0fyahoo-style-wrap" style="font-family: bookman old style, new york, times, serif; font-size: 16px;"><div dir="ltr" data-setdir="false" 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" data-setdir="false" style=""><div style=""><div style=""><font color="#cd232c" style="" size="2">grupo<-rep(c(1,2,3),8)</font></div><div style=""><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 style=""><font color="#cd232c" size="2">lote<-c(rep("L1",12),rep("L2",12))</font></div><div style=""><font color="#cd232c" size="2">res<-rnorm(24,100,30)</font></div><div style=""><font color="#cd232c" size="2">datos<-data.frame(cbind(grupo,nível,lote,res))</font></div><div style=""><span style="color: rgb(205, 35, 44); font-size: small;">datos$res<-as.numeric(datos$res)</span><br></div><div style=""><font color="#cd232c" size="2"><br></font></div><div style=""><font color="#cd232c" size="2">ggplot(datos,aes(y=res,x=nível))+</font></div><div style=""><font color="#cd232c" size="2"> geom_point(aes(colour=grupo))+</font></div><div style=""><font color="#cd232c" size="2"> facet_wrap(~lote)</font></div></div><div style="font-size: 16px;"><br></div><div dir="ltr" data-setdir="false" style="font-size: 16px;">O resultado gráfico é algo assim:</div><div dir="ltr" data-setdir="false" style="font-size: 16px;"><img title="Imagem incorporada" alt="Imagem incorporada" src="cid:d3b072f9-907f-294b-40ec-ff90c534a210@yahoo.com" class="yahoo-inline-image" draggable="false" style="max-width: 400px; width: 50%;" data-id="<d3b072f9-907f-294b-40ec-ff90c534a210@yahoo.com>"><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" data-setdir="false">Muito obrigado!!!</div><div dir="ltr" data-setdir="false" 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" data-setdir="false" style="font-size: 16px;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38508" style="font-family: Helvetica, Arial, sans-serif;"><span id="ydpcf278505yui_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" data-setdir="false" style="font-size: 16px;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38430" style="font-family: Helvetica, Arial, sans-serif;"><span id="ydpcf278505yui_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" data-setdir="false" style="font-size: 16px;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38309" style="font-family: Helvetica, Arial, sans-serif;"><span id="ydpcf278505yui_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" data-setdir="false" style="font-size: 16px;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38323" style="font-family: Helvetica, Arial, sans-serif;"><span id="ydpcf278505yui_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="ydpcf278505yui_3_16_0_1_1497025264182_38695" style="background-color: inherit;">http://lattes.cnpq.br/8996149312896520</font></span></i></div></div><div class="ydpe98f3c0fsignature" style="font-size: 16px;"><div style="font-family:Helvetica, Arial, sans-serif;font-size:16px;"><p id="ydpcf278505yui_3_16_0_1_1497025264182_38326" style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;" class="ydpcf278505MsoNormal"><br></p></div></div></div></body></html>