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.