1

library(rio)

link='https://github.com/JoseManuelMagallanes/Estadistica_Para_AnalisisPolitico/raw/master/lapop17.dta'

lapop17=import(link)

library(htmltab)


a=list(web="https://es.wikipedia.org/wiki/%C3%8Dndice_global_de_felicidad",
           xpath ='//*[@id="mw-content-text"]/div/table')

demo<- htmltab(doc = a$web, which =a$xpath)

str(demo)

## 'data.frame':    156 obs. of  9 variables:
##  $ №                                     : chr  "1" "2" "3" "4" ...
##  $ País                                  : chr  "Finlandia" "Noruega" "Dinamarca" "Islandia" ...
##  $ Puntuación                            : chr  "7.633" "7.594" "7.555" "7.495" ...
##  $ PIB per cápita                        : chr  "1.305" "1.456" "1.351" "1.343" ...
##  $ Apoyo social                          : chr  "1.592" "1.582" "1.590" "1.644" ...
##  $ Esperanza de años de vida saludable   : chr  "0.874" "0.861" "0.868" "0.914" ...
##  $ Libertad para tomar decisiones vitales: chr  "0.681" "0.686" "0.683" "0.677" ...
##  $ Generosidad                           : chr  "0.192" "0.286" "0.284" "0.353" ...
##  $ Percepción de la corrupción           : chr  "0.393" "0.340" "0.408" "0.138" ...

names(demo)

## [1] "№"                                     
## [2] "País"                                  
## [3] "Puntuación"                            
## [4] "PIB per cápita"                        
## [5] "Apoyo social"                          
## [6] "Esperanza de años de vida saludable"   
## [7] "Libertad para tomar decisiones vitales"
## [8] "Generosidad"                           
## [9] "Percepción de la corrupción"

library(ggplot2)

basep=ggplot(data=demo, aes(y=as.numeric(Puntuación)))

basep +  geom_boxplot() + coord_flip()