Hola Mundo!
Me gustan estos datos (Aunque siempre me cuesta hacer mapas en R)
La historia de las bicis: en la madrugada se las llevan a la periferia y en las tardes van al Obelisco. Y así en promedio todos los días!
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(lubridate)
library(RColorBrewer)
require(ggmap)
require(maps)
library(gganimate)
# leer datos
estaciones <- readr::read_csv("https://bit.ly/32gYe2a")
bicicletas <- readr::read_csv("https://bit.ly/2UeZnV8")
# agrupando y juntando datos
estacion_tidy <- bicicletas %>%
group_by(hora = hour(tiempo),
id_estacion) %>%
summarise(bicis_promedio = mean(bicis_disponibles, na.rm = TRUE)) %>%
left_join(estaciones, by = "id_estacion")
# creando objeto de animación
anim <- ggmap(get_stamenmap(bbox = c(left = -58.51,
bottom = -34.66,
right = -58.36,
top = -34.54),
zoom = 12)) +
geom_point(data = estacion_tidy,
aes(x = lon,
y = lat,
size = bicis_promedio),
color = 'red',
alpha = 0.5) +
labs(title = 'A dónde van las bicis?',
subtitle = 'Hora del día {closest_state}',
x = 'longitud',
y = 'latitud',
size = 'Disponibles') +
transition_states(hora)
# 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('bicis.gif')