Hola Mundo
Grande Brasil en el fútbol femenino 🥅⚽! Resultados de las últimas dos copas mundiales en las que hemos participado🏃♀
Si logras hacer la gráfica, comenta una 🍍 en el tweet!
El código para hacer la gráfica!
# Hecho por @GonzalezGouveia con gusto para
# Twitter #DatosDeMiercoles por @R4DS_es
# cargar librerías
library(tidyverse)
library(gganimate)
library(ggthemes)
# leer datos
resultados_cmff <- readr::read_csv("https://bit.ly/2YddrD0")
# tranformar datos
cmff_tidy <- resultados_cmff %>%
# group_by(anio, equipo) %>%
filter(anio %in% c('2015',
'2019')) %>%
group_by(equipo, ronda) %>%
summarise(suma_goles = sum(goles)) %>%
filter(equipo %in% c('México',
'España',
'Ecuador',
'Costa Rica',
'Colombia',
'Chile',
'Brasil',
'Argentina'))
# Empieza la gráfica
cmff_tidy %>%
ggplot(aes(x = equipo,
y = suma_goles,
fill = equipo)) +
geom_col() +
coord_flip() +
labs(title = 'Goles en los últimos 5 años',
subtitle = 'en Copas Mundiales de Fútbol Femenino',
y = 'suma de goles') +
theme_gdocs() +
theme(legend.position = "none",
axis.title.y=element_blank())
# Guardando la gráfica
ggsave('ddm-futbol-fem.jpeg',
width = 8,
height = 4,
units = 'in')