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@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@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@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@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@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@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.