(Acest articol a fost publicat pentru prima dată pe John Russellși a contribuit cu drag la R-Bloggers). (Puteți raporta problema despre conținutul de pe această pagină aici)
Doriți să vă împărtășiți conținutul pe R-Bloggers? Faceți clic aici dacă aveți un blog sau aici dacă nu.
Revenind în ea
A trecut ceva timp pentru acest site web; O mare parte din munca mea a fost folosită pentru proiecte care nu pot fi împărtășite cu ușurință aici. Acestea fiind spuse, am fost la Edinburgh Fringe în această lună care o susțin pe soția mea și am vrut să folosesc un set de date de marți ordonat pentru a reîmprospăta anumite abilități.
Încărcarea pachetelor necesare și a datelor
Cod în r
library(tidyverse) library(sf) library(rnaturalearth) library(ggview) tuesdata <- tidytuesdayR::tt_load(2025, week = 33) scottish_munros <- tuesdata$scottish_munros
Obținerea unei hărți de bază a Scoției, cu unele corpuri de apă
Primul lucru de care vom avea nevoie este o hartă a Scoției și pentru a vedea dacă putem pune în ea corpuri majore de apă. Putem folosi rnaturalearth Pachet pentru acest lucru, cu avertismentul că corpurile de apă trebuie să fie destul de mari pentru ca aceștia să apară!
Cod în r
scotland <- ne_countries(geounit = "scotland", type = "map_units", scale="large") water <- ne_download(scale=10, type="lakes", category="physical")
Reading layer `ne_10m_lakes' from data source `C:UsersrusseAppDataLocalTempRtmp2dZUJnne_10m_lakes.shp' using driver `ESRI Shapefile' Simple feature collection with 1355 features and 41 fields Geometry type: MULTIPOLYGON Dimension: XY Bounding box: xmin: -165.9656 ymin: -50.66967 xmax: 177.1544 ymax: 81.95521 Geodetic CRS: WGS 84
Cod în r
river <- ne_download(scale=10, type="rivers_lake_centerlines", category="physical")
Reading layer `ne_10m_rivers_lake_centerlines' from data source `C:UsersrusseAppDataLocalTempRtmp2dZUJnne_10m_rivers_lake_centerlines.shp' using driver `ESRI Shapefile' Simple feature collection with 1473 features and 38 fields Geometry type: MULTILINESTRING Dimension: XY Bounding box: xmin: -164.9035 ymin: -52.15775 xmax: 177.5204 ymax: 75.79348 Geodetic CRS: WGS 84
Acum că avem râuri și lacuri, putem noi sf Pachet pentru a oferi un filtru care caută doar râuri și lacuri care se află în latitudinea și longitudinea din Shapefile Scotland.
Cod în r
sf_use_s2(FALSE) waterscotland <- st_filter(water,scotland) riverscotland <- st_filter(river, scotland)
Lucrul pe sisteme de coordonate
În setul de date Tidy Tuesday, Munrosul scoțian se află în rețeaua națională britanică (OSGB36 sau CRS 27700), care este un sistem de coordonate bazat pe metri spre est și spre nord, dintr -un punct din afara punctului de sud și de vest al Marii Britanii (ignorând Insula Nordului).
Deoarece geometria noastră este un sistem geodezic mondial standard, este cel mai ușor să traducem în acest sistem (CRS 4326). În cele din urmă, ar trebui să tragem coordonatele pentru complot.
Cod în r
projection <- st_as_sf(scottish_munros |>
filter(!is.na(xcoord),
!is.na(ycoord)),
coords=c("xcoord","ycoord"),
crs = 27700) |>
st_transform(crs=4326) |>
st_coordinates()
scottish_munros <- scottish_munros |>
filter(!is.na(xcoord)) |>
cbind(projection)
Făcând harta noastră
Acum avem totul pentru a ne face harta. Profit de ggview Pentru a scoate acest lucru, cu acel cod în comentarii.
Cod în r
map <- scotland |>
ggplot() +
geom_sf() +
geom_sf(data=waterscotland, fill="blue") +
geom_sf(data=riverscotland, color="blue") +
geom_point(data=scottish_munros |>
filter(!is.na(`2021`)),
aes(x=X, y=Y, color=`2021`),shape="^", size=3) +
theme_light() +
coord_sf(xlim=c(-10,0)) +
scale_color_brewer(palette="Dark2", direction=-1) +
labs(color="",
title="Munros of Scotland, as classified in 2021",
subtitle="Effect of the Great-Glen Fault",
caption="TidyTuesday") +
theme(legend.position="bottom",
legend.margin=margin(0,0,0,0),
plot.title.position="plot",
axis.title = element_blank(),
panel.background = element_rect(fill="lightblue"),
legend.key = element_rect(fill = NA))
map
Cod în r
# map + canvas(width=4.5, height=4.5, units="in") # ggsave(map, width=4.5, height=4.5, units="in", filename="img/scotlandmap.png")
Citare
Citarea Bibtex:
@online{russell2025,
author = {Russell, John},
title = {Tidy {Tuesday} - {Looking} at {Scottish} {Munros}},
date = {2025-08-20},
url = {https://drjohnrussell.github.io/posts/2025-08-20-Scottish-Munros/},
langid = {en}
}
Pentru atribuire, vă rugăm să citați această lucrare ca:
Russell, Ioan. 2025. „Marți ordonate – uitându -mă la Munros scoțian.” 20 august 2025.
