Implement code changes to enhance functionality and improve performance

M2/Data Visualisation/init.R

@@ -0,0 +1,25 @@
+# Liste des packages à installer
+packages_to_install <- c(
+    "lattice", "grid", "ggplot2", "gridExtra", "locfit", "scales",
+    "formattable", "RColorBrewer", "plotly", "dplyr", "tidyr",
+    "rmarkdown", "ggthemes", "cowplot", "kableExtra", "ggridges",
+    "colorspace", "sf", "mapview", "tidyverse", "readxl", "readr",
+    "giscoR", "gapminder", "GGally", "ggfortify", "lubridate", "zoo",
+    "xts", "forecast", "feasts", "tseries", "tsibble", "fable"
+)
+
+# Fonction pour installer les packages manquants
+install_if_absent <- function(package_name) {
+    if (!requireNamespace(package_name, quietly = TRUE)) {
+        install.packages(package_name)
+        message(paste("Package", package_name, "installé avec succès."))
+    } else {
+        message(paste("Package", package_name, "déjà installé, installation ignorée."))
+    }
+}
+
+# Appliquer la fonction à la liste de packages
+lapply(packages_to_install, install_if_absent)
+
+# Note : Une fois les packages installés, n'oubliez pas de les charger dans votre session R
+# avec la commande library(). Par exemple, library(tidyverse).