graph.ligne <- graph.base + 
    geom_smooth(method="lm", se = FALSE)
graph.ligne