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