Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/ropenspain/mapspain
R package with the administrative boundaries of Spain, including CCAA, provinces and municipalities
https://github.com/ropenspain/mapspain
administrative-boundaries ccaa cran ggplot2 gis gisco ign maps municipalities provinces r r-package ropenspain rstats spain spatial static-tiles tiles
Last synced: 2 months ago
JSON representation
R package with the administrative boundaries of Spain, including CCAA, provinces and municipalities
- Host: GitHub
- URL: https://github.com/ropenspain/mapspain
- Owner: rOpenSpain
- License: gpl-3.0
- Created: 2020-11-06T19:34:38.000Z (about 4 years ago)
- Default Branch: main
- Last Pushed: 2024-04-22T20:55:37.000Z (9 months ago)
- Last Synced: 2024-05-01T14:56:00.851Z (9 months ago)
- Topics: administrative-boundaries, ccaa, cran, ggplot2, gis, gisco, ign, maps, municipalities, provinces, r, r-package, ropenspain, rstats, spain, spatial, static-tiles, tiles
- Language: R
- Homepage: https://ropenspain.github.io/mapSpain/
- Size: 1.48 GB
- Stars: 40
- Watchers: 5
- Forks: 3
- Open Issues: 5
-
Metadata Files:
- Readme: README.Rmd
- Contributing: CONTRIBUTING.md
- License: LICENSE
- Citation: CITATION.cff
- Codemeta: codemeta.json
Awesome Lists containing this project
README
---
output: github_document
always_allow_html: true
editor_options:
markdown:
wrap: 80
---
```{r, include = FALSE}
knitr::opts_knit$set(
progress = TRUE,
base.url = "https://raw.githubusercontent.com/ropenspain/mapSpain/main/"
)
knitr::opts_chunk$set(
collapse = TRUE,
tidy = "styler",
comment = "#>",
fig.path = "img/README-",
warning = FALSE,
message = FALSE,
dev = "ragg_png",
dpi = 300,
out.width = "100%"
)
```
# mapSpain 
[](https://ropenspain.es/)
[](https://CRAN.R-project.org/package=mapSpain)
[](https://cran.r-project.org/web/checks/check_results_mapSpain.html)
[](https://CRAN.R-project.org/package=mapSpain)
[](https://ropenspain.r-universe.dev/mapSpain)
[](https://github.com/rOpenSpain/mapSpain/actions/workflows/check-full.yaml)
[](https://github.com/rOpenSpain/mapSpain/actions/workflows/rhub.yaml)
[](https://app.codecov.io/gh/rOpenSpain/mapSpain)
[](https://doi.org/10.5281/zenodo.5366622)
[](https://www.repostatus.org/#active)
[](https://CRAN.R-project.org/package=mapSpain)
[**mapSpain**](https://ropenspain.github.io/mapSpain/) is a package that
provides spatial **sf** objects of the administrative boundaries of Spain,
including CCAA, provinces and municipalities.
**mapSpain** also provides a leaflet plugin to be used with the [**leaflet**
package](https://rstudio.github.io/leaflet/), that loads several base maps of
public institutions of Spain, and the ability of downloading and processing
static tiles.
Full site with examples and vignettes on
## Installation
Install **mapSpain** from
[**CRAN**](https://CRAN.R-project.org/package=mapSpain):
```{r, eval = FALSE}
install.packages("mapSpain", dependencies = TRUE)
```
You can install the developing version of **mapSpain** using the
[r-universe](https://ropenspain.r-universe.dev/mapSpain):
```{r, eval = FALSE}
# Install mapSpain in R:
install.packages("mapSpain",
repos = c(
"https://ropenspain.r-universe.dev",
"https://cloud.r-project.org"
),
dependencies = TRUE
)
```
Alternatively, you can install the developing version of **mapSpain** with:
```{r, eval = FALSE}
remotes::install_github("rOpenSpain/mapSpain", dependencies = TRUE)
```
## Usage
This script highlights some features of **mapSpain** :
```{r static}
library(mapSpain)
library(sf)
library(dplyr)
census <- mapSpain::pobmun19
# Extract CCAA from base dataset
codelist <- mapSpain::esp_codelist %>%
select(cpro, codauto) %>%
distinct()
census_ccaa <- census %>%
left_join(codelist) %>%
# Summarize by CCAA
group_by(codauto) %>%
summarise(pob19 = sum(pob19), men = sum(men), women = sum(women)) %>%
mutate(
porc_women = women / pob19,
porc_women_lab = paste0(round(100 * porc_women, 2), "%")
)
# Merge into spatial data
ccaa_sf <- esp_get_ccaa() %>%
left_join(census_ccaa)
can <- esp_get_can_box()
# Plot with ggplot
library(ggplot2)
ggplot(ccaa_sf) +
geom_sf(aes(fill = porc_women), color = "grey70", linewidth = .3) +
geom_sf(data = can, color = "grey70") +
geom_sf_label(aes(label = porc_women_lab),
fill = "white", alpha = 0.5,
size = 3, label.size = 0
) +
scale_fill_gradientn(
colors = hcl.colors(10, "Blues", rev = TRUE),
n.breaks = 10, labels = scales::label_percent(),
guide = guide_legend(title = "Porc. women", position = "inside")
) +
theme_void() +
theme(legend.position.inside = c(0.1, 0.6))
```
You can combine `sf` objects with static tiles
```{r tile}
# Get census
census <- mapSpain::pobmun19 %>%
mutate(porc_women = women / pob19) %>%
select(cpro, cmun, porc_women)
# Get shapes
shape <- esp_get_munic_siane(region = "Segovia", epsg = 3857)
provs <- esp_get_prov_siane(epsg = 3857)
shape_pop <- shape %>% left_join(census)
tile <- esp_getTiles(shape_pop, type = "IGNBase.Todo", zoommin = 1)
# Plot
library(ggplot2)
library(tidyterra)
lims <- as.vector(terra::ext(tile))
ggplot(remove_missing(shape_pop, na.rm = TRUE)) +
geom_spatraster_rgb(data = tile, maxcell = 10e6) +
geom_sf(aes(fill = porc_women), color = NA) +
geom_sf(data = provs, fill = NA) +
scale_fill_gradientn(
colours = hcl.colors(10, "RdYlBu", alpha = .5),
n.breaks = 8,
labels = function(x) {
sprintf("%1.0f%%", 100 * x)
},
guide = guide_legend(title = "", )
) +
coord_sf(
xlim = lims[c(1, 2)],
ylim = lims[c(3, 4)],
expand = FALSE
) +
labs(
title = "Share of women in Segovia by town (2019)",
caption = "Source: INE"
) +
theme_void() +
theme(
title = element_text(face = "bold")
)
```
## mapSpain and giscoR
If you need to plot Spain along with another countries, consider using
[**giscoR**](https://ropengov.github.io/giscoR/) package, that is installed as a
dependency when you installed **mapSpain**. A basic example:
```{r giscoR, fig.asp=1}
library(giscoR)
# Set the same resolution for a perfect fit
res <- "20"
all_countries <- gisco_get_countries(resolution = res) %>%
st_transform(3035)
eu_countries <- gisco_get_countries(resolution = res, region = "EU") %>%
st_transform(3035)
ccaa <- esp_get_ccaa(moveCAN = FALSE, resolution = res) %>%
st_transform(3035)
library(ggplot2)
ggplot(all_countries) +
geom_sf(fill = "#DFDFDF", color = "#656565") +
geom_sf(data = eu_countries, fill = "#FDFBEA", color = "#656565") +
geom_sf(data = ccaa, fill = "#C12838", color = "grey80", linewidth = .1) +
# Center in Europe: EPSG 3035
coord_sf(xlim = c(2377294, 7453440), ylim = c(1313597, 5628510)) +
theme(
panel.background = element_blank(),
panel.grid = element_line(colour = "#DFDFDF", linetype = "dotted")
)
```
## A note on caching
Some data sets and tiles may have a size larger than 50MB. You can use
**mapSpain** to create your own local repository at a given local directory
passing the following option:
```{r, eval = FALSE}
esp_set_cache_dir("./path/to/location")
```
When this option is set, **mapSpain** would look for the cached file and it will
load it, speeding up the process.
## Plotting `sf` objects
Some packages recommended for visualization are:
- [**tmap**](https://github.com/r-tmap/tmap)
- [**mapsf**](https://riatelab.github.io/mapsf/)
- [**ggplot2**](https://github.com/tidyverse/ggplot2) +
[**tidyterra**](https://github.com/dieghernan/tidyterra).
- [**leaflet**](https://rstudio.github.io/leaflet/)
## Citation
```{r echo=FALSE, results='asis'}
print(citation("mapSpain"), style = "html")
```
A BibTeX entry for LaTeX users is:
```{r echo=FALSE, comment=''}
toBibtex(citation("mapSpain"))
```
## Contribute
Check the GitHub page for [source
code](https://github.com/ropenspain/mapSpain/).
## Copyright notice
This package uses data from CartoBase SIANE, provided by Instituto Geográfico
Nacional:
> Atlas Nacional de España (ANE) [CC BY
> 4.0](https://creativecommons.org/licenses/by/4.0/deed.en)
> [ign.es](https://www.ign.es/)
See
This package uses data from **GISCO**. GISCO
[(FAQ)](https://ec.europa.eu/eurostat/web/gisco) is a geospatial open data
repository including several data sets at several resolution levels.
*From GISCO \> Geodata \> Reference data \> Administrative Units / Statistical
Units*
> When data downloaded from this page is used in any printed or electronic
> publication, in addition to any other provisions applicable to the whole
> Eurostat website, data source will have to be acknowledged in the legend of
> the map and in the introductory page of the publication with the following
> copyright notice:
>
> EN: © EuroGeographics for the administrative boundaries
>
> FR: © EuroGeographics pour les limites administratives
>
> DE: © EuroGeographics bezüglich der Verwaltungsgrenzen
>
> For publications in languages other than English, French or German, the
> translation of the copyright notice in the language of the publication shall
> be used.
If you intend to use the data commercially, please contact EuroGeographics for
information regarding their license agreements.