19751
---
title: "Tableau d'analyse des moulins"
output:
flexdashboard::flex_dashboard:
theme: bootstrap
source_code: embed
---
```{r}
knitr::opts_chunk$set(echo = F)
knitr::opts_chunk$set(warning = F)
knitr::opts_chunk$set(message = F)
```
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(DT)
library(crosstalk)
library(leaflet)
library(GADMTools)
library(hrbrthemes)
library(fontawesome)
```
Page 1
================================
Column {data-width="150"}
--------------------------------
### Recherche sur les moulins
```{r}
data <- read.csv("enquetes-sur-les-moulins-de-1794-1809.csv", sep = ";", encoding = "UTF-8") %>%
filter(Pays == "France") %>%
rename(Commune = Commune.actuelle,
Departement = Département.actuel,
Date = Date.de.l.enquête,
Type = Type.de.moulin,
Nombre = Nombre.de.moulins,
Nom = Nom.du.moulin,
Description = Description.initiale,
url = URL.de.la.notice,
Cote = Cote.du.dossier) %>%
select(Commune, Departement, Date, Type, Nombre, Nom, Description, url, Cote, Lat, Long)
st <- SharedData$new(data)
```
```{r filter_section}
filter_select(
id = "dep",
label = "Département",
sharedData = st,
group = ~Departement
)
filter_checkbox(
id ="type",
label = "Type de moulin",
sharedData = st,
group = ~Type
)
```
Column {data-width="800"}
--------------------------------
### Table des moulins
```{r filterable_table}
datatable(st)
```
### Carte des moulins
```{r interactive_map}
pal <- colorFactor(c("navy", "thistle3", "firebrick1", "lightskyblue4", "turquoise3", "seagreen"), domain = data$Type)
st %>%
leaflet() %>%
addProviderTiles("CartoDB.Positron") %>%
addCircles(
popup = ~paste0("", "Commune : ", data$Commune,"", "
",
"Date de l'enquête : ", data$Date,"
",
"Nombre de moulins : ", data$Nombre),
radius = data$Nombre * 100,
color = ~pal(Type),
stroke = FALSE, fillOpacity = 0.5
) %>%
addLegend("bottomright", pal = pal, values = data$Type,
title = "Type de moulins",
opacity = 1
)
```
Page 2
==========================
Row
-------------------------------------
```{r, echo=FALSE, warning=FALSE, include=FALSE}
typmoul <- data %>%
count(Type, Date) %>%
filter(Type == "moulin à eau" | Type == "moulin à vent")
```
```{r, echo=FALSE, warning=FALSE}
ggplot(typmoul,aes(fill = Type, x=factor(Date, levels = c("an II", "an X", "1809")), y = n)) +
geom_bar(position = "stack", stat = "identity") +
geom_text(aes(label = n), position = position_stack(vjust = 0.5), size = 2.5) +
scale_fill_manual(values = c("thistle3", "turquoise3")) +
labs(
x = "Année de l'enquête",
y = "Nombre de moulins",
title = "Nombre de moulins par année et par type",
fill = "Légende"
) +
theme_ipsum()
```
Row {.tabset .tabset-fade}
-------------------------------------
### Communes an II
```{r}
maxmoulII <- data %>%
filter(Date == "an II") %>%
arrange(desc(Nombre), Commune) %>%
head(10)%>%
select(Commune, Departement, Nombre)
datatable(maxmoulII)
```
### Communes an X
```{r}
maxmoulX <- data %>%
filter(Date == "an X") %>%
arrange(desc(Nombre), Commune) %>%
head(10) %>%
select(Commune, Departement, Nombre)
datatable(maxmoulX)
```
### Communes 1809
```{r}
maxmoul1809 <- data %>%
filter(Date == "1809") %>%
arrange(desc(Nombre), Commune) %>%
head(10) %>%
select(Commune, Departement, Nombre)
datatable(maxmoul1809)
```
Page 3
==========================
Row
-------------------------------------
### Nombre de moulins dans les 3 enquêtes
```{r}
nbr <- data %>%
summarise(n())
valueBox(nbr, icon = "fa-magnifying-glass")
```
### **Carte des moulins recensés en l'An II**
```{r, echo=FALSE, warning=FALSE, include=FALSE}
anII <- data %>%
filter(Date == "an II" & Departement != "") %>%
count(Departement)
```
```{r, echo=FALSE, warning=FALSE, include=FALSE}
france <- gadm_sf_loadCountries("FRA", level=2)
```
```{r, echo=FALSE, warning=FALSE, message=FALSE}
choropleth(france,
data = anII,
value = "n",
breaks = c(0,25,50,75,100,125,150,175,200,Inf),
adm.join = "Departement",
labels = c("de 0 à 25", "de 26 à 50", "de 51 à 75", "de 76 à 100", "de 101 à 125", "de 126 à 150", "de 151 à 175", "de 176 à 200", "Supérieur à 200"),
palette = "BuPu",
legend="Nombre de moulins",
title="Carte du nombre de moulins par département en l'An II")
```
Row
-------------------------------------
### **Carte des moulins recensés en l'an X**
```{r, echo=FALSE, warning=FALSE, include=FALSE}
anX <- data %>%
filter(Date == "an X" & Departement != "") %>%
count(Departement)
```
```{r, echo=FALSE, warning=FALSE, include=FALSE}
france <- gadm_sf_loadCountries("FRA", level=2)
```
```{r, echo=FALSE, warning=FALSE, message=FALSE}
choropleth(france,
data = anX,
value = "n",
breaks = c(0,100,200,300,400,500,600,700,Inf),
adm.join = "Departement",
labels = c("de 0 à 100", "de 101 à 200", "de 201 à 300", "de 301 à 400", "de 401 à 500", "de 501 à 600", "de 601 à 700", "Supérieur à 700"),
palette = "BuPu",
legend="Nombre de moulins",
title="Carte du nombre de moulins par département en l'An X")
```
### **Carte des moulins recensés en 1809**
```{r, echo=FALSE, warning=FALSE, include=FALSE}
huitsansneuf <- data %>%
filter(Date == "1809" & Departement != "") %>%
count(Departement)
```
```{r, echo=FALSE, warning=FALSE, include=FALSE}
france <- gadm_sf_loadCountries("FRA", level=2)
```
```{r, echo=FALSE, warning=FALSE, message=FALSE}
choropleth(france,
data = huitsansneuf,
value = "n",
breaks = c(0,100,200,300,400,500,600,700,800,Inf),
adm.join = "Departement",
labels = c("de 0 à 100", "de 101 à 200", "de 201 à 300", "de 301 à 400", "de 401 à 500", "de 501 à 600", "de 601 à 700", "de 701 à 800", "Supérieur à 800"),
palette = "BuPu",
legend="Nombre de moulins",
title="Carte du nombre de moulins par département en 1809")
```