Add new file

rstudio 2

+---
+title: "Analyse de l'incidence de la Covid-19 en France"
+author: "Nadine Njeim"
+output:
+  pdf_document:
+    toc: true
+  html_document:
+    toc: true
+    theme: journal
+documentclass: article
+classoption: a4paper
+header-includes:
+- \usepackage[french]{babel}
+- \usepackage[upright]{fourier}
+- \hypersetup{colorlinks=true,pagebackref=true}
+---
+knitr::opts_chunk$set(echo = TRUE)
+data_url = "https://www.data.gouv.fr/fr/datasets/r/0e4d6fcf-25a6-4b77-a1a1-6dc43e9778b3"
+data_file = "covid19_fr.csv"
+if (!file.exists(data_file)) {
+  download.file(data_url, data_file)
+}
+data = read.csv(data_file, sep = ";")
+head(data)
+data_url = "https://www.data.gouv.fr/fr/datasets/r/0e4d6fcf-25a6-4b77-a1a1-6dc43e9778b3"
+data_file = "covid19_fr.csv"
+if (!file.exists(data_file)) {
+  download.file(data_url, data_file)
+}
+data = read.csv(data_file, sep = ";")
+head(data)
+
+---
+title: "Analyse de l'évolution du chômage en France"
+author: "Nadine Njeim"
+output:
+  pdf_document:
+    toc: true
+  html_document:
+    toc: true
+    theme: journal
+documentclass: article
+classoption: a4paper
+header-includes:
+- \usepackage[french]{babel}
+- \usepackage[upright]{fourier}
+- \hypersetup{colorlinks=true,pagebackref=true}
+---
+library(readr)
+data_url = "https://www.insee.fr/fr/statistiques/fichier/series_longues/sl_trchom.csv"
+data_file = "chomage.csv"
+if (!file.exists(data_file)) {
+  download.file(data_url, data_file)
+}
+data = read_csv2(data_file, skip = 5)
+head(data)
+---
+title: "Évolution des températures mensuelles à Paris"
+author: "Nadine Njeim"
+output:
+  pdf_document:
+    toc: true
+  html_document:
+    toc: true
+    theme: journal
+documentclass: article
+classoption: a4paper
+header-includes:
+- \usepackage[french]{babel}
+- \usepackage[upright]{fourier}
+- \hypersetup{colorlinks=true,pagebackref=true}
+---
+library(lubridate)
+library(ggplot2)
+
+data_url = "https://data.meteofrance.com/donnees-libres/BulletinsMensuels/Paris.csv"
+data_file = "paris_temp.csv"
+if (!file.exists(data_file)) {
+  download.file(data_url, data_file)
+}
+data = read.csv(data_file)
+data$Date = as.Date(paste0(data$Annee, "-", data$Mois, "-01"))
+ggplot(data, aes(x = Date, y = TemperatureMoyenne)) +
+  geom_line() + labs(title = "Température moyenne mensuelle à Paris")