ANÁLISIS NUMÉRICO DEL ÍNDICE DE DEMOCRACIA Juan J. Guevara Carranza.

library(htmltab)
linkPage="https://es.wikipedia.org/wiki/%C3%8Dndice_de_democracia"
linkTabla="///div/table[2]"
democracia=htmltab(doc=linkPage, which=linkTabla)

str(democracia)

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

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

str(democracia)

base1=ggplot(democracia,aes(x=Puntuación))
histNum= base1 + geom_histogram(bins=7) 
histNum 

La asimetría dentro del gráfico no es muy consistente, pero predominan los valores altos.

base2=ggplot(democracia,aes(y=Puntuación))
box=base2 + geom_boxplot() + coord_flip()

box 

Se observan dos proyecciones (colas) en el boxplot.

summary(democracia$Puntuación)

Asimetría negativo dado que: Median>Mean

IQR(democracia$Puntuación)

La mitad de los valores varían lo hallado en el IQR.

Skew(democracia$Puntuación,conf.level = 0.05)

Tiene un valor negativo

q3=as.numeric(summary(democracia$Puntuación)[5])
umbral= q3+1.5*IQR(democracia$Puntuación)
umbral

Serán considerados atípicos los futuros valores encontrados que sean mayores a lo señalado.

democracia[democracia$Puntuación>umbral,]

Gini(democracia$Puntuación,conf.level=0.95)

Al ser cero todos tienen características compartidas.

base1 + gglorenz::stat_lorenz(color='yellow') +
    geom_abline(linetype = "dashed") + coord_fixed() +
    labs(x = "Puntuación",
         y = "count",
         title = "Índice de democracia",
         caption = "Fuente: Wikipedia")

Se reafirma que el índice señalado por Gini es cero por lo que los valores obtenidos por los países no varía demasiado.

ggplot(democracia, aes(x = Puntuación)) +
  geom_density() +
  scale_y_continuous("count") +
  scale_x_continuous("Puntuación") +
  labs(title = "Índice de democracia",
       subtitle = "Puntos obtenido por los países evaluados")

Existe una suavización de los valores observados. Vemos que entre 5 y 7,5 existe una mayor concentración (un pico), pero de ahí en adelante (hasta el máximo puntaje) hay una gran caída con lo cual podemos concluir que existen pocos países con altos índices de democracia mientras que la mayoría presenta valores medios y medios superiores. Por otro lado la cantidad de países “autoritarios” es escasa.