(Acest articol a fost publicat pentru prima dată pe pacha.dev/blogș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.
Din cauza întârzierilor cu plata bursei mele, dacă această postare vă este utilă, vă cer cu drag o donație minimă pentru a -mi cumpăra o cafea care va fi folosită pentru a continua eforturile mele open source. Dacă aveți nevoie de un pachet R sau un tablou de bord strălucitor pentru echipa dvs., puteți să -mi trimiteți un e -mail sau să întrebați pe Fiverr. Explicația completă este aici: un mesaj personal de la un contribuabil open source
Continuând cu întrebarea anterioară a blogului „Cum puteți complota o hartă a Regatului Unit cu GGPLOT2?”
Am început să lucrez mai mult la UKMAP -urile pentru complotul ușor al zonelor administrative și electorale.
Puteți instala versiunea de dezvoltare a UKMAPS (v0.0.2) cu:
remotes::install_github("pachadotdev/ukmaps")
DA/NU MAP ALDRUMENTULUI ADMINISTRATIVE LONDRA
library(ukmaps)
library(dplyr)
library(ggplot2)
d <- administrative %>%
mutate(is_london = if_else(region == "London", "Yes", "No"))
pal <- c("#165976", "#d04e66")
ggplot(d) +
geom_sf(aes(fill = is_london, geometry = geometry), color = "white") +
scale_fill_manual(values = pal, name = "Is this London?") +
labs(title = "Map of England with Administrative Boundaries") +
theme_minimal(base_size = 13)
Harta la nivel de țară a Regatului Unit
pal <- c("#165976", "#d04e66", "#ffd613")
# country() aggregates the map to country level
ggplot(country()) +
geom_sf(aes(fill = country, geometry = geometry), color = "white") +
scale_fill_manual(values = pal, name = "Country") +
labs(title = "Map of England with Country Boundaries") +
theme_minimal(base_size = 13)
În ce parte din Barnet se află Golders Green?
d <- electoral %>%
filter(lad_name == "Barnet" & boundary_type == "ward") %>%
mutate(is_golders_green = if_else(area_name == "Golders Green", "Yes", "No"))
pal <- c("#165976", "#d04e66")
ggplot(d) +
geom_sf(aes(fill = is_golders_green, geometry = geometry), color = "white") +
scale_fill_manual(values = pal, name = "Is this Golders Green?") +
labs(title = "Map of Barnet (London) with Electoral Boundaries") +
theme_minimal(base_size = 13)
Voi îmbunătăți în curând seturile de date pentru a permite filtrarea pe oraș și multe altele.
Sper că acest lucru este util 🙂
