Librerias Necesarias
library(readr) # La libreria
Cargar los datos que están en INTERNET
bicis2018 <- read.csv("https://raw.githubusercontent.com/rpizarrog/Curso-Titulacion-Data-Science-/master/2019/Datos/AccidentesBicicletas_2018.csv",encoding = "UTF-8")
# bicis2018
Determinar el aributo de distrito y saccar cuales son
bicis2018$DISTRITO
## [1] ARGANZUELA CENTRO
## [3] SALAMANCA SALAMANCA
## [5] CIUDAD LINEAL LATINA
## [7] LATINA SAN BLAS
## [9] VILLA DE VALLECAS CIUDAD LINEAL
## [11] RETIRO FUENCARRAL-EL PARDO
## [13] ARGANZUELA CENTRO
## [15] RETIRO USERA
## [17] SALAMANCA SALAMANCA
## [19] TETUAN CENTRO
## [21] CHAMBERI MONCLOA-ARAVACA
## [23] SAN BLAS CHAMBERI
## [25] CENTRO VILLA DE VALLECAS
## [27] HORTALEZA LATINA
## [29] LATINA TETUAN
## [31] CHAMBERI ARGANZUELA
## [33] CHAMBERI SAN BLAS
## [35] SAN BLAS RETIRO
## [37] ARGANZUELA MONCLOA-ARAVACA
## [39] VILLAVERDE USERA
## [41] TETUAN CARABANCHEL
## [43] CIUDAD LINEAL SAN BLAS
## [45] RETIRO RETIRO
## [47] CENTRO VILLA DE VALLECAS
## [49] CHAMARTIN SALAMANCA
## [51] HORTALEZA CENTRO
## [53] MORATALAZ SAN BLAS
## [55] CENTRO VICALVARO
## [57] CHAMBERI SALAMANCA
## [59] CHAMBERI SALAMANCA
## [61] RETIRO SALAMANCA
## [63] CHAMBERI CIUDAD LINEAL
## [65] CENTRO SALAMANCA
## [67] CENTRO SALAMANCA
## [69] CENTRO CENTRO
## [71] CHAMBERI RETIRO
## [73] CHAMBERI SALAMANCA
## [75] RETIRO MONCLOA-ARAVACA
## [77] SAN BLAS CENTRO
## [79] CARABANCHEL VILLA DE VALLECAS
## [81] HORTALEZA TETUAN
## [83] CIUDAD LINEAL RETIRO
## [85] FUENCARRAL-EL PARDO PUENTE DE VALLECAS
## [87] USERA CENTRO
## [89] CHAMARTIN PUENTE DE VALLECAS
## [91] LATINA SAN BLAS
## [93] SALAMANCA CHAMBERI
## [95] RETIRO CENTRO
## [97] CENTRO CARABANCHEL
## [99] CARABANCHEL RETIRO
## [101] CENTRO SALAMANCA
## [103] SALAMANCA SALAMANCA
## [105] CENTRO CENTRO
## [107] CENTRO TETUAN
## [109] ARGANZUELA CHAMARTIN
## [111] PUENTE DE VALLECAS CENTRO
## [113] CENTRO RETIRO
## [115] USERA RETIRO
## [117] TETUAN SALAMANCA
## [119] MORATALAZ FUENCARRAL-EL PARDO
## [121] LATINA PUENTE DE VALLECAS
## [123] CARABANCHEL MONCLOA-ARAVACA
## [125] MONCLOA-ARAVACA LATINA
## [127] SAN BLAS ARGANZUELA
## [129] ARGANZUELA ARGANZUELA
## [131] RETIRO CHAMBERI
## [133] RETIRO RETIRO
## [135] RETIRO PUENTE DE VALLECAS
## [137] RETIRO CENTRO
## [139] CENTRO MONCLOA-ARAVACA
## [141] CENTRO MONCLOA-ARAVACA
## [143] CENTRO SALAMANCA
## [145] CARABANCHEL CENTRO
## [147] CENTRO CENTRO
## [149] MORATALAZ MORATALAZ
## [151] TETUAN RETIRO
## [153] PUENTE DE VALLECAS CHAMBERI
## [155] CENTRO FUENCARRAL-EL PARDO
## [157] LATINA HORTALEZA
## [159] CENTRO CENTRO
## [161] FUENCARRAL-EL PARDO SALAMANCA
## [163] HORTALEZA MONCLOA-ARAVACA
## [165] LATINA CENTRO
## [167] LATINA RETIRO
## [169] ARGANZUELA PUENTE DE VALLECAS
## [171] CENTRO CHAMARTIN
## [173] CARABANCHEL CIUDAD LINEAL
## [175] MONCLOA-ARAVACA RETIRO
## [177] PUENTE DE VALLECAS CENTRO
## [179] USERA VILLA DE VALLECAS
## [181] FUENCARRAL-EL PARDO SAN BLAS
## [183] SAN BLAS RETIRO
## [185] SAN BLAS MONCLOA-ARAVACA
## [187] MONCLOA-ARAVACA SAN BLAS
## [189] MONCLOA-ARAVACA PUENTE DE VALLECAS
## [191] USERA RETIRO
## [193] CENTRO CARABANCHEL
## [195] MONCLOA-ARAVACA VILLA DE VALLECAS
## [197] CENTRO CENTRO
## [199] PUENTE DE VALLECAS TETUAN
## [201] CHAMARTIN CHAMBERI
## [203] RETIRO TETUAN
## [205] CHAMBERI MONCLOA-ARAVACA
## [207] SALAMANCA RETIRO
## [209] CENTRO MONCLOA-ARAVACA
## [211] LATINA TETUAN
## [213] RETIRO USERA
## [215] ARGANZUELA MORATALAZ
## [217] RETIRO PUENTE DE VALLECAS
## [219] USERA USERA
## [221] RETIRO TETUAN
## [223] CHAMARTIN SALAMANCA
## [225] CENTRO SALAMANCA
## [227] MONCLOA-ARAVACA VILLAVERDE
## [229] LATINA SAN BLAS
## [231] HORTALEZA CHAMBERI
## [233] ARGANZUELA CARABANCHEL
## [235] CHAMARTIN FUENCARRAL-EL PARDO
## [237] HORTALEZA PUENTE DE VALLECAS
## [239] CENTRO FUENCARRAL-EL PARDO
## [241] CENTRO USERA
## [243] RETIRO CENTRO
## [245] RETIRO CHAMBERI
## [247] BARAJAS BARAJAS
## [249] TETUAN CENTRO
## [251] CARABANCHEL TETUAN
## [253] SALAMANCA HORTALEZA
## [255] PUENTE DE VALLECAS USERA
## [257] TETUAN FUENCARRAL-EL PARDO
## [259] LATINA FUENCARRAL-EL PARDO
## [261] CENTRO RETIRO
## [263] VILLA DE VALLECAS CENTRO
## [265] VILLA DE VALLECAS VILLAVERDE
## [267] USERA CENTRO
## [269] RETIRO ARGANZUELA
## [271] CENTRO CENTRO
## [273] CHAMBERI CHAMBERI
## [275] TETUAN CENTRO
## [277] CHAMARTIN CENTRO
## [279] LATINA VICALVARO
## [281] VICALVARO PUENTE DE VALLECAS
## [283] FUENCARRAL-EL PARDO FUENCARRAL-EL PARDO
## [285] RETIRO CENTRO
## [287] ARGANZUELA FUENCARRAL-EL PARDO
## [289] CENTRO SALAMANCA
## [291] CARABANCHEL RETIRO
## [293] TETUAN SALAMANCA
## [295] TETUAN VILLAVERDE
## [297] CENTRO CENTRO
## [299] MONCLOA-ARAVACA MONCLOA-ARAVACA
## [301] CENTRO CENTRO
## [303] CIUDAD LINEAL ARGANZUELA
## [305] BARAJAS LATINA
## [307] LATINA CENTRO
## [309] ARGANZUELA SALAMANCA
## [311] BARAJAS MONCLOA-ARAVACA
## [313] SAN BLAS ARGANZUELA
## [315] CHAMARTIN CHAMARTIN
## [317] FUENCARRAL-EL PARDO FUENCARRAL-EL PARDO
## [319] USERA RETIRO
## [321] SALAMANCA MONCLOA-ARAVACA
## [323] PUENTE DE VALLECAS FUENCARRAL-EL PARDO
## [325] CENTRO SAN BLAS
## [327] CARABANCHEL CHAMBERI
## [329] LATINA CENTRO
## [331] LATINA CHAMBERI
## [333] HORTALEZA HORTALEZA
## [335] ARGANZUELA ARGANZUELA
## [337] CHAMBERI CIUDAD LINEAL
## [339] PUENTE DE VALLECAS CHAMBERI
## [341] CENTRO SALAMANCA
## [343] RETIRO CENTRO
## [345] CARABANCHEL ARGANZUELA
## [347] MONCLOA-ARAVACA CHAMBERI
## [349] CHAMBERI BARAJAS
## [351] MORATALAZ VICALVARO
## [353] CHAMBERI RETIRO
## [355] HORTALEZA LATINA
## [357] CENTRO CARABANCHEL
## [359] PUENTE DE VALLECAS CHAMBERI
## [361] MORATALAZ CENTRO
## [363] MONCLOA-ARAVACA RETIRO
## [365] CHAMARTIN CENTRO
## [367] SALAMANCA CENTRO
## [369] TETUAN MONCLOA-ARAVACA
## [371] LATINA MORATALAZ
## [373] BARAJAS ARGANZUELA
## [375] CARABANCHEL CENTRO
## [377] LATINA SAN BLAS
## [379] CENTRO SALAMANCA
## [381] CENTRO RETIRO
## [383] RETIRO CHAMARTIN
## [385] MONCLOA-ARAVACA MONCLOA-ARAVACA
## [387] CENTRO HORTALEZA
## [389] MONCLOA-ARAVACA MONCLOA-ARAVACA
## [391] CHAMBERI RETIRO
## [393] CIUDAD LINEAL CIUDAD LINEAL
## [395] HORTALEZA VICALVARO
## [397] CENTRO CARABANCHEL
## [399] SAN BLAS HORTALEZA
## [401] TETUAN USERA
## [403] FUENCARRAL-EL PARDO CARABANCHEL
## [405] ARGANZUELA LATINA
## [407] LATINA FUENCARRAL-EL PARDO
## [409] LATINA VICALVARO
## [411] ARGANZUELA RETIRO
## [413] CENTRO CENTRO
## [415] TETUAN VILLAVERDE
## [417] SAN BLAS RETIRO
## [419] CENTRO CENTRO
## [421] MONCLOA-ARAVACA SALAMANCA
## [423] TETUAN CARABANCHEL
## [425] ARGANZUELA CARABANCHEL
## [427] PUENTE DE VALLECAS CIUDAD LINEAL
## [429] CENTRO RETIRO
## [431] FUENCARRAL-EL PARDO CHAMARTIN
## [433] PUENTE DE VALLECAS PUENTE DE VALLECAS
## [435] CARABANCHEL SAN BLAS
## [437] FUENCARRAL-EL PARDO SALAMANCA
## [439] CENTRO CENTRO
## [441] CIUDAD LINEAL VILLAVERDE
## [443] MONCLOA-ARAVACA VILLAVERDE
## [445] ARGANZUELA CENTRO
## [447] CHAMBERI CHAMBERI
## [449] MONCLOA-ARAVACA HORTALEZA
## [451] HORTALEZA RETIRO
## [453] ARGANZUELA SAN BLAS
## [455] CHAMBERI SALAMANCA
## [457] CENTRO CENTRO
## [459] CENTRO FUENCARRAL-EL PARDO
## [461] SAN BLAS FUENCARRAL-EL PARDO
## [463] TETUAN VILLAVERDE
## [465] PUENTE DE VALLECAS ARGANZUELA
## [467] MONCLOA-ARAVACA MONCLOA-ARAVACA
## [469] CARABANCHEL PUENTE DE VALLECAS
## [471] CARABANCHEL CARABANCHEL
## [473] CARABANCHEL PUENTE DE VALLECAS
## [475] RETIRO CHAMBERI
## [477] PUENTE DE VALLECAS ARGANZUELA
## [479] CHAMARTIN CENTRO
## [481] TETUAN CHAMBERI
## [483] VICALVARO VILLAVERDE
## [485] SALAMANCA CHAMARTIN
## [487] MORATALAZ HORTALEZA
## [489] HORTALEZA MONCLOA-ARAVACA
## [491] LATINA MONCLOA-ARAVACA
## [493] MONCLOA-ARAVACA VILLAVERDE
## [495] CIUDAD LINEAL USERA
## [497] CHAMARTIN CARABANCHEL
## [499] LATINA CARABANCHEL
## [501] CENTRO CHAMBERI
## [503] HORTALEZA LATINA
## [505] FUENCARRAL-EL PARDO CIUDAD LINEAL
## [507] CHAMARTIN FUENCARRAL-EL PARDO
## [509] MONCLOA-ARAVACA CENTRO
## [511] LATINA CARABANCHEL
## [513] VILLA DE VALLECAS ARGANZUELA
## [515] VILLA DE VALLECAS CENTRO
## [517] RETIRO CHAMARTIN
## [519] CENTRO RETIRO
## [521] SALAMANCA CHAMARTIN
## [523] PUENTE DE VALLECAS VICALVARO
## [525] MONCLOA-ARAVACA SALAMANCA
## [527] CIUDAD LINEAL CIUDAD LINEAL
## [529] VILLA DE VALLECAS TETUAN
## [531] FUENCARRAL-EL PARDO RETIRO
## [533] VILLAVERDE SALAMANCA
## [535] CIUDAD LINEAL MONCLOA-ARAVACA
## [537] CARABANCHEL CHAMBERI
## [539] CENTRO CENTRO
## [541] CENTRO SAN BLAS
## [543] CHAMBERI CHAMARTIN
## [545] MONCLOA-ARAVACA CARABANCHEL
## [547] MONCLOA-ARAVACA TETUAN
## [549] VICALVARO MONCLOA-ARAVACA
## [551] MORATALAZ FUENCARRAL-EL PARDO
## [553] CENTRO CENTRO
## [555] VILLA DE VALLECAS LATINA
## [557] CENTRO MONCLOA-ARAVACA
## [559] SALAMANCA SALAMANCA
## [561] PUENTE DE VALLECAS CHAMBERI
## [563] TETUAN CIUDAD LINEAL
## [565] RETIRO ARGANZUELA
## [567] MONCLOA-ARAVACA SALAMANCA
## [569] SAN BLAS FUENCARRAL-EL PARDO
## [571] CHAMBERI CENTRO
## [573] CIUDAD LINEAL ARGANZUELA
## [575] MONCLOA-ARAVACA CIUDAD LINEAL
## [577] TETUAN SALAMANCA
## [579] CENTRO CENTRO
## [581] MONCLOA-ARAVACA CIUDAD LINEAL
## [583] TETUAN HORTALEZA
## [585] MONCLOA-ARAVACA MORATALAZ
## [587] SALAMANCA CHAMBERI
## [589] SALAMANCA TETUAN
## [591] CHAMBERI CENTRO
## [593] VILLAVERDE CENTRO
## [595] CHAMARTIN CHAMBERI
## [597] CHAMBERI CIUDAD LINEAL
## [599] CHAMBERI CHAMBERI
## [601] ARGANZUELA TETUAN
## [603] LATINA BARAJAS
## [605] CENTRO CENTRO
## [607] VILLA DE VALLECAS CENTRO
## [609] MONCLOA-ARAVACA CENTRO
## [611] CARABANCHEL CENTRO
## [613] MONCLOA-ARAVACA MORATALAZ
## [615] CENTRO FUENCARRAL-EL PARDO
## [617] CHAMBERI FUENCARRAL-EL PARDO
## [619] CENTRO ARGANZUELA
## [621] USERA CENTRO
## [623] RETIRO MONCLOA-ARAVACA
## [625] CENTRO CENTRO
## [627] HORTALEZA PUENTE DE VALLECAS
## [629] PUENTE DE VALLECAS SALAMANCA
## [631] SALAMANCA CARABANCHEL
## [633] LATINA CENTRO
## [635] CHAMBERI CENTRO
## [637] CHAMARTIN BARAJAS
## [639] CENTRO VILLA DE VALLECAS
## [641] FUENCARRAL-EL PARDO CENTRO
## [643] CENTRO CIUDAD LINEAL
## [645] CENTRO CARABANCHEL
## [647] SALAMANCA TETUAN
## [649] CENTRO CHAMBERI
## [651] USERA SALAMANCA
## [653] HORTALEZA CENTRO
## [655] FUENCARRAL-EL PARDO CARABANCHEL
## [657] VILLA DE VALLECAS PUENTE DE VALLECAS
## [659] LATINA CIUDAD LINEAL
## [661] TETUAN LATINA
## [663] CARABANCHEL ARGANZUELA
## [665] CIUDAD LINEAL CARABANCHEL
## [667] CHAMARTIN RETIRO
## [669] CENTRO MONCLOA-ARAVACA
## [671] CHAMBERI CENTRO
## [673] CHAMARTIN CENTRO
## [675] CENTRO SALAMANCA
## [677] CHAMBERI CARABANCHEL
## [679] SALAMANCA FUENCARRAL-EL PARDO
## [681] USERA CHAMBERI
## [683] LATINA VICALVARO
## [685] CHAMARTIN CENTRO
## [687] CENTRO CHAMBERI
## [689] CIUDAD LINEAL TETUAN
## [691] CENTRO MONCLOA-ARAVACA
## [693] LATINA CENTRO
## [695] MORATALAZ FUENCARRAL-EL PARDO
## [697] CHAMARTIN CENTRO
## [699] TETUAN CHAMBERI
## 21 Levels: ARGANZUELA ...
distritos = unique(bicis2018$DISTRITO)
#distritos
Determinar los registros o filas de cada distrito
dist1 <- subset(bicis2018, bicis2018$DISTRITO == distritos[1])
dist2 <- subset(bicis2018, bicis2018$DISTRITO == distritos[2])
dist3 <- subset(bicis2018, bicis2018$DISTRITO == distritos[3])
dist4 <- subset(bicis2018, bicis2018$DISTRITO == distritos[4])
dist5 <- subset(bicis2018, bicis2018$DISTRITO == distritos[5])
dist6 <- subset(bicis2018, bicis2018$DISTRITO == distritos[6])
dist7 <- subset(bicis2018, bicis2018$DISTRITO == distritos[7])
dist8 <- subset(bicis2018, bicis2018$DISTRITO == distritos[8])
dist9 <- subset(bicis2018, bicis2018$DISTRITO == distritos[9])
dist10 <- subset(bicis2018, bicis2018$DISTRITO == distritos[10])
dist11 <- subset(bicis2018, bicis2018$DISTRITO == distritos[11])
dist12 <- subset(bicis2018, bicis2018$DISTRITO == distritos[12])
dist13 <- subset(bicis2018, bicis2018$DISTRITO == distritos[13])
dist14 <- subset(bicis2018, bicis2018$DISTRITO == distritos[14])
dist15 <- subset(bicis2018, bicis2018$DISTRITO == distritos[15])
dist16 <- subset(bicis2018, bicis2018$DISTRITO == distritos[16])
dist17 <- subset(bicis2018, bicis2018$DISTRITO == distritos[17])
dist18 <- subset(bicis2018, bicis2018$DISTRITO == distritos[18])
dist19 <- subset(bicis2018, bicis2018$DISTRITO == distritos[19])
dist20 <- subset(bicis2018, bicis2018$DISTRITO == distritos[20])
dist21 <- subset(bicis2018, bicis2018$DISTRITO == distritos[21])
Verificamos registros de algun distrito
dist1$FECHA # Solo la FECHA
## [1] 01/01/2018 09/01/2018 24/01/2018 24/01/2018 12/03/2018 28/03/2018
## [7] 28/03/2018 29/03/2018 21/04/2018 14/05/2018 21/05/2018 12/06/2018
## [13] 18/06/2018 21/06/2018 25/06/2018 26/06/2018 05/07/2018 05/07/2018
## [19] 10/07/2018 22/07/2018 03/08/2018 05/08/2018 11/08/2018 26/08/2018
## [25] 30/08/2018 05/09/2018 10/09/2018 25/09/2018 13/10/2018 16/10/2018
## [31] 27/10/2018 08/11/2018 29/11/2018
## 298 Levels: 01/01/2018 01/02/2018 01/04/2018 01/05/2018 ... 31/10/2018
dist5$DISTRITO # Solo el DISTRITO
## [1] LATINA LATINA
## [3] LATINA LATINA
## [5] LATINA LATINA
## [7] LATINA LATINA
## [9] LATINA LATINA
## [11] LATINA LATINA
## [13] LATINA LATINA
## [15] LATINA LATINA
## [17] LATINA LATINA
## [19] LATINA LATINA
## [21] LATINA LATINA
## [23] LATINA LATINA
## [25] LATINA LATINA
## [27] LATINA LATINA
## [29] LATINA LATINA
## [31] LATINA LATINA
## [33] LATINA LATINA
## [35] LATINA
## 21 Levels: ARGANZUELA ...
Determinar cuantos registros por cada distrito
dist1Accidentes <- length(dist1$DISTRITO)
dist2Accidentes <- length(dist2$DISTRITO)
dist3Accidentes <- length(dist3$DISTRITO)
dist4Accidentes <- length(dist4$DISTRITO)
dist5Accidentes <- length(dist5$DISTRITO)
dist6Accidentes <- length(dist6$DISTRITO)
dist7Accidentes <- length(dist7$DISTRITO)
dist8Accidentes <- length(dist8$DISTRITO)
dist9Accidentes <- length(dist9$DISTRITO)
dist10Accidentes <- length(dist10$DISTRITO)
dist11Accidentes <- length(dist11$DISTRITO)
dist12Accidentes <- length(dist12$DISTRITO)
dist13Accidentes <- length(dist13$DISTRITO)
dist14Accidentes <- length(dist14$DISTRITO)
dist15Accidentes <- length(dist15$DISTRITO)
dist16Accidentes <- length(dist16$DISTRITO)
dist17Accidentes <- length(dist17$DISTRITO)
dist18Accidentes <- length(dist18$DISTRITO)
dist19Accidentes <- length(dist19$DISTRITO)
dist20Accidentes <- length(dist20$DISTRITO)
dist21Accidentes <- length(dist21$DISTRITO)
Crer un data frame con el resumen de los datos por cada distrito
dist1Accidentes
## [1] 33
dist2Accidentes
## [1] 124
dist3Accidentes
## [1] 48
dist4Accidentes
## [1] 26
dist5Accidentes
## [1] 35
dist6Accidentes
## [1] 24
dist7Accidentes
## [1] 15
dist8Accidentes
## [1] 52
dist9Accidentes
## [1] 33
dist10Accidentes
## [1] 18
dist11Accidentes
## [1] 34
dist12Accidentes
## [1] 51
dist13Accidentes
## [1] 51
dist14Accidentes
## [1] 22
dist15Accidentes
## [1] 12
dist16Accidentes
## [1] 36
dist17Accidentes
## [1] 26
dist18Accidentes
## [1] 13
dist19Accidentes
## [1] 10
dist20Accidentes
## [1] 29
dist21Accidentes
## [1] 8
Ahora a construr un solo data frame resumen con disrito y cantidad
accidentes <- c(dist1Accidentes,
dist2Accidentes,
dist3Accidentes,
dist4Accidentes,
dist5Accidentes,
dist6Accidentes,
dist7Accidentes,
dist8Accidentes,
dist9Accidentes,
dist10Accidentes,
dist11Accidentes,
dist12Accidentes,
dist13Accidentes,
dist14Accidentes,
dist15Accidentes,
dist16Accidentes,
dist17Accidentes,
dist18Accidentes,
dist19Accidentes,
dist20Accidentes,
dist21Accidentes)
resumen <- data.frame(distritos, accidentes)
resumen
## distritos accidentes
## 1 ARGANZUELA 33
## 2 CENTRO 124
## 3 SALAMANCA 48
## 4 CIUDAD LINEAL 26
## 5 LATINA 35
## 6 SAN BLAS 24
## 7 VILLA DE VALLECAS 15
## 8 RETIRO 52
## 9 FUENCARRAL-EL PARDO 33
## 10 USERA 18
## 11 TETUAN 34
## 12 CHAMBERI 51
## 13 MONCLOA-ARAVACA 51
## 14 HORTALEZA 22
## 15 VILLAVERDE 12
## 16 CARABANCHEL 36
## 17 CHAMARTIN 26
## 18 MORATALAZ 13
## 19 VICALVARO 10
## 20 PUENTE DE VALLECAS 29
## 21 BARAJAS 8
Se muestran Cuartiles, Minimios y Maximos
q1 <- quantile(resumen$accidentes, 0.25) # al 25%
q3 <- quantile(resumen$accidentes, 0.75) # al 75%
q1
## 25%
## 18
q3
## 75%
## 36
minimos <- subset(resumen, accidentes <= q1)
maximos <- subset(resumen, accidentes >= q3)
minimos
## distritos accidentes
## 7 VILLA DE VALLECAS 15
## 10 USERA 18
## 15 VILLAVERDE 12
## 18 MORATALAZ 13
## 19 VICALVARO 10
## 21 BARAJAS 8
maximos
## distritos accidentes
## 2 CENTRO 124
## 3 SALAMANCA 48
## 8 RETIRO 52
## 12 CHAMBERI 51
## 13 MONCLOA-ARAVACA 51
## 16 CARABANCHEL 36
# resumen <- data.frame(minimos, maximos)
# resumen
Interpretación
Mediante el analisis de los datos del archivo de recopilacion de accidentes en bicicleta en el año 2018 se obtuvieron datos estadisticos como los cuartiles maximos y minimos.
asi como se puede visualizar cual es el distrito con menos accidentes y con mas accidentes