geom_sf
geom_path
Autor

Víctor Gauto

Fecha de publicación

27 de abril de 2024

Mapa de la red eléctrica en Argentina, mostrando líneas de alta tensión y plantas transformadoras.

Red eléctrica en Argentina.

Paquetes

Ocultar código 
library(sf)
library(tidyverse)
library(glue)
library(showtext)
library(ggtext)

Estilos

Colores de escalas de grises

Ocultar código 
l1 <- "grey10"
l2 <- "grey15"
l3 <- "grey20"
l4 <- "grey25"
l5 <- "grey90"
p1 <- "#054544"
p2 <- "#175F5D"
p3 <- "#178F92"
p4 <- "#4FB6CA"
p5 <- "#EAF3FF"

Fuentes: Ubuntu, JetBrains Mono y Voltage.

Ocultar código 
font_add(
  family = "ubuntu",
  regular = "././fuente/Ubuntu-Regular.ttf",
  bold = "././fuente/Ubuntu-Bold.ttf",
  italic = "././fuente/Ubuntu-Italic.ttf"
)

font_add(
  family = "jet",
  regular = "././fuente/JetBrainsMonoNLNerdFontMono-Regular.ttf"
)

font_add(
  family = "voltage",
  regular = "././fuente/Voltage-Regular.otf"
)

showtext_auto()
showtext_opts(dpi = 300)

Epígrafe

Ocultar código 
fuente <- glue(
  "<b>Datos:</b> <span style='color:{p4};'>Instituto Geográfico Nacional</span>"
)
autor <- glue("<span style='color:{p4};'>Víctor Gauto</span>")
icon_twitter <- glue("<span style='font-family:jet;'>&#xeb72;</span>")
icon_instagram <- glue("<span style='font-family:jet;'>&#xf16d;</span>")
icon_github <- glue("<span style='font-family:jet;'>&#xf09b;</span>")
icon_mastodon <- glue("<span style='font-family:jet;'>&#xf0ad1;</span>")
icon_bluesky <- glue("<span style='font-family:jet;'>&#xe28e;</span>")
usuario <- glue("<span style='color:{p4};'>vhgauto</span>")
sep <- glue("**|**")

mi_caption <- glue(
  "{fuente} {sep} {autor} {sep} <b>{icon_github} {icon_twitter} ",
  "{icon_instagram} {icon_mastodon} {icon_bluesky}</b> {usuario}"
)

Datos

Vector del contorno continental de Argentina, obtenido del Instituto Geográfico Nacional (IGN).

Ocultar código 
p <- st_read("argentina/vectores/arg_continental.gpkg") |>
  st_transform(crs = "EPSG:5346")

Vector del tendido eléctrico de Argentina y plantas transformadoras.

Ocultar código 
lin_elec <- st_read("argentina/vectores/extras/lineas_de_energia_AT030.json") |>
  st_transform(crs = "EPSG:5346")
planta_transf <- st_read(
  "argentina/vectores/extras/puntos_de_energia_AD030.json"
) |>
st_transform(crs = "EPSG:5346")

Mantengo únicamente las líneas de alta tensión y plantas transformadoras activas.

Ocultar código 
alta_tension <- lin_elec |>
  filter(ten == 6) |>
  filter(fun == 6) |>
  st_union() |>
  st_line_merge() |>
  st_coordinates() |>
  as.data.frame()

planta_transf_act <- planta_transf |>
  filter(fun == 6)

Figura

Título y subtítulo.

Ocultar código 
mi_titulo <- "RED ELECTRICA ARGENTINA"

mi_subtitulo <- "Las líneas representan la red de alta tensión y<br>
  los puntos las plantas transformadoras."
Ocultar código 
g <- ggplot() +
  geom_sf(data = p, fill = "black", color = NA) +
  geom_path(
    data = alta_tension, aes(x = X, y = Y, group = L1),
    color = l1, linewidth = 7, lineend = "round") +
  geom_path(
    data = alta_tension, aes(x = X, y = Y, group = L1),
    color = l2, linewidth = 5, lineend = "round") +
  geom_path(
    data = alta_tension, aes(x = X, y = Y, group = L1),
    color = l3, linewidth = 3, lineend = "round") +
  geom_path(
    data = alta_tension, aes(x = X, y = Y, group = L1),
    color = l4, linewidth = 1, lineend = "round") +
  geom_path(
    data = alta_tension, aes(x = X, y = Y, group = L1),
    color = l5, linewidth = .2, lineend = "round") +
  geom_sf(data = planta_transf_act, size = 5, color = p1) +
  geom_sf(data = planta_transf_act, size = 4, color = p2) +
  geom_sf(data = planta_transf_act , size = 3, color = p3) +
  geom_sf(data = planta_transf_act , size = 2, color = p4) +
  geom_sf(data = planta_transf_act , size = .1, color = p5) +
  labs(
    title = mi_titulo,
    subtitle = mi_subtitulo,
    caption = mi_caption) +
  theme_void() +
  theme(
    plot.background = element_rect(fill = "grey5", color = p4, linewidth = 3),
    plot.margin = margin(15, 24, 15, 24),
    plot.title.position = "plot",
    plot.title = element_markdown(
      color = p4, size = 100, family = "voltage", hjust = .5
    ),
    plot.subtitle = element_markdown(
      color = p5, size = 25, hjust = .5, family = "ubuntu", lineheight = 1.3
    ),
    plot.caption.position = "plot",
    plot.caption = element_markdown(
      color = p5, family = "ubuntu", size = 23, margin = margin(10, 0, 5, 0),
      hjust = .5
    )
  )

Guardo.

Ocultar código 
ggsave(
  plot = g,
  filename = "argentina/instalaciones/red_electrica.png",
  width = 30,
  height = 69,
  units = "cm",
  dpi = 300
)
Subir