Commit a5aace8a authored by Thierry Feuillet's avatar Thierry Feuillet
Browse files

index

parent 74af3167
Pipeline #9427 passed with stage
in 12 seconds
......@@ -18,6 +18,7 @@ library(leaflet)
library(sf)
library(plotly)
library(tmap)
library(ggplot2)
```
# Le projet {data-orientation=rows}
......@@ -101,7 +102,14 @@ Chart {.tabset} {data-width=300}
plot_ly(parcelles, x = ~shift) %>% add_histogram(marker = list(line = list(color = "grey80",width = .5))) %>% layout(xaxis = list(title = "Changement d'altitude en m"))
```
### **Evolution des altitudes entre 1956 et 2015**
### **Distribution des quartiles**
```{r}
g <- ggplot(data = parcelles, aes(y=shift, x=shftQrt)) +
geom_violin(fill = "grey40", colour=NA) +
labs(y = "Variation altitudinale", x="Quartiles")
ggplotly(g)
```
Chart {.tabset} {data-width=300}
-----------------------------------------------------------------------
......@@ -112,7 +120,14 @@ Chart {.tabset} {data-width=300}
plot_ly(parcelles, x = ~DENS) %>% add_histogram(marker = list(line = list(color = "grey80",width = .5))) %>% layout(xaxis = list(title = "Changement de densité en %"))
```
### **Evolution des altitudes entre 1956 et 2015**
### **Relation variation altitude vs densité**
```{r}
ggplot(data = parcelles, aes(y=shift, x=DENS)) + geom_point(col="grey60", alpha = .9) +
geom_smooth(method = "loess", color = "red", se = TRUE) +
labs(y = "Variation d'altitudes", x="Variation de densité") +
theme_grey()
```
# L'équipe {data-icon="fa-users"}
......
This diff is collapsed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment