index

index.Rmd

@@ -122,7 +122,7 @@ plot_ly(parcelles, x = ~shift) %>% add_histogram(marker = list(line = list(color
 ### **Distribution des quartiles**
 
 ```{r}
-g <- ggplot(data = parcelles, aes(y=shift, x=shftQrt)) + 
+g <- ggplot(data = parcelles, aes(y=shift, x=shift2)) + 
   geom_violin(fill = "grey40", colour=NA) + 
   labs(y = "Variation altitudinale", x="Quartiles")
 ggplotly(g)