Depuis le 23 mars 2020, Santé publique France a lancé avec la société d’étude et de conseil BVA, l’enquête CoviPrev.
Celle-ci a pour objectif de suivre l’évolution des comportements et de la santé mentale ainsi que leurs principaux déterminants face à l’épidémie de Covid-19 et depuis les mesures gouvernementales de confinement du 16 mars 2020.
Pour tous les indicateurs, un intervalle de confiance à 95% est indiqué. Questionnaires auto-administrés Echantillons de 2 000 personnes de 18 ans et plus résidant en France
covi = read.csv2("/Users/riyazpatel/Desktop/coviprev-age.csv")
knitr::kable(head(covi))
| age | semaine | anxiete | anxiete_inf | anxiete_sup | depression | depression_inf | depression_sup | pbsommeil | pbsommeil_inf | pbsommeil_sup | hyg4mes | hyg4mes_inf | hyg4mes_sup | dist3mes | dist3mes_inf | dist3mes_sup | nbmoy7mes | nbmoy7mes_inf | nbmoy7mes_sup | nbmoy4mesHyg | nbmoy4mesHyg_inf | nbmoy4mesHyg_sup | dist1m | dist1m_inf | dist1m_sup | portmasque | portmasque_inf | portmasque_sup | X | X.1 | X.2 |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 18-24 ans | Vague 1 : 23-25 mars | 33.1 | 26.8 | 40.0 | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA |
| 25-34 ans | Vague 1 : 23-25 mars | 37.5 | 32.2 | 43.1 | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA |
| 35-49 ans | Vague 1 : 23-25 mars | 32.0 | 28.1 | 36.2 | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA |
| 50-64 ans | Vague 1 : 23-25 mars | 21.4 | 18.0 | 25.2 | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA |
| 65 ans et plus | Vague 1 : 23-25 mars | 17.0 | 13.9 | 20.7 | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA |
| 18-24 ans | Vague 2 : 30 mars-1 avr | 22.5 | 16.8 | 29.5 | 16.5 | 11.7 | 22.9 | 68.5 | 61.1 | 75 | 38 | 31 | 45.6 | 55.9 | 48.4 | 63.2 | 5.13 | 4.84 | 5.42 | 2.8 | 2.62 | 2.99 | NA | NA | NA | 13.7 | 9.3 | 19.9 | NA | NA | NA |
- 80 lignes
- 30 colonnes
- 12 ko
| Variables | Description |
|---|---|
| age | age |
| semaine | Salaire net horaire moyen en 2019 |
| anxiete | prévalences de l’anxiété |
| anxiete_inf | prévalences de l’anxiété moyenne inf. |
| anxiete_sup | prévalences de l’anxiété moyenne sup. |
| depression | prévalences de la dépression |
| pbsommeil | prévalence des problèmes de sommeil |
| hyg4mes | prévalence de l’adoption systématique des 4 mesures d’hygiène |
| dist3mes | prévalences de l’adoption systématique des 3 mesures de distanciation physique |
| nbmoy7mes | nombre moyen de mesures de prévention adoptées systématiquement |
| nbmoy4mesHyg | nombre moyen de mesures d’hygiène adoptées systématiquement |
| dist1m | prévalence de l’adoption systématique de la distance d’un mètre |
| portmasque | prévalences de l’adoption systématique du port du masque en public |
- suivre l’adoption des mesures de protection et de la santé de la population pendant la période de confinement et de déconfinement
- recueillir les informations nécessaires à l’orientation et à l’ajustement des mesures de prévention
- surveiller les inégalités de santé (identifier les segments de population les plus vulnérables)
https://www.santepubliquefrance.fr/etudes-et-enquetes/coviprev-une-enquete-pour-suivre-l-evolution-des-comportements-et-de-la-sante-mentale-pendant-l-epidemie-de-covid-19#block-242829 https://www.data.gouv.fr/fr/datasets/donnees-denquete-relatives-a-levolution-des-comportements-et-de-la-sante-mentale-pendant-lepidemie-de-covid-19-coviprev/
#data management
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(tidyr)
library(ggplot2)
covi_clean = covi %>%
separate(col = "semaine",
into = paste0("Vague", 1:2), sep = ":",
extra = "merge")
## Warning: Expected 2 pieces. Missing pieces filled with `NA` in 8 rows [81, 82,
## 83, 84, 85, 86, 87, 88].
covi_clean2 = covi_clean %>%
separate(col = "Vague1",
into = paste0("Date", 1:2), sep = " ",
extra = "merge")
## Warning: Expected 2 pieces. Missing pieces filled with `NA` in 8 rows [81, 82,
## 83, 84, 85, 86, 87, 88].
covi_clean2 = covi_clean2 [,-2]
colnames(covi_clean2)[2] <- 'date'
covi_clean2$date = as.numeric(covi_clean2$date)
#*4
covi_clean2 <- covi_clean2[-81,]
covi_clean2 <- covi_clean2[-81,]
covi_clean2 <- covi_clean2[-81,]
covi_clean2 <- covi_clean2[-81,]
covi_clean2 <- covi_clean2[-81,]
covi_clean2 <- covi_clean2[-81,]
covi_clean2 <- covi_clean2[-81,]
covi_clean2 <- covi_clean2[-81,]
ggplot(covi_clean2, aes(x = date, y= anxiete, color = age)) +
geom_line()+
geom_rect(aes(xmin = 0, xmax = 14, ymin = -Inf, ymax = Inf),
fill = "blue", alpha = 0.005) +
geom_rect(aes(xmin = 14, xmax = 16, ymin = -Inf, ymax = Inf),
fill = "pink", alpha = 0.008)+
labs(title = "Evolution de l'anxiété selon l'âge",
subtitle = "Premiere vague : 23 Mars - 26 Aout
Deuxième vague : à partir du 21 Septembre")
ggplot(covi_clean2, aes(x = date, y= portmasque, color = age)) +
geom_line()+
geom_rect(aes(xmin = 0, xmax = 14, ymin = -Inf, ymax = Inf),
fill = "blue", alpha = 0.005) +
geom_rect(aes(xmin = 14, xmax = 16, ymin = -Inf, ymax = Inf),
fill = "pink", alpha = 0.008)+
labs(title = "Evolution de l'adoption du port du masque en public selon l'âge",
subtitle = "Premiere vague : 23 Mars - 26 Aout
Deuxième vague : à partir du 21 Septembre")
## Warning: Removed 5 row(s) containing missing values (geom_path).
ggplot(covi_clean2, aes(x = date, y= depression, color = age)) +
geom_line()+
geom_rect(aes(xmin = 0, xmax = 14, ymin = -Inf, ymax = Inf),
fill = "blue", alpha = 0.005) +
geom_rect(aes(xmin = 14, xmax = 16, ymin = -Inf, ymax = Inf),
fill = "pink", alpha = 0.008)+
labs(title = "Evolution de la drepression selon l'âge",
subtitle = "Premiere vague : 23 Mars - 26 Aout
Deuxième vague : à partir du 21 Septembre")
## Warning: Removed 5 row(s) containing missing values (geom_path).
