En base a la información de la cantidad de automóviles que atraviesan cada peaje por mes, se me ocurrió hacer una estimación de la cantidad de pesos que ingresa en cada peaje. Influenciado por conocer si la Autovía Alta Gracia - Córdoba había recuperado el costo de inversión.
Debido a que los datos no discriminan entre Categoría de Vehículo, la estimación de ingresos se realizará con el Precio de la Categoría 2 (Autos). Además, no se discriminará por las distintas formas de pago (Efectivo, CUIS, Barrera Levantada, etc).
La Cantidad de Pesos será calculada como: La cantidad de vehículos que atravesaron el peaje por mes, multiplicado por el precio de la Categoría 2 para dicha fecha.
Aclaración: Debido al poco detalle de los datos, y a las asumptions hechas, el valor indicado puede variar del valor real.
Datos
Los datos del tránsito registrado en los peajes, fue obtenido del Portal de Datos Abiertos de la Ciudad de Córdoba.
Los datos del precio de los peajes, fueron recopilados a mano de distintas notas periodísticas de medios locales. A saber, 2013, 2014 y 2015
Limpieza de Datos
dfPrecio <- read.csv('../../static/data/recaudacion-peajes-cordoba/precio_peajes.csv',
dec=",", stringsAsFactors = FALSE)
dfPrecio$Ruta <- tolower(dfPrecio$Ruta)
colnames(dfPrecio) <- c("ruta", "2013", "2014", "2015", "2016")
dfPeajes <- read.csv('../../static/data/recaudacion-peajes-cordoba/transito_peajes.csv',
dec=",")
colnames(dfPeajes) <- c("fecha", "total", "ruta 20", "ruta 5", "ruta 36 bower",
"ruta 9 sur", "autopista cba-pilar", "ruta 19", "ruta 9 norte",
"ruta e-53", "ruta e-55")
dfPeajes$fecha <- ymd(dfPeajes$fecha)
dfPeajes <- dfPeajes %>%
select(-total) %>%
melt(id.vars="fecha") %>%
mutate(anio = year(fecha)) %>%
rename(ruta=variable)
dfPrecio <- dfPrecio %>%
melt() %>%
rename(anio=variable)
dfPrecio$anio <- as.numeric(as.character(dfPrecio$anio))
dfPeajes$ruta <- as.character(dfPeajes$ruta)
df <- merge(dfPeajes, dfPrecio, by = c("ruta", "anio"))
colnames(df) <- c("ruta", "anio", "fecha", "cantidad_autos", "precio")
df$recaudacion <- df$cantidad_autos * df$precioAnálisis
Total de Recaudación del período 2013 - 2015
totalPorPeaje <- df %>%
group_by(ruta) %>%
summarise(total=sum(recaudacion))
total <- sum(totalPorPeaje$total)
ggplot(totalPorPeaje, aes(x=reorder(ruta, -total), y=total)) +
geom_bar(stat="identity") +
labs(title="Recaudación por Peaje (Red Acceso a Córdoba)",
subtitle="Estimación de la recaudación por peaje, para el período 2013-2015, en base al precio de la Categoría 2.",
caption = "Open Data Córdoba - Fuente: gobiernoabierto.cordoba.gob.ar") +
scale_y_continuous(labels = dollar) +
theme_fivethirtyeight() +
theme(axis.text.x = element_text(angle=30, hjust=1, vjust=1))+
annotate("text", x="ruta 19", y=300000000, vjust=-0.5,
label=paste0("Total Recaudado: $",paste(round(total / 1e6), "M")),
family = "sans",
alpha=.7) 
Detalle del Total de Ingreso por Peaje para el período 2013-2015
| ruta | total |
|---|---|
| ruta 20 | 471589096 |
| ruta e-53 | 395346688 |
| ruta 5 | 174627382 |
| autopista cba-pilar | 171432969 |
| ruta e-55 | 91430283 |
| ruta 9 norte | 88319304 |
| ruta 19 | 83857321 |
| ruta 36 bower | 78145655 |
| ruta 9 sur | 32338880 |
Peaje Alta Gracia - Córdoba
Según La Voz del Interior, el costo de la Autovía Alta Gracia - Córdoba fue de 153 Millones de pesos. La misma fue inaugurada a finales del 2012 ¿Habrá cubrido ya los costos de construcción?
total <- df %>%
filter(ruta == "ruta 5") %>%
summarize(total=sum(recaudacion)) %>%
as.numeric()
fecha=c('2013-01-01','2014-01-01','2015-01-01')
label=c('$8', '$8 -> $10', '$10 -> $15')
y = c(4000000,6000000,4000000)
aumentos <- data.frame(fecha=ymd(fecha), label=label, y=y)
ggplot(df[df$ruta=="ruta 5", ], aes(x=fecha)) +
geom_line(aes(y=recaudacion), color="steelblue") +
labs(title="Recaudación Peaje Autovia Alta Gracia - Córdoba",
subtitle="Estimación de Recaudación por mes en base al Precio de la Categoría 2.",
caption = "Open Data Córdoba - Fuente: gobiernoabierto.cordoba.gob.ar") + theme_fivethirtyeight() +
theme(axis.text.x = element_text(angle=30, hjust=1, vjust=1)) +
scale_y_continuous(labels = dollar) +
geom_vline(xintercept=as.numeric(aumentos$fecha), linetype=3) +
geom_text(data=aumentos,mapping=aes(x=fecha, y=y, label=label),
angle=90, vjust=-1, size=3.5, fontface='italic') +
annotate("text", x=ymd('2015-07-01'), y=3000000, vjust=-0.5,
label=paste0("Total Recaudado: $",paste(round(total / 1e6), "M")),
family = "sans",
alpha=.7) 
La estimación e Ingresos, para el período 2013 - 2015 del peaje de la autovía Alta Gracia - Córdoba es de $175 M, $22 M más que la inversión hecha de $153 M.
Tránsito Registrado en el Peaje Alta Gracia - Córdoba
Independientemente de los ingresos, que se ven afectados por la inflación, ¿Cómo fue el tránsito registrado en el peaje de Ruta 5?
ggplot(df[df$ruta=="ruta 5", ], aes(x=fecha, y=cantidad_autos)) +
geom_line(color="steelblue") +
labs(title = "Tránsito Peaje Alta Gracia - Córdoba",
subtitle = "Tránsito registrado por mes en el Peaje de la Ruta 5, para el período 2013-2015.",
caption = "Open Data Córdoba - Fuente: gobiernoabierto.cordoba.gob.ar") +
theme_fivethirtyeight() +
theme(axis.text.x = element_text(angle=30, hjust=1, vjust=1))