<div dir="ltr"><div>agrupado por cyl</div><div><br></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><br></div><div>ou geral</div><div><br></div><div>mtcars %>% <br></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 dir="ltr" class="gmail_signature" 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"><br></p><p class="MsoNormal"><b><span style="font-family:Verdana,sans-serif;color:rgb(102,102,102)"><br></span></b></p><p class="MsoNormal"><b><span style="font-family:Verdana,sans-serif;color:rgb(102,102,102)"><br></span></b></p><p class="MsoNormal"><b><span style="font-family:Verdana,sans-serif;color:rgb(102,102,102)">Cid Edson Mendonça Póvoas<br>
</span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Cel: +55 (73) 99151-9565</span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Engenheiro </span></b><font color="#666666" face="Verdana, sans-serif"><span style="font-size:13.3333px"><b><span></span>Agrônomo</b></span></font></p><p class="MsoNormal"><font color="#666666" face="Verdana, sans-serif"><span style="font-size:13.3333px"><b>Analista de dados </b></span></font></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Técnico em Segurança do Trabalho </span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">LinkedIn: </span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(0,176,240)"><a href="http://br.linkedin.com/in/cidedson/" target="_blank"><span style="color:rgb(0,176,240)">http://br.linkedin.com/in/cidedson/</span></a></span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Lattes: </span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(0,176,240)"><a href="http://lattes.cnpq.br/2303498368142537" target="_blank"><span style="color:rgb(0,176,240)">http://lattes.cnpq.br/2303498368142537</span></a></span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif"><span></span></span></b></p>
<p class="MsoNormal"><br></p></div></div></div></div></div></div></div></div></div></div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em qua., 11 de nov. de 2020 às 14:46, Marcelo Laia 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">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="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>