[R-br] Traçar linha representando a média em gráfico ggplot2

[Cid Póvoas]

agrupado por cyl

mtcars %>% group_by(cyl) %>%
  mutate(mpg.m = mean(mpg),
  wt.m = mean(wt)) %>%
  ggplot(aes(x=mpg, y=wt, color=as.factor( cyl ))) +
  geom_point(size=1) +
  geom_vline(aes(xintercept = mpg.m), col="black", linetype=2) +
  geom_hline(aes(yintercept = wt.m), col="red", linetype=2) +
  facet_grid( cyl ~ gear) +
  theme(legend.position="none")

ou geral

mtcars %>%
  mutate(mpg.m = mean(mpg),
  wt.m = mean(wt)) %>%
  ggplot(aes(x=mpg, y=wt, color=as.factor( cyl ))) +
  geom_point(size=1) +
  geom_vline(aes(xintercept = mpg.m), col="black", linetype=2) +
  geom_hline(aes(yintercept = wt.m), col="red", linetype=2) +
  facet_grid( cyl ~ gear) +
  theme(legend.position="none")





*Cid Edson Mendonça Póvoas **Cel: +55 (73) 99151-9565*

*Engenheiro **Agrônomo*

*Analista de dados *

*Técnico em Segurança do Trabalho *

*LinkedIn: **http://br.linkedin.com/in/cidedson/
<http://br.linkedin.com/in/cidedson/>*

*Lattes: **http://lattes.cnpq.br/2303498368142537
<http://lattes.cnpq.br/2303498368142537>*




Em qua., 11 de nov. de 2020 às 14:46, Marcelo Laia por (R-br) <
r-br em listas.c3sl.ufpr.br> escreveu:

> Colegas,
>
> Estou usando a rotina abaixo para produzir gráficos de Altura ~ DAP em
> um fatorial com Clones em diferentes Espaçamentos.
>
> O código ficou assim:
>
> ggplot( dat , aes(x=DAP, y=Altura, color=as.factor(Espacamento) )) +
>     geom_point(size=1) +
>     facet_grid(Espacamento ~ Clone) +
>     theme(legend.position="none")
>
> Como eu faço para traçar a média do DAP (y) e da Altura (x) em cada
> grid?
>
> É possível simular o código acima com os pacotes e código abaixo:
>
> library(ggplot2)
> head(mtcars)
>
> ggplot( mtcars , aes(x=mpg, y=wt, color=as.factor( cyl ))) +
>   geom_point(size=1) +
>   facet_grid( cyl ~ gear) +
>   theme(legend.position="none")
>
> Obrigado
>
> --
> Marcelo
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20201111/9b2527b0/attachment.html>