(Acest articol a fost publicat pentru prima dată pe r.iresmi.netși cu amabilitate a contribuit la R-bloggeri). (Puteți raporta problema legată de conținutul acestei pagini aici)
Doriți să vă distribuiți conținutul pe R-bloggeri? dați clic aici dacă aveți un blog, sau aici dacă nu aveți.
Ziua 11 din 30DayMapChallenge: „Minim” (anterior).
Un set de date recent al sistemului rutier al Imperiului Roman tocmai a fost publicat (de Soto et al. 2025) și este actualizat pe Itiner-e de unde putem descărca actualul GeoJSON. Să actualizăm o postare veche.
library(dplyr) library(ggplot2) library(glue) library(sf) library(rnaturalearth) library(rnaturalearthhires)
Date
if (!file.exists("itiner.geojson")) {
download.file("https://itiner-e.org/route-segments/download",
"itiner.geojson")
}
roads <- read_sf("itiner.geojson") |>
mutate(type = factor(type, levels = c("Main Road",
"Secondary Road",
"River",
"Sea Lane"))) |>
st_transform("EPSG:3035")
# map background
world <- ne_countries(scale = 50)
Hartă
bb <- st_bbox(roads)
ggplot() +
geom_sf(data = world, fill = "snow2", color = "snow2") +
geom_sf(data = roads, aes(color = type, linetype = type, linewidth = type)) +
scale_color_manual(
values = c("Main Road" = "chocolate4",
"Secondary Road" = "chocolate2",
"River" = "steelblue1",
"Sea Lane" = "slategray1")) +
scale_linetype_manual(
values = c("Main Road" = 1,
"Secondary Road" = 1,
"River" = 1,
"Sea Lane" = 2)) +
scale_linewidth_manual(
values = c("Main Road" = .5,
"Secondary Road" = .2,
"River" = .2,
"Sea Lane" = .2)) +
coord_sf(crs = "EPSG:3035",
xlim = bb(c(1, 3)), ylim = bb(c(2, 4))) +
labs(title = "Roman roads",
caption = glue("https://r.iresmi.net/ - {Sys.Date()}
{st_crs(roads)$Name}
data: Itiner-e doi:10.1038/s41597-025-06140-z / Natural Earth")) +
theme_minimal() +
theme(plot.caption = element_text(size = 6,
color = "darkgrey"),
legend.position = "bottom")
Figura 1: Sistemul rutier al Imperiului Roman
Referințe
de Soto, Pau, Adam Pažout, Tom Brughmans, Peter Bjerregaard Vahlstrup, Álvaro Auir, Toon Bongers, Jens Emil Bødstrup Christoffersen și colab. 2025. „Itinerul-e: O Setul de date de înaltă rezoluție al drumurilor din Imperiul Roman.” Date științifice 12 (1): 1731. https://doi.org/10.1038/s41597-025-06140-z.
