View source: R/esp-get-hypsobath.R
| esp_get_hypsobath | R Documentation |
Dataset representing the hypsometry and bathymetry of Spain.
Hypsometry represents the elevation and depth of features of the Earth's surface relative to mean sea level.
Bathymetry is the measurement of the depth of water in oceans, rivers, or lakes.
esp_get_hypsobath(
epsg = 4258,
cache = TRUE,
update_cache = FALSE,
cache_dir = NULL,
verbose = FALSE,
resolution = c(3, 6.5),
spatialtype = c("area", "line")
)
epsg |
character string or number. Projection of the map: 4-digit EPSG code. One of:
|
cache |
logical. Whether to do caching. Default is |
update_cache |
logical. Should the cached file be refreshed? Default
is |
cache_dir |
character string. A path to a cache directory. See
Caching strategies section in |
verbose |
logical. If |
resolution |
character string or number. Resolution of the geospatial data. One of:
|
spatialtype |
character string. Spatial type of the output. Use
|
Metadata available on https://github.com/rOpenSpain/mapSpain/tree/sianedata/.
A sf object.
CartoBase ANE provided by Instituto Geografico Nacional (IGN), http://www.ign.es/web/ign/portal. Years available are 2005 up to today.
Copyright: https://centrodedescargas.cnig.es/CentroDescargas/cartobase-ane
It's necessary to always acknowledge authorship using the following formulas:
When the original digital product is not modified or altered, it can be expressed in one of the following ways:
CartoBase ANE 2006-2024 CC-BY 4.0 ign.es
CartoBase ANE 2006-2024 CC-BY 4.0 Instituto Geográfico Nacional
When a new product is generated:
Obra derivada de CartoBase ANE 2006-2024 CC-BY 4.0 ign.es
Data distributed via a custom CDN, see https://github.com/rOpenSpain/mapSpain/tree/sianedata.
Other natural features:
esp_get_hydrobasin(),
esp_get_landwater
# This code will produce a nice plot - It will take a few seconds to run
library(ggplot2)
hypsobath <- esp_get_hypsobath()
# Tints from Wikipedia
# https://en.wikipedia.org/wiki/Wikipedia:WikiProject_Maps/Conventions/
# Topographic_maps
levels <- sort(unique(hypsobath$val_inf))
# Create Manual pal
br_bath <- length(levels[levels < 0])
br_terrain <- length(levels) - br_bath
pal <- c(
tidyterra::hypso.colors(br_bath, "wiki-2.0_bathy"),
tidyterra::hypso.colors(br_terrain, "wiki-2.0_hypso")
)
# Plot Canary Islands
ggplot(hypsobath) +
geom_sf(aes(fill = as.factor(val_inf)),
color = NA
) +
coord_sf(
xlim = c(-18.6, -13),
ylim = c(27, 29.5)
) +
scale_fill_manual(values = pal) +
guides(fill = guide_legend(
title = "Elevation",
direction = "horizontal",
label.position = "bottom",
title.position = "top",
nrow = 1
)) +
theme(legend.position = "bottom")
# Plot Mainland
ggplot(hypsobath) +
geom_sf(aes(fill = as.factor(val_inf)),
color = NA
) +
coord_sf(
xlim = c(-9.5, 4.4),
ylim = c(35.8, 44)
) +
scale_fill_manual(values = pal) +
guides(fill = guide_legend(
title = "Elevation",
reverse = TRUE,
keyheight = .8
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.