From a3e636044a90ddd71d1b965d51b1dd5e9bca466e Mon Sep 17 00:00:00 2001 From: Arthur DANJOU Date: Thu, 13 Nov 2025 17:22:11 +0100 Subject: [PATCH] Add flexdashboard library to R Markdown for enhanced data visualization --- .gitignore | 3 +- M2/Data Visualisation/.gitignore | 0 M2/Data Visualisation/tp2/dashboard.Rmd | 40 ++ M2/Data Visualisation/tp2/dashboard.html | 563 +++++++++++++++++++++++ M2/Data Visualisation/tp2/tp2.Rmd | 4 + 5 files changed, 609 insertions(+), 1 deletion(-) delete mode 100644 M2/Data Visualisation/.gitignore create mode 100644 M2/Data Visualisation/tp2/dashboard.Rmd create mode 100644 M2/Data Visualisation/tp2/dashboard.html diff --git a/.gitignore b/.gitignore index f7d9028..f10da22 100644 --- a/.gitignore +++ b/.gitignore @@ -17,4 +17,5 @@ catboost_info tp1_files tp2_files -tp3_files \ No newline at end of file +tp3_files +dashboard_files \ No newline at end of file diff --git a/M2/Data Visualisation/.gitignore b/M2/Data Visualisation/.gitignore deleted file mode 100644 index e69de29..0000000 diff --git a/M2/Data Visualisation/tp2/dashboard.Rmd b/M2/Data Visualisation/tp2/dashboard.Rmd new file mode 100644 index 0000000..bcec1f5 --- /dev/null +++ b/M2/Data Visualisation/tp2/dashboard.Rmd @@ -0,0 +1,40 @@ +--- +title: "Dashboard des accidents de vélo" +output: + flexdashboard::flex_dashboard: + orientation: columns + vertical_layout: fill +--- + +```{r setup, include = FALSE} +library(flexdashboard) +library(ggplot2) +library(gapminder) +library(rmarkdown) +``` + +## column {data-width="650"} + +### Graphique 1 + +```{r} +paged_table(gapminder, options = list(rows.print = 15)) +``` + +## column {data-width="350"} + +### Graphique 2 + +```{r} +ggplot(data = gapminder, aes(x = lifeExp)) + + geom_histogram(aes(y = ..density..), bins = 30) + + geom_density() +``` + +### Graphique 3 + +```{r} +ggplot(data = gapminder, aes(x = lifeExp)) + + geom_histogram(aes(y = ..density..), bins = 30) + + geom_density() +``` \ No newline at end of file diff --git a/M2/Data Visualisation/tp2/dashboard.html b/M2/Data Visualisation/tp2/dashboard.html new file mode 100644 index 0000000..478a8fc --- /dev/null +++ b/M2/Data Visualisation/tp2/dashboard.html @@ -0,0 +1,563 @@ + + + + + + + + + +Dashboard des accidents de vélo + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+
+

Dashboard des accidents de vélo

+
+ + + +
+ + + + +
+ + + +
+ + +
+

column

+
+

Graphique 1

+
+
paged_table(gapminder, options = list(rows.print = 15))
+
+
+ +
+
+
+
+
+
+

column

+
+

Graphique 2

+
+
ggplot(data = gapminder, aes(x = lifeExp)) +
+  geom_histogram(aes(y = ..density..), bins = 30) +
+  geom_density()
+
+
Warning: The dot-dot notation (`..density..`) was deprecated in ggplot2 3.4.0.
+ℹ Please use `after_stat(density)` instead.
+
+
+
+
+

+
+
+
+
+
+
+

Graphique 3

+
+
ggplot(data = gapminder, aes(x = lifeExp)) +
+  geom_histogram(aes(y = ..density..), bins = 30) +
+  geom_density()
+
+
+
+

+
+
+
+
+
+
+ +
+ + +
+ + + + + \ No newline at end of file diff --git a/M2/Data Visualisation/tp2/tp2.Rmd b/M2/Data Visualisation/tp2/tp2.Rmd index f547e38..877cd7d 100644 --- a/M2/Data Visualisation/tp2/tp2.Rmd +++ b/M2/Data Visualisation/tp2/tp2.Rmd @@ -467,6 +467,10 @@ g_map_acc périodiques. ::: +```{r} +library(flexdashboard) +``` + # Informations de session {.unnumbered} ```{r}