Com base no exemplo aquiAdição da equação da linha de regressão e R2 no gráfico, Estou tentando incluir a equação da linha de regressão para o meu modelo em cada faceta. No entanto, não entendo por que estou alterando os limites do meu eixo

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

Se eu incluir no x os limites,

scale_x_continuous(limits = c(1979,2010)) 

it não mostra mais o coeficiente de regressão. O que eu estou fazendo errado aqui

stat_smooth_func disponível aqui: https: //gist.github.com/kdauria/524eade46135f634814