datosdemiercoles_reconocimiento.R

# Hecho con gusto para #DatosDeMiercoles, propuesto por @R4DS_es
# Por Rafa @GonzalezGouveia --> https://bit.ly/2Fnvc7V 
# intalar paquete (si no los tienes)
library(tidyverse)
library(ggthemes)

# install_packages("readr")
leyes <- readr::read_csv("https://bit.ly/2x8ygQR")

# creando dataframe para paises de hispanos-latinos
leyes_latam <- leyes %>%
  filter(pais_es %in% c('Argentina',
                        'Brasil',
                        'Colombia',
                        'Ecuador',
                        'España',
                        'México',
                        'Nicaragua',
                        'Perú',
                        'Uruguay',
                        'Venezuela')) %>%
  select(pais_es,
         matrimonio = reconocimiento_matrimonio,
         union_civil = reconocimiento_union_civil,
         adopcion_conjunta = reconocimiento_adopcion_conjunta,
         adopcion_segundo_padre = reconocimiento_adopcion_segundo_padre) %>%
  gather('reconocimiento','reconoce',2:5)

# cambiando el nombre de los factores
leyes_latam$reconoce <- factor(leyes_latam$reconoce,
                                levels = c("0","1"),
                                labels = c("no","si"))

# APRENDE más sobre factores en R en este video de YouTube!
# copia y pega el link en tu navegador --> https://bit.ly/31Kb7lN

leyes_latam %>%
  ggplot(aes(x = reconocimiento, y = pais_es, fill = reconoce)) +
  geom_tile(colour = "white", size = 2) +
  theme_gdocs() +
  theme(axis.text.x = element_text(size = 12,
                                   angle = 45,
                                   hjust = 1),
        axis.title = element_blank()) +
  ggtitle('Qué país reconoce qué?')

# comenta un emoji de piña en el tweet si lograste crear la gráfica!
# regresar al tweet --> https://bit.ly/2WYOeMP

ggsave('reconocimiento.png')