<div><span style="font-size: medium; color: #0000ff;">Eu tentei rodar e não consegui. Não reconhece %>%, tem um bibliotéca para isto?</span></div>
<div> </div>
<div> </div>
<div dir="ltr">
<div>agrupado por cyl</div>
<div> </div>
mtcars %>% group_by(cyl) %>% <br />  mutate(mpg.m = mean(mpg),<br />  wt.m = mean(wt)) %>% <br />  ggplot(aes(x=mpg, y=wt, color=as.factor( cyl ))) +<br />  geom_point(size=1) +<br />  geom_vline(aes(xintercept = mpg.m), col="black", linetype=2) +<br />  geom_hline(aes(yintercept = wt.m), col="red", linetype=2) +<br />  facet_grid( cyl ~ gear) +<br />  theme(legend.position="none")
<div> </div>
<div>ou geral</div>
<div> </div>
<div>mtcars %>% </div>
<div>  mutate(mpg.m = mean(mpg),<br />  wt.m = mean(wt)) %>% <br />  ggplot(aes(x=mpg, y=wt, color=as.factor( cyl ))) +<br />  geom_point(size=1) +<br />  geom_vline(aes(xintercept = mpg.m), col="black", linetype=2) +<br />  geom_hline(aes(yintercept = wt.m), col="red", linetype=2) +<br />  facet_grid( cyl ~ gear) +<br />  theme(legend.position="none")<br />
<div>
<div class="gmail_signature" dir="ltr" data-smartmail="gmail_signature">
<div dir="ltr">
<div dir="ltr">
<div dir="ltr">
<div dir="ltr">
<div dir="ltr">
<div dir="ltr">
<div dir="ltr">
<div dir="ltr">
<p class="MsoNormal"> </p>
<p class="MsoNormal"><strong><span style="font-family: Verdana,sans-serif; color: #666666;"> </span></strong></p>
<p class="MsoNormal"><strong><span style="font-family: Verdana,sans-serif; color: #666666;"> </span></strong></p>
<p class="MsoNormal"><strong><span style="font-family: Verdana,sans-serif; color: #666666;">Cid Edson Mendonça Póvoas<br /> </span></strong><strong><span style="font-size: 10pt; font-family: Verdana,sans-serif; color: #666666;">Cel: +55 (73) 99151-9565</span></strong></p>
<p class="MsoNormal"><strong><span style="font-size: 10pt; font-family: Verdana,sans-serif; color: #666666;">Engenheiro </span></strong><span style="color: #666666; font-family: Verdana, sans-serif;"><span style="font-size: 13.3333px;"><strong>Agrônomo</strong></span></span></p>
<p class="MsoNormal"><span style="color: #666666; font-family: Verdana, sans-serif;"><span style="font-size: 13.3333px;"><strong>Analista de dados </strong></span></span></p>
<p class="MsoNormal"><strong><span style="font-size: 10pt; font-family: Verdana,sans-serif; color: #666666;">Técnico em Segurança do Trabalho </span></strong></p>
<p class="MsoNormal"><strong><span style="font-size: 10pt; font-family: Verdana,sans-serif; color: #666666;">LinkedIn: </span></strong><strong><span style="font-size: 10pt; font-family: Verdana,sans-serif; color: #00b0f0;"><a href="http://br.linkedin.com/in/cidedson/" target="_blank"><span style="color: #00b0f0;">http://br.linkedin.com/in/cidedson/</span></a></span></strong></p>
<p class="MsoNormal"><strong><span style="font-size: 10pt; font-family: Verdana,sans-serif; color: #666666;">Lattes: </span></strong><strong><span style="font-size: 10pt; font-family: Verdana,sans-serif; color: #00b0f0;"><a href="http://lattes.cnpq.br/2303498368142537" target="_blank"><span style="color: #00b0f0;">http://lattes.cnpq.br/2303498368142537</span></a></span></strong></p>
<p class="MsoNormal"> </p>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<div> </div>
<div class="gmail_quote">
<div class="gmail_attr" dir="ltr">Em qua., 11 de nov. de 2020 às 14:46, Marcelo Laia por (R-br) <<a href="../../../undefined//compose?to=r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:</div>
<blockquote class="gmail_quote" style="margin: 0px 0px 0px 0.8ex; border-left: 1px solid #cccccc; padding-left: 1ex;">Colegas,<br /> <br /> Estou usando a rotina abaixo para produzir gráficos de Altura ~ DAP em<br /> um fatorial com Clones em diferentes Espaçamentos.<br /> <br /> O código ficou assim:<br /> <br /> ggplot( dat , aes(x=DAP, y=Altura, color=as.factor(Espacamento) )) + <br />     geom_point(size=1) +<br />     facet_grid(Espacamento ~ Clone) +<br />     theme(legend.position="none")<br /> <br /> Como eu faço para traçar a média do DAP (y) e da Altura (x) em cada<br /> grid?<br /> <br /> É possível simular o código acima com os pacotes e código abaixo:<br /> <br /> library(ggplot2)<br /> head(mtcars)<br /> <br /> ggplot( mtcars , aes(x=mpg, y=wt, color=as.factor( cyl ))) + <br />   geom_point(size=1) +<br />   facet_grid( cyl ~ gear) +<br />   theme(legend.position="none")<br /> <br /> Obrigado<br /> <br /> -- <br /> Marcelo<br /> _______________________________________________<br /> R-br mailing list<br /> <a href="../../../undefined//compose?to=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.</blockquote>
</div>
<div>_______________________________________________<br />R-br mailing list<br />R-br@listas.c3sl.ufpr.br<br /><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" 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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br /><br /></div>