EOD

Cargando datos y librerías

library(sf)

## Warning: package 'sf' was built under R version 3.5.3

## Linking to GEOS 3.6.1, GDAL 2.2.3, PROJ 4.9.3

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 3.5.3

## -- Attaching packages ------------------------- tidyverse 1.2.1 --

## v ggplot2 3.2.0     v purrr   0.3.2
## v tibble  2.1.1     v dplyr   0.8.1
## v tidyr   0.8.3     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.4.0

## Warning: package 'ggplot2' was built under R version 3.5.3

## Warning: package 'tibble' was built under R version 3.5.3

## Warning: package 'tidyr' was built under R version 3.5.3

## Warning: package 'purrr' was built under R version 3.5.3

## Warning: package 'dplyr' was built under R version 3.5.3

## Warning: package 'stringr' was built under R version 3.5.3

## Warning: package 'forcats' was built under R version 3.5.3

## -- Conflicts ---------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

viajes_eod<-read_delim("C:/Users/usuario/Downloads/Trabajo/Stefan/EOD_Santiago/DatosEOD/resource_datosGOB-20190611T033640Z-001/resource_datosGOB/STGO/viajes.csv",delim = ";")

## Parsed with column specification:
## cols(
##   .default = col_double(),
##   OrigenCoordX = col_number(),
##   OrigenCoordY = col_number(),
##   DestinoCoordX = col_number(),
##   DestinoCoordY = col_number(),
##   MediosUsados = col_character(),
##   HoraIni = col_time(format = ""),
##   HoraFin = col_time(format = ""),
##   HoraMedia = col_time(format = ""),
##   FactorLaboralNormal = col_character(),
##   FactorSabadoNormal = col_number(),
##   FactorDomingoNormal = col_number(),
##   FactorLaboralEstival = col_number(),
##   FactorFindesemanaEstival = col_number()
## )

## See spec(...) for full column specifications.

codname_com<-read_delim("C:/Users/usuario/Downloads/Trabajo/Stefan/EOD_Santiago/DatosEOD/resource_datosGOB-20190611T033640Z-001/resource_datosGOB/STGO/Tablas_parametros/Comuna.csv",delim= ";")

## Parsed with column specification:
## cols(
##   Id = col_double(),
##   Comuna = col_character()
## )

prop_name<-read_delim("C:/Users/usuario/Downloads/Trabajo/Stefan/EOD_Santiago/DatosEOD/resource_datosGOB-20190611T033640Z-001/resource_datosGOB/STGO/Tablas_parametros/Proposito.csv",delim= ";")

## Parsed with column specification:
## cols(
##   Id = col_double(),
##   Proposito = col_character()
## )

#class(viajes_eod$ComunaOrigen)
#class(viajes_eod$Proposito)
#class(codname_com$Id)
#class(prop_name$Id)
viajes_eod$Proposito<-as.factor(viajes_eod$Proposito)
viajes_eod$ComunaOrigen<-as.factor(viajes_eod$ComunaOrigen)

codname_com$Id<-as.factor(codname_com$Id)
prop_name$Id<-as.factor(prop_name$Id)

viajes_eod<-left_join(viajes_eod, codname_com, by=c("ComunaOrigen"="Id") )

## Warning: Column `ComunaOrigen`/`Id` joining factors with different levels,
## coercing to character vector

viajes_eod<-left_join(viajes_eod, prop_name, by=c("Proposito"="Id") )


split.data.frame(viajes_eod, viajes_eod$Comuna) %>% 
  map(., ~as.data.frame(.$Proposito[!is.na(.$Proposito)] %>% 
                          table(.)) %>% ggplot(., aes(x=.,y=Freq))+
        geom_bar (stat="identity")
      )

## $`<d1>U<d1>OA`

## 
## $BUIN

## 
## $`CALERA DE TANGO`

## 
## $CERRILLOS

## 
## $`CERRO NAVIA`

## 
## $COLINA

## 
## $CONCHALI

## 
## $`EL BOSQUE`

## 
## $`EL MONTE`

## 
## $`ESTACION CENTRAL`

## 
## $HUECHURABA

## 
## $INDEPENDENCIA

## 
## $`ISLA DE MAIPO`

## 
## $`LA CISTERNA`

## 
## $`LA FLORIDA`

## 
## $`LA GRANJA`

## 
## $`LA PINTANA`

## 
## $`LA REINA`

## 
## $LAMPA

## 
## $`LAS CONDES`

## 
## $`LO BARNECHEA`

## 
## $`LO ESPEJO`

## 
## $`LO PRADO`

## 
## $MACUL

## 
## $MAIPU

## 
## $MELIPILLA

## 
## $`PADRE HURTADO`

## 
## $`PE<d1>AFLOR`

## 
## $`PE<d1>ALOLEN`

## 
## $`PEDRO AGUIRRE CERDA`

## 
## $PIRQUE

## 
## $PROVIDENCIA

## 
## $PUDAHUEL

## 
## $`PUENTE ALTO`

## 
## $QUILICURA

## 
## $`QUINTA NORMAL`

## 
## $RECOLETA

## 
## $RENCA

## 
## $`SAN BERNARDO`

## 
## $`SAN JOAQUIN`

## 
## $`SAN MIGUEL`

## 
## $`SAN RAMON`

## 
## $SANTIAGO

## 
## $TALAGANTE

## 
## $VITACURA