qt22_view_total

Quarto

Balance de Inyecciones y Extracciones

Este reporte describe el resultado de restar las extracciones a las inyecciones de cada zona tarifaria.

Inspeccion global

`summarise()` has grouped output by 'dia', 'zona'. You can override using the
`.groups` argument.

p <- make_bloom_plot(sistra_i, x = dia, y = flujo, color = tipo,
                     title = "Inyecciones y Entregas de Gas Natural por Zona Tarifaria (SISTRANGAS)",
                            subtitle = "Flujos diarios agregados por tipo de operación (2015 - 25)") +
  facet_grid(. ~ zona) +
  guides(x = guide_axis(n.dodge = 1))

Warning: The `size` argument of `element_line()` is deprecated as of ggplot2 3.4.0.
ℹ Please use the `linewidth` argument instead.

print(p)

# Save the plot with high quality
ggsave("qt_outputs/qt22_outputs/images/qt22_sistra_plot.png", plot = p,
       width = 8, height = 4, dpi = 300, units = "in")

`summarise()` has grouped output by 'dia'. You can override using the `.groups`
argument.

p <- make_bloom_plot(sistra_i, x = dia, y = bal, color = balance,
                     title = "Diferencia iny - ext de Gas Natural por Zona Tarifaria (SISTRANGAS)",
                            subtitle = "Flujos diarios agregados por tipo de operación (2015 - 25)") +
  facet_grid(. ~ zona) +
  guides(x = guide_axis(n.dodge = 1))

print(p)

# Save the plot with high quality
ggsave("qt_outputs/qt22_outputs/images/qt22_sistra_plot_def.png", plot = p,
       width = 8, height = 4, dpi = 300, units = "in")

sistra_i <- sistra_i %>%
  filter(zona == "Zona 8")

# Custom breaks every 2 years
custom_breaks <- as.Date(c("2015-01-01", "2017-01-01", "2019-01-01", "2021-01-01", "2023-01-01", "2025-01-01"))
custom_labels <- format(custom_breaks, "%Y")

p <- make_bloom_plot(sistra_i, x = dia, y = bal, color = balance,
                     title = "Diferencia inyecciones - extracciones de Gas Natural (SISTRANGAS)",
                            subtitle = "Flujos diarios agregados en Zona 8 (2015 - 25)",
                     caption = "Fuente: CENAGAS, datos públicos procesados por GADEX.",
                     x_breaks = custom_breaks,
                     x_labels = custom_labels)


print(p)

# Save the plot with high quality
ggsave("qt_outputs/qt22_outputs/images/qt22_sistra_plot_z8.png", plot = p,
       width = 8, height = 4, dpi = 300, units = "in")

Exportacion como tibble

saveRDS(sistra_i, "qt_outputs/qt22_outputs/qt22_sistra_i.rds")