Hace unos días el Gobierno de la Ciudad de Buenos Aires publicó varios datasets relacionados con el COVID-19. Si queremos trabajar con esos datos, tenemos dos opciones: descargamos los datasets que nos interesen a nuestra pc y los usamos en el momento en que podamos/querramos, o los extraemos directamente desde el portal de datos abiertos.
Si descargamos los archivos, levantar todas las bases de datos a la vez es relativamente sencillo (y más si guardamos todo dentro de un proyecto). El punto en contra puede ser que la información se desactualice. Si descargamos los datos desde el portal, nos aseguramos la última versión de cada dataset. Acá está el código para descargar todos los datasets relacionados con el coronavirus:
library(tidyverse)## ── Attaching packages ──────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.3.0 ──## ✓ ggplot2 3.3.2 ✓ purrr 0.3.4
## ✓ tibble 3.0.3 ✓ dplyr 1.0.0
## ✓ tidyr 1.1.0 ✓ stringr 1.4.0
## ✓ readr 1.3.1 ✓ forcats 0.5.0## ── Conflicts ─────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()#datos sobre la SUBE
sube <- read.csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/transporte/sube/dataset_viajes_sube.csv')
#datos sobre el flujo de vehículos
flujo_vehicular <- read.csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/transporte/flujo-vehicular-anillo-digital/dataset_flujo_vehicular.csv')
#datos Unodades Febriles de Emergencia (UFUS)
ufus <- read_csv('http://cdn.buenosaires.gob.ar/datosabiertos/datasets/salud/ufus/ubicacion-ufus.csv')## Parsed with column specification:
## cols(
## long = col_double(),
## lat = col_double(),
## nombre = col_character(),
## direccion_normalizada = col_character(),
## barrio = col_character(),
## comuna = col_character()
## )#datos sobre los reportes diarios de COVID-19 del Ministerio de Salud
reporte_covid <- read.csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/salud/reporte-covid/dataset_reporte_covid_sitio_gobierno.csv')
#datos sobre llamados al 107
llamados_107 <- read_csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/salud/llamados-107-covid/llamados_107_covid.csv')## Parsed with column specification:
## cols(
## FECHA = col_character(),
## COVID_LLAMADOS = col_double(),
## CASOS_SOSPECHOSOS = col_double(),
## CASOS_DESCARTADOS_COVID = col_double(),
## CASOS_TRASLADADOS = col_double(),
## CASOS_DERIVADOS = col_double()
## )#datos sobre casos de COVID-19 (SISA)
casos_covid <- read_csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/salud/casos-covid-19/casos_covid19.csv')## Parsed with column specification:
## cols(
## numero_de_caso = col_double(),
## fecha_apertura_snvs = col_character(),
## fecha_toma_muestra = col_character(),
## fecha_clasificacion = col_character(),
## provincia = col_character(),
## barrio = col_character(),
## comuna = col_double(),
## genero = col_character(),
## edad = col_double(),
## clasificacion = col_character(),
## fecha_fallecimiento = col_character(),
## fallecido = col_character(),
## fecha_alta = col_character(),
## tipo_contagio = col_character()
## )#contactos BOTI/hora
contactos_BOTI <- read.csv('http://cdn.buenosaires.gob.ar/datosabiertos/datasets/innovacion-transformacion-digital/contactos-boti-triage-covid-19/contactos_boti_triage_covid_19.csv')
#info cementerios públicos: localización e ingresos de defunciones
cementerios <- read.csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/atencion-ciudadana/cementerios-publicos/ingresos_cementerios_publicos.csv')
#llamados al 147 relacionados con el COVID-19
llamados_147 <- read.csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/atencion-ciudadana/147-covid/dataset_covid_147.csv')
#datos sobre vacunatorios de adultos mayores
vacunatorios_adultos_mayores <- read_csv('http://cdn.buenosaires.gob.ar/datosabiertos/datasets/vacunatorios-adultos-mayores/vacunatorios-adultos-mayores.csv')## Parsed with column specification:
## cols(
## long = col_double(),
## lat = col_double(),
## nombre = col_character(),
## barrio = col_character(),
## comuna = col_double(),
## tipo = col_character(),
## domicilio = col_character(),
## aph = col_character()
## )#datos sobre la ampliación de veredas
ampliacion_veredas <- read_csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/espacio-publico-e-higiene-urbana/ampliacion-de-veredas/ampliaciones_de_veredas.csv')## Parsed with column specification:
## cols(
## Eje = col_character(),
## Tramo = col_character(),
## ampliacion = col_character()
## )#datos sobre los aislamientos por COVID-19
aislamiento_COVID <- read_csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/atencion-ciudadana/aislamiento-covid-19/distanciamiento_covid19.csv')## Parsed with column specification:
## cols(
## fecha = col_character(),
## id_hotel = col_double(),
## origen = col_character(),
## genero = col_character(),
## cantidad_ingresos = col_double(),
## cantidad_egresos = col_double()
## )#datos sobre la ubicación de los operativos detectar en la ciudad
detectar <- read_csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/salud/operativo-detectar/operativo-detectar.csv')## Parsed with column specification:
## cols(
## X = col_double(),
## Y = col_double(),
## id = col_double(),
## lugar = col_character(),
## direccion = col_character(),
## calle = col_character(),
## altura = col_double(),
## calle2 = col_character(),
## comuna = col_character(),
## observac_1 = col_character()
## )#datos sobre los puntos de acceso a la ciudad por el COVID-19
accesos <- read.csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/transporte/puntos-de-acceso-a-la-ciudad/accesos_ciudad_covid19.csv')
#datos sobre traslados relacionados con el COVID-19
traslados_covid <- read_csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/transporte/traslados-covid-19/traslados-covid-19.csv')## Parsed with column specification:
## cols(
## N_TRABAJO = col_double(),
## FECHA = col_datetime(format = ""),
## TIPO_TRASLADO = col_character(),
## TIPO_TRANSPORTE = col_character(),
## OFICINA = col_logical(),
## CESAC = col_character(),
## RECORRIDO = col_logical()
## )#datos sobre entrevistas y designaciones de personal de salud
personal_salud <- read.csv('http://cdn.buenosaires.gob.ar/datosabiertos/datasets/entrevistas-y-designaciones-de-personal-sanitario-covid-19/recursos_humanos_salud.csv')
#datos sobre compras relacionadas al coronavirus
compras_COVID <- read.csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/compras-coronavirus/compras-coronavirus.csv', sep=";")
#datos sobre personas repatriadas por el COVID-19 por:
repatriados_sexo_rango_etario <- read_csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/distanciamiento-covid-19/repatriados_sexo_rango_etario.csv')## Parsed with column specification:
## cols(
## X1 = col_double(),
## sexo = col_character(),
## rango_etario = col_character(),
## residente = col_double(),
## n_personas = col_double()
## )repatriados_residencia_fecha <- read.csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/distanciamiento-covid-19/repatriados_zona_residencia_fecha_repatriacion.csv')
repatriados_pais_procedencia <- read_csv('https://cdn.buenosaires.gob.ar/datosabiertos/datasets/distanciamiento-covid-19/repatriados_pais_procedencia.csv')## Parsed with column specification:
## cols(
## procedencia = col_character(),
## tipo_vehiculo = col_character(),
## n_personas = col_double(),
## n_vehiculos = col_double()
## )