ggplot2: Problema con el eje x al agregar la ecuación de línea de regresión en cada faceta
Basado en el ejemplo aquíAdición de ecuación de línea de regresión y R2 en el gráfico, Estoy luchando por incluir la ecuación de línea de regresión para mi modelo en cada faceta. Sin embargo, no entiendo por qué está cambiando los límites de mi eje x.
library(ggplot2)
library(reshape2)
df <- data.frame(year = seq(1979,2010), M02 = runif(32,-4,6),
M06 = runif(32, -2.4, 5.1), M07 = runif(32, -2, 7.1))
df <- melt(df, id = c("year"))
ggplot(data = df, mapping = aes(x = year, y = value)) +
geom_point() +
scale_x_continuous() +
stat_smooth_func(geom = 'text', method = 'lm', hjust = 0, parse = T) +
geom_smooth(method = 'lm', se = T) +
facet_wrap(~ variable) # as you can see, the scale_x_axis goes back to 1800
Si incluyo en la x los límites,
scale_x_continuous(limits = c(1979,2010))
it ya no muestra el coeficiente de regresión. ¿Qué estoy haciendo mal aquí
stat_smooth_func disponible aquí: https: //gist.github.com/kdauria/524eade46135f634814