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

[Cid Póvoas]

tidyverse


*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 21:11, Mauro Sznelwar por (R-br) <
r-br em listas.c3sl.ufpr.br> escreveu:

> Eu tentei rodar e não consegui. Não reconhece %>%, tem um bibliotéca para
> isto?
>
>
> 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
> <http://../../../undefined//compose?to=r-br@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
>> <http://../../../undefined//compose?to=R-br@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.
>
> _______________________________________________
> 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.
>
> _______________________________________________
> 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/52d0e3a8/attachment.html>