Hola, Además de la alternativa de Emilio, como estás buscando incluir una fórmula y el valor de ajuste sobre el gráfico, quizás te interese usar las funcionalidades de este paquete:
- *ggpmisc*: https://cran.r-project.org/web/packages/ggpmisc/vignettes/user-guide.html - Y en particular la función *stat_poly_eq()*. - Puedes ver ejemplos prácticos de esta función sobre a mitad de la viñeta. - Y que por cierto, permite además ajuste y representación del tipo *nls()* sobre tus datos . Saludos, Carlos Ortega www.qualityexcellence.es El dom., 4 oct. 2020 a las 16:07, Jimmy Erney Reyes Velasco (< jimmyreyesvela...@gmail.com>) escribió: > Hola buenos días > hice un gráfico combinado de líneas, puntos y barras en ggplot2, pero no sé > cómo puedo poner la leyenda de eso gráfico para que me represente para las > líneas con puntos los valores estimados por un modelo y observados. > este es mi código: > ggplot(MLM,aes(x=Individuo)) + geom_bar(aes(y=Observada), stat = > "identity", color= "gray") + > geom_line(aes(y=Estimada), stat = "identity", color="blue", size=1.5) + > geom_point(aes(y=Estimada), shape=21, fill="blue", color="white")+ > labs(y = expression(paste("Biomasa ", (g/cm^{2}))))+ > ggtitle("Espeletia standleyana")+ theme_minimal()+ > annotate(geom = 'text', > x = 0, > y = 750, > hjust = 0, > label = "Biomasa=220,774(IAF)+39,759(Aprom)-163,883")+ > annotate(geom = 'text', > x = 0, > y = 700, > hjust = 0, > label = "R² = 0,982 P=3,8187E-17") > > ¿Alguien sabe cómo hacerlo? Agradezco mucho cualquier información. > que tengan buen día > > < > https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail > > > Libre > de virus. www.avast.com > < > https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail > > > <#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2> > > [[alternative HTML version deleted]] > > _______________________________________________ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > -- Saludos, Carlos Ortega www.qualityexcellence.es [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es