mt_crea_elements_par_dep: Création d'un ensemble de tables et d'éléments visuels liés...

In arnaudmilet/medtRucks: Package de préparation et de valorisation des données brutes de mesure d'accès aux soins en France

Création d'un ensemble de tables et d'éléments visuels liés aux apl

Description

Création d'un ensemble de tables et d'éléments visuels liés aux apl

Usage

mt_crea_elements_par_dep(
  code_dep,
  zonage_cpts = NULL,
  Zonage_MG,
  Pop_proj_prepa_communes,
  Pop_proj,
  Pop_passe,
  commune_fr,
  epci_fr,
  dep_fr,
  Correspondance_communes_tvs,
  commune_chef_lieu_dep_cible,
  commune_fr_dep_cible_Ensemble_APL_calc,
  ExtractionMonoTable_CAT18_ToutePopulation_tampon_dep_cible_rens_damir,
  nb_actes_par_praticien,
  url_osrm = NULL
)

Arguments

code_dep	Code INSEE du département (France métropole)
zonage_cpts	Table contenant au moins 3 variables (communes: code INSEE des communes du CPTS, id: code du CPTS et lib: Nom du CPTS)
Zonage_MG	Table du Zonage conventionnel des médecins généralistes de l'ARS-DGOS contenant au moins 3 variables ("Code": Code INSEE des communes,"Libellé": Nom de la zone,"Zonage_MG": Classe de la zone parmi les 8 classes existantes)
Pop_proj_prepa_communes	Table générée par la fonction mt_creation_tables_projections_population
Pop_proj	Table générée par la fonction mt_creation_tables_projections_population
Pop_passe	Table générée par la fonction mt_creation_tables_projections_population
commune_fr	Table sf des limites communales en projection WGS84
epci_fr	Table sf des limites intercommunales en projection WGS84
dep_fr	Table sf des limites départementales en projection WGS84
Correspondance_communes_tvs	Table de correspondance commune-Territoire de vie et de santé ayant au moins 3 variables ("INSEE_COM": code INSEE des communes,"Code_TVS": code du territoire de vie et de santé et "Nom_TVS": nom du territoire de vie et de santé)
commune_chef_lieu_dep_cible	Emplacement de la mairie des communes en projection WGS84. sf généré par la fonction mt_calcul_apl
commune_fr_dep_cible_Ensemble_APL_calc	sf généré par la fonction mt_calcul_apl contenant en particulier la variable apl par spécialité
ExtractionMonoTable_CAT18_ToutePopulation_tampon_dep_cible_rens_damir	table générée par la fonction mt_calcul_apl
nb_actes_par_praticien	Table générée par la fonction mt_crea_nb_actes_par_praticien
url_osrm	Chaîne de caractères contenant l'url du moteur de recherche OSRM. Par défaut, il est NULL

Value

une liste contenant 8 éléments : dist_mat_commune_chef_lieu_dep_cible,Zonage_ars_communes,Zonage_ars,Ensemble_communes_zonage_geo_nest_dep_cible,Pop_proj_prepa_ensemble_zonage,Pop_passe_ensemble_zonage,Offre_Besoin,Patientele_potentielle_sous_seuil_dep

See Also

mt_creation_tables_projections_population, Pop_proj_prepa_communes, Pop_proj, Pop_passe, Zonage_MG,commune_fr,epci_fr,dep_fr,Correspondance_communes_tvs,commune_chef_lieu_dep_cible et mt_crea_nb_actes_par_praticien

Examples

## Not run: 
library(tidyverse)
library(sf)
Zonage_MG <- readRDS("data_init/ARS_DGOS/2021/Zonage_MG.rds")
Pop_proj_prepa_communes <- readRDS("data_init/INSEE/2018/Pop_proj_prepa_communes.rds")
Pop_proj <- readRDS("data_init/INSEE/2018/Pop_proj.rds")
Pop_passe <- readRDS("data_init/INSEE/2018/Pop_passe.rds")
commune_fr = readRDS("data_init/IGN/2022/commune_fr.rds")
epci_fr = readRDS("data_init/IGN/2022/epci_fr.rds")
dep_fr = readRDS("data_init/IGN/2022/dep_fr.rds")
Correspondance_communes_tvs <- readRDS("data_init/ARS_DGOS/2021/Correspondance_communes_tvs.rds")
zonage_cpts=NULL
seuil_APL <- c("generaliste" = 2.5, "speciliste" = 1)

emplacement_ensemble_data = "data_final/"
type_calcul = "departement"
url_osrm = "http://51.158.69.224:5999/"
nb_actes_par_praticien <- readRDS("data_init/AMELI/2020/nb_actes_par_praticien.rds")
walk(as.character(c(52,54,55)),function(code_dep){
  print(code_dep)

  chemin_data <- paste0(emplacement_ensemble_data,code_dep)

  commune_chef_lieu_dep_cible <- readRDS(paste0(chemin_data,"/","commune_chef_lieu_",code_dep,".rds"))
  commune_fr_dep_cible_Ensemble_APL_calc <- readRDS(paste0(chemin_data,"/","commune_fr_",code_dep,"_Ensemble_APL_calc.rds"))
  ExtractionMonoTable_CAT18_ToutePopulation_tampon_dep_cible_rens_damir <- readRDS(paste0(chemin_data,"/ExtractionMonoTable_CAT18_ToutePopulation_tampon_",code_dep,"_rens_damir.rds"))

  data_folder <- paste0(emplacement_ensemble_data,code_dep)

  valeur <- mt_crea_elements_par_dep(code_dep=code_dep,Zonage_MG=Zonage_MG,Pop_proj_prepa_communes=Pop_proj_prepa_communes,Pop_proj=Pop_proj,Pop_passe=Pop_passe,commune_fr=commune_fr,epci_fr=epci_fr,dep_fr=dep_fr,Correspondance_communes_tvs=Correspondance_communes_tvs,commune_chef_lieu_dep_cible=commune_chef_lieu_dep_cible,commune_fr_dep_cible_Ensemble_APL_calc=commune_fr_dep_cible_Ensemble_APL_calc,ExtractionMonoTable_CAT18_ToutePopulation_tampon_dep_cible_rens_damir=ExtractionMonoTable_CAT18_ToutePopulation_tampon_dep_cible_rens_damir,nb_actes_par_praticien=nb_actes_par_praticien,url_osrm=url_osrm)


  walk(names(valeur),function(x){
    nom_enregistrement <- bind_rows(
      c(Nom_objet="dist_mat_commune_chef_lieu_dep_cible",Nom_enregistre = paste0(data_folder,"/dist_mat_commune_chef_lieu_",code_dep,".rds")),
      c(Nom_objet="Zonage_ars_communes",Nom_enregistre = paste0(data_folder,"/Zonage_ars_communes_",code_dep,".rds")),
      c(Nom_objet="Zonage_ars",Nom_enregistre = paste0(data_folder,"/Zonage_ars_",code_dep,".rds")),
      c(Nom_objet="Ensemble_communes_zonage_geo_nest_dep_cible",Nom_enregistre = paste0(data_folder,"/Ensemble_communes_zonage_geo_nest_",code_dep,".rds")),
      c(Nom_objet="Pop_proj_prepa_ensemble_zonage",Nom_enregistre = paste0(data_folder,"/Pop_proj_prepa_ensemble_zonage.rds")),
      c(Nom_objet="Pop_passe_ensemble_zonage",Nom_enregistre =paste0(data_folder,"/Pop_passe_ensemble_zonage.rds")),
      c(Nom_objet="Offre_Besoin",Nom_enregistre = paste0(data_folder,"/Offre_Besoin.rds")),
      c(Nom_objet="Patientele_potentielle_sous_seuil_dep",Nom_enregistre =paste0(data_folder,"/Patientele_potentielle_sous_seuil_dep.rds") )
    )%>%
      filter(Nom_objet==x) %>%
      pull(Nom_enregistre)

    saveRDS(valeur[[x]],nom_enregistrement)

  })
})

## End(Not run)

arnaudmilet/medtRucks documentation built on March 24, 2022, 9:08 p.m.