Hola Mundo!
El índice de libertad humana se mide utilizando indicadores personales, civiles y económicos (puedes buscar Human Freedom Index)
Opinas que estamos bien o mal, o ahí?
Comenta una 🍍 en el tweet si aprendiste algo nuevo!
El código para hacer la gráfica!
# Hecho con gusto por @GonzalezGouveia
# para #DatosDeMiercoles por @R4DS_es
# cargar paquetes
library(tidyverse)
library(ggthemes)
# buscar datos en la web
libertad <- readr::read_csv("https://bit.ly/2TzmFVf")
# agregar columna para colorear regiones
libertad <- libertad %>% mutate(
fill_region = case_when(
region %in% c('Oriente Medio y Norte de África',
'África Subsahariana',
'Sur de Asia',
'Cáucaso y Asia Central') ~ "1",
region == 'Latinoamérica y el Caribe' ~ "2",
region %in% c('Europa del Este',
'Oceanía',
'Asia Oriental',
'Europa Occidental',
'Norteamérica') ~ "3"
)
)
# filtrar datos para 2016 y graficar
libertad %>%
filter(anio == 2016) %>%
ggplot(aes(x = reorder(region,
-libertad_humana_puntaje,
FUN = median),
y = libertad_humana_puntaje,
fill = fill_region)) +
geom_boxplot() +
coord_flip() +
theme_gdocs() +
labs(title = 'En el MEDIO de la MITAD',
y = 'índice de libertad',
x = '',
caption = 'fuente: Human Freedom Index') +
theme(legend.position = "none")
# guardar imagen final
ggsave('./images/ddm_libertad.png',
width = 8,
height = 4,
units = 'in')