-
Notifications
You must be signed in to change notification settings - Fork 2
/
resumenMontos.R
106 lines (90 loc) · 4.78 KB
/
resumenMontos.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
library(tidyverse)
library(lubridate)
library(ggplot2)
library(scales, warn.conflicts = FALSE)
# Read the data from the CSV file
transporte <- read.csv("datos_unidos.csv")
rutas <- read.csv("rutas.csv")
transacciones <- select(transporte, -consecutivoevento, -dia_hora, -dia_semana,
-fecha, -hora, -latitude, -longitude)
eots <- select(rutas, -estado, -troncal, -ramal)
eotsn <- unique(eots$eot)
# Fusionar los datos utilizando la columna "idsam" como clave de unión
datos_fusionados <- inner_join(transacciones, eots, by = "idrutaestacion")
lista_eot_resultados <- vector("list", length = length(eotsn))
rm(transporte)
rm(transacciones)
rm(rutas)
#rm(rut)
for (j in 1:length(eotsn)) {
eot_actual <- eotsn[j]
## Filtro de los datos TOTALES
transporte_filtrado <- datos_fusionados %>%
filter(tipoevento == 4, producto == "MO") %>%
group_by(eot, fecha ) %>%
summarize(cantidad_viajes = n()) %>%
ungroup()
transporte_filtrado <- arrange(transporte_filtrado, fecha)
nombre_csv <- paste0("csv/viajes_total/eot_viajes_total_",eot_actual, ".csv")
write.csv(transporte_filtrado, file = nombre_csv, row.names = FALSE)
titulo <- paste("Total de viajes (eot:", eot_actual, ")")
eotplot <- ggplot(transporte_filtrado, aes(x = fecha, y = cantidad_viajes, color = eot)) +
geom_line(linewidth = 1) +
scale_y_continuous(expand = c(0, 0)) +
labs(x = "Fecha", y = "Cantidad de viajes", title = titulo) +
theme(legend.position = "bottom", plot.margin = unit(c(2, 2, 0.5, 0.5), "cm"))
nombre_png <- paste0("png/viajes_total/eot_viajes_total_",eot_actual, ".png")
ggsave(nombre_png, width = 48, height = 8.33, dpi = 72)
}
## Solo Diferencial
transporte_filtrado <- datos_fusionados %>%
filter(tipoevento == 4, producto == "MO", tipotransporte==3) %>%
group_by(eot_actual, fecha = as.Date(fechahoraevento)) %>%
summarize(cantidad_viajes = n()) %>%
ungroup()
transporte_filtrado <- arrange(transporte_filtrado, fecha)
nombre_csv <- paste0("csv/viajes_total/eot_viajes_dif_total_",eot_actual, ".csv")
write.csv(transporte_filtrado, file = nombre_csv, row.names = FALSE)
titulo <- paste("Total de viajes (Diferencial) (eot:", eot_actual, ")")
eotplot <- ggplot(transporte_filtrado, aes(x = fecha, y = cantidad_viajes, color = eot)) +
geom_line(linewidth = 1) +
scale_y_continuous(expand = c(0, 0)) +
labs(x = "Fecha", y = "Cantidad de viajes", title = titulo) +
theme(legend.position = "bottom", plot.margin = unit(c(2, 2, 0.5, 0.5), "cm"))
nombre_png <- paste0("png/viajes_total/eot_viajes_dif_total_",eot_actual, ".png")
ggsave(nombre_png, width = 48, height = 8.33, dpi = 72)
## Solo Normal
transporte_filtrado <- datos_fusionados %>%
filter(tipoevento == 4, producto == "MO", tipotransporte==1) %>%
group_by(eot_actual, fecha = as.Date(fechahoraevento)) %>%
summarize(cantidad_viajes = n()) %>%
ungroup()
transporte_filtrado <- arrange(transporte_filtrado, fecha)
nombre_csv <- paste0("csv/viajes_total/eot_viajes_nor_total_",eot_actual, ".csv")
write.csv(transporte_filtrado, file = nombre_csv, row.names = FALSE)
titulo <- paste("Total de viajes (Normal) (eot:", eot_actual, ")")
eotplot <- ggplot(transporte_filtrado, aes(x = fecha, y = cantidad_viajes, color = eot)) +
geom_line(linewidth = 1) +
scale_y_continuous(expand = c(0, 0)) +
labs(x = "Fecha", y = "Cantidad de viajes", title = titulo) +
theme(legend.position = "bottom", plot.margin = unit(c(2, 2, 0.5, 0.5), "cm"))
nombre_png <- paste0("png/viajes_total/eot_viajes_nor_total_",eot_actual, ".png")
ggsave(nombre_png, width = 48, height = 8.33, dpi = 72)
## Solo Municipal
transporte_filtrado <- datos_fusionados %>%
filter(tipoevento == 4, producto == "MO", tipotransporte==0) %>%
group_by(eot_actual, fecha = as.Date(fechahoraevento)) %>%
summarize(cantidad_viajes = n()) %>%
ungroup()
transporte_filtrado <- arrange(transporte_filtrado, fecha)
nombre_csv <- paste0("csv/viajes_total/eot_viajes_int_total_",eot_actual, ".csv")
write.csv(transporte_filtrado, file = nombre_csv, row.names = FALSE)
titulo <- paste("Total de viajes (Municipal) (eot:", eot_actual, ")")
eotplot <- ggplot(transporte_filtrado, aes(x = fecha, y = cantidad_viajes, color = eot)) +
geom_line(linewidth = 1) +
scale_y_continuous(expand = c(0, 0)) +
labs(x = "Fecha", y = "Cantidad de viajes", title = titulo) +
theme(legend.position = "bottom", plot.margin = unit(c(2, 2, 0.5, 0.5), "cm"))
nombre_png <- paste0("png/viajes_total/eot_viajes_int_total_",eot_actual, ".png")
ggsave(nombre_png, width = 48, height = 8.33, dpi = 72)
}