[R-es] Leyenda gráfico combinado

[Emilio L. Cano]

Hola,

Tal vez tu problema esté en el rango del eje X. No puedo comprobarlo porque tu código no es reproducible, pero lo siguiente funciona:

ggplot(data.frame(x=101:200, y = rnorm(10, 100)), 
       aes(x, y)) + geom_bar(stat="identity") +  
  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")

Si x=individuo, entonces el annotate puede quedar fuera del rango (aunque debería ajustarse automáticamente como en el código que pego)

Con un ejemplo reproducible será más fácil ayudarte, bastará con una muestra de los datos (fácil con dput, mira aquí):
https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example <https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example>

Un saludo,
Emilio




> El 4 oct 2020, a las 16:07, Jimmy Erney Reyes Velasco <jimmyreyesvelasco using 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 using r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es


	[[alternative HTML version deleted]]