Políticas económicas frente al COVID-19: Indice de Shannon para la diversidad de agendas. Código en R. Conferencia LatinR

Abstract

La presentación contiene el desarrollo de una función de Shannon’s H generalizada en R para cualquier conjunto de datos que posea una estructura de data frame y que contenga la información sobre agendas de gobiernos, partidos, organizaciones de la sociedad civil en categorías de análisis de interés (n>0). El cálculo del estadístico se realiza sobre la columna que contenga la información de la frecuencia absoluta de las políticas analizadas. Adicionalmente es posible implementar una prueba no paramétrica para probar la diferencia significativa de las agendas locales, como complemento de la función diseñada.

Full text

Políticas económicas frente al COVID-19:
Índice de Shannon para la diversidad de agendas
Enrique García-Tejeda
Latin R 2021
10 de noviembre de 2021
1 / 11

La Pandemia de COVID-19
Los gobiernos implementaron políticas públicas para atender los
efectos de la contracción económica provocada el confinamiento:
Política fiscal
Política monetaria
Política cambiaria
Política financiera
García-Tejeda, C-E.(2020). Las políticas económicas frente al
COVID19 en México. GIGAPP Estudios Working Papers, 7(182-
189), 553-568.
2 / 11

¿Son diversas las intervenciones?
Índice de Entropía de Shannon
Es el negativo de la sumatoria de la í-esima(x) proporción(p)
multiplicado por su logaritmo natural (log).
Boydstun, A. E., Bevan, S., & Thomas III, H. F. (2014). The
importance of attention diversity and how to measure it. Policy
Studies Journal, 42(2), 173-196.
Shannon
= −
n
∑
i
=1
((
p
(
xi
) ∗
log
(
p
(
xi
))
3 / 11

Definición de la función de Shannon
# x = vector con conteo de políticas públicas
# y = número de categorias o rubros de interés
res <-0
shannonH <- function(x,y){
for (i in 1:y){
if (x[i] != 0) {
res <- (x[i]/sum(x)) * log(x[i]/sum(x)) + res
}
}
return(-res)
}
4 / 11

Resultados
5 / 11

¿Son diversas las agendas?
politicas <- read.csv("politicasEstatalesCovidMexico.csv")
politicas$Aguascalientes
## [1] 1 0 8 1 1 1 1 1 2 0
shannonH(politicas$Aguascalientes,10)
## [1] 1.646225
shannonH(politicas$Jalisco, 10)
## [1] 1.494175
6 / 11

# Data frame para almacenar los valores de Shannon
estados <- colnames(politicas)
indicador <- rep(0, 32)
indiceSH <-data.frame(estados[2:33], indicador)
# Cálculo de Shannon para 32 estados
for (j in 1:32){
indiceSH$indicador[j] <- shannonH(politicas[,j+1],10)
}
head(indiceSH, 4)
## estados.2.33. indicador
## 1 Aguascalientes 1.646225
## 2 Baja.California 1.680047
## 3 Baja.California.Sur 1.468140
## 4 Campeche 2.068885
7 / 11

Diversidad de las agendas locales
8 / 11

¿Son diferentes las agendas locales?
prueba <- politicas[,2:33]
fisher.test(prueba, simulate.p.value = TRUE)
##
## Fisher's Exact Test for Count Data with simulated p-value (based on
## 2000 replicates)
##
## data: prueba
## p-value = 0.2274
## alternative hypothesis: two.sided
Es una prueba estadística no paramétrica que mide la
probabilidad de obtener la distribución de frecuencias observadas.
Ho: las políticas económicas en las agendas locales no varían por
Entidad Federativa
9 / 11

Políticas económicas subnacionales
Frente al COVID-19, hay intervenciones amplias, en algunos casos
las políticas son diversas, pero todas las intervenciones son
semejantes. Las agendas de políticas públicas son muy parecidas
entre Entidades.
10 / 11

Dudas y contacto
Enrique García Tejeda
Doctor en Políticas Públicas por el CIDE
Profesor del Tecnológico de Monterrey, México
enrique.garciatejeda@tec.mx
twitter: @enriqueGtejeda
https://github.com/enriquetejeda217/shannonindex/blob/main/Shannon-
Enrique.Rmd
11 / 11