(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. Acesta va fi folosit pentru a continua eforturile mele open source. Explicația completă este aici: un mesaj personal de la un contribuabil 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.
Am primit această întrebare: Cum puteți complota o hartă a Regatului Unit cu GGPLOT2?
Răspunsul este că trebuie să citiți un fișier geojson sau echivalent cu pachetul SF și apoi să utilizați geom_sf() Funcție de la GGPLOT2.
Scuzele mele dacă căutarea mea online nu a fost bună, dar toate motoarele de căutare din Canada s-au agravat după ce a fost adoptată Bill C-18. Am găsit acest lucru întreținut de Martin Chorley, am crezut că citirea datelor poate fi simplificată și așa am început un pachet de date mic.
Puteți instala versiunea de dezvoltare a UKMAP -urilor, așa cum trebuie să instalați v0.0.1:
remotes::install_github("pachadotdev/ukmaps")
Și iată un exemplu simplu despre modul de utilizare a lui DPlyr și GGPLOT2:
library(ukmaps)
library(dplyr)
library(ggplot2)
london_areas <- c(
"City of London", "Barking and Dagenham", "Barnet", "Bexley", "Brent", "Bromley",
"Camden", "Croydon", "Ealing", "Enfield", "Greenwich", "Hackney", "Hammersmith and Fulham",
"Haringey", "Harrow", "Havering", "Hillingdon", "Hounslow", "Islington",
"Kensington and Chelsea", "Kingston upon Thames", "Lambeth", "Lewisham", "Merton",
"Newham", "Redbridge", "Richmond upon Thames", "Southwark", "Sutton",
"Tower Hamlets", "Waltham Forest", "Wandsworth", "Westminster"
)
d <- administrative %>%
filter(country == "England") %>%
mutate(is_london = if_else(area_name %in% london_areas, "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 an administrative area of London?") +
labs(title = "Map of England with Administrative 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 🙂
