library(readr)
bicis2018 <- read.csv("https://github.com/rpizarrog/Curso-Titulacion-Data-Science-/blob/master/2019/Datos/AccidentesBicicletas_2018.csv") bicis2018