1 2 3 4 5 6 7 8 9 10 11
| install.packages("rvest")
library(rvest)
#lecture du code html
page<-read_html("https://fr.wikipedia.org/wiki/Liste_des_d%C3%A9partements_fran%C3%A7ais_class%C3%A9s_par_population_et_superficie")
#lecture des tableaux contenus dans la page
tables<-html_table(page, header = TRUE, trim = TRUE, fill = TRUE)
#récupération du tableau souhaité
pop_sup<-tables[[1]]
#nettoyage des données
colnames(pop_sup)<-c("Rang 2014", "DEP_num", "DEP_lib", "Pop_1931", "Pop_1999", "Pop_2008", "Pop_2010", "Pop_2011", "Pop_2012", "Pop_2013", "Pop_2014", "Superficie", "Densité")
pop_sup<-pop_sup[-1,] |
Partager