library(htmltab)

aa=htmltab(doc = "https://es.wikipedia.org/wiki/%C3%8Dndice_de_democracia",
               which ='//*[@id="mw-content-text"]/div/table[2]',
               encoding = "UTF-8")

str(aa)

## 'data.frame':    167 obs. of  9 variables:
##  $ Puesto                       : chr  "1" "2" "3" "4" ...
##  $ País                         : chr  "Noruega" " Islandia" "Suecia" " Nueva Zelanda" ...
##  $ Puntuación                   : chr  "9.87" "9.58" "9.39" "9.26" ...
##  $ Proceso electoraly pluralismo: chr  "10.00" "10.00" "9.58" "10.00" ...
##  $ Funcionamientodel gobierno   : chr  "9.64" "9.29" "9.64" "9.29" ...
##  $ Participaciónpolítica        : chr  "10.00" "8.89" "8.33" "8.89" ...
##  $ Culturapolítica              : chr  "10.00" "10.00" "10.00" "8.13" ...
##  $ Derechosciviles              : chr  "9.71" "9.71" "9.41" "10.00" ...
##  $ Categoría                    : chr  "Democracia plena" "Democracia plena" "Democracia plena" "Democracia plena" ...

aa=aa[,c(2,3)]

names(aa)

## [1] "País"       "Puntuación"

str(aa)

## 'data.frame':    167 obs. of  2 variables:
##  $ País      : chr  "Noruega" " Islandia" "Suecia" " Nueva Zelanda" ...
##  $ Puntuación: chr  "9.87" "9.58" "9.39" "9.26" ...

aa$Puntuación = gsub(",","", aa$Puntuación)

str(aa)

## 'data.frame':    167 obs. of  2 variables:
##  $ País      : chr  "Noruega" " Islandia" "Suecia" " Nueva Zelanda" ...
##  $ Puntuación: chr  "9.87" "9.58" "9.39" "9.26" ...

aa$Puntuación=as.numeric(aa$Puntuación)

str(aa)

## 'data.frame':    167 obs. of  2 variables:
##  $ País      : chr  "Noruega" " Islandia" "Suecia" " Nueva Zelanda" ...
##  $ Puntuación: num  9.87 9.58 9.39 9.26 9.22 9.15 9.15 9.14 9.09 9.03 ...

library(ggplot2)
base1=ggplot(aa,aes(x=Puntuación))
histNum= base1 + geom_histogram(bins=5) 
histNum