новании примера здесьДобавление уравнения линии регрессии и R2 на графикеЯ пытаюсь включить уравнение линии регрессии для моей модели в каждом аспекте. Тем не менее, я не понимаю, почему меняется границы моей оси 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

Если я включу на х пределы,

scale_x_continuous(limits = c(1979,2010)) 

он больше не показывает коэффициент регрессии. Что я здесь не так делаю?

stat_smooth_func доступно здесь: https://gist.github.com/kdauria/524eade46135f6348140