library("tidyverse")

Exploration des données

"https://www.data.gouv.fr/fr/datasets/r/350efeac-245a-405a-8384-143866552806" %>%
  read_csv2() %>%
  names()
## [1] "siren"                              "denomination_employeur"            
## [3] "annee"                              "somme_10_plus_hautes_remunerations"
## [5] "nb_femmes_beneficiaires"            "nb_hommes_beneficiaires"           
## [7] "duree_cumulee_mois"                 "commentaires"
"https://www.data.gouv.fr/fr/datasets/r/15e882bb-2ba1-4456-8f1d-66ec750631fa" %>%
  read_csv2() %>%
  names()
## [1] "Siren"                                                  
## [2] "Dénomination de l'employeur"                            
## [3] "Année"                                                  
## [4] "Somme des dix plus hautes rémunérations brutes en euros"
## [5] "Nombre de femmes bénéficiaires"                         
## [6] "Nombre d'hommes bénéficiaires"                          
## [7] "Durée cumulée en nombre de mois"                        
## [8] "Commentaires"