diff --git a/module2/exo4/exercice_fr.Rmd b/module2/exo4/exercice_fr.Rmd index 8dbdc2a8bb5d27ec23b0dc3abc2a289f9caa5853..25d226c2289f9b709b778c8d317ca14b6771595f 100644 --- a/module2/exo4/exercice_fr.Rmd +++ b/module2/exo4/exercice_fr.Rmd @@ -42,14 +42,13 @@ rr_grouped <- rr_20eme %>% head(rr_grouped) ``` -Très bien, essayons maintenant de voir s'il pourrait exister un lien de corrélation entre l'altitude d'un site et la pluviométrie qu'il a reçu. +Très bien, essayons maintenant de voir s'il pourrait exister un lien entre l'altitude d'un site et la pluviométrie qu'il a reçu. ```{r corr, warning=F, prompt=F} library(tidyverse) ggplot(rr_grouped) + aes(x = ALTI, y = RR_YCUM, color = ANNEE) + geom_point(alpha = .45) + - geom_smooth(method = "lm") + scale_color_gradient(low="blue", high="red") labs(x = "Altitude", y = "Pluviométrie annuelle cumulée") ``` -Bon, il va falloir que je retravaille ça... En plus la répartition temporelle est très hétérogène. \ No newline at end of file +Bon, la répartition temporelle est très hétérogène, mais il semblerait qu'il y ait quelque chose à creuser. Je verrai ça demain... ;) \ No newline at end of file