Hola Mundo!
Las emisiones de CO2 están creciendo! En esta gráfica se ve nos alejamos mucho de las emisiones de hace unos años.
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(gganimate)
library(ggrepel)
library(ggthemes)
# buscar datos en la web
co2 <- readr::read_csv("https://bit.ly/2zevmuL")
# agrupando los datos por año tomando promedios
co2_summary <- co2 %>%
group_by(anio) %>%
summarise(mean_emision = mean(emision_co2, na.rm = TRUE))
# creando objeto de animación
anim <- co2_summary %>%
ggplot(aes(x = anio,
y = mean_emision,
color = mean_emision,
# size = mean_emision,
label = paste('año: ', anio,
'\nemision: ',
round(mean_emision,1) ))) +
geom_line(size = 1) +
geom_point(size = 3) +
geom_label_repel(direction = 'x',
vjust = 1,
nudge_y = 2,
size = 5) +
ylim(0,8) +
xlim(1960, 2020) +
scale_color_gradient(low="blue", high="red") +
coord_polar() +
labs(title = 'Cada año emitimos más CO2',
x = 'años (de 1960 a 2020)',
y = 'Emisión CO2 (toneladas métricas per cápita)',
color = 'Emisión') +
theme_gdocs() +
transition_reveal(anio) +
NULL
# animando
animate(anim,
fps = 50,
# si quieres cambiar el tamaño en pixeles
# width = 1600,
# height = 1200,
nframes = 500,
end_pause = 100)
# guardando
anim_save('co2.gif')