RStudio project

Open the RStudio project that we created in the first session. I recommend to use this RStudio project for the entire course and within the RStudio project create separate R scripts for each session.

• Create a new empty R script by going to the tab “File”, select “New File” and then “R script”
• In the new R script, type # Session b2: Environmental data and save the file in your folder “scripts” within your project folder, e.g. as “b2_EnvData.R”

In species distribution modelling, we aim to understand how species’ occurrence are related to environment. Thus, additional to our species data, we need environmental information. Many environmental data are now available at very high spatial resolution, e.g. lidar data (Bakx et al. 2019). However, often, high resolution data are not necessarily available globally - although the data are constantly improving. I can’t give you a full overview over all available data sets. Rather, you should get an idea how you process the data to make best use of them for your biodiversity models.

# 1 Climate data

The geodata package is offering direct access to some standard repositories; see the help pages ?geodata. We will use this for extracting climate data from the worldclim data base (http://worldclim.org/)(Hijmans et al. 2005). Please note that also other climatologies exist, e.g. the Chelsa climatologies (http://chelsa-climate.org/)(Karger et al. 2017). However, we here stick to the data offered through the geodata package.

## 1.1 Current climate

First, we download the 19 bioclimatic variables at a 10’ resolution, following the same procedure as in practical a1. Do you remember what the 19 bioclimatic variables are? See here: https://www.worldclim.org/data/bioclim.html. Remember to think about your folder structure, where you want to store the climate data!

library(geodata)
## terra 1.5.21
clim <- geodata::worldclim_global(var = 'bio', res = 10, download = F, path = 'data')

# Now, let's look at the data:
clim
## class       : SpatRaster
## dimensions  : 1080, 2160, 19  (nrow, ncol, nlyr)
## resolution  : 0.1666667, 0.1666667  (x, y)
## extent      : -180, 180, -90, 90  (xmin, xmax, ymin, ymax)
## coord. ref. : lon/lat WGS 84 (EPSG:4326)
## sources     : wc2.1_10m_bio_1.tif
##               wc2.1_10m_bio_2.tif
##               wc2.1_10m_bio_3.tif
##               ... and 16 more source(s)
## names       : wc2.1~bio_1, wc2.1~bio_2, wc2.1~bio_3, wc2.1~bio_4, wc2.1~bio_5, wc2.1~bio_6, ...
## min values  :  -54.724354,    1.000000,    9.131122,    0.000000,  -29.686001,  -72.500252, ...
## max values  :    30.98764,    21.14754,   100.00000,  2363.84595,    48.08275,    26.30000, ...
# Can you explain, what a raster stack is?
plot(clim)

Remember that the terra package offers different functionalities to manipulate the spatial data, for example aggregating the data to coarser resolutions (aggregate), cropping (crop()), and adding spatial layers to a SpatRaster object (c()):

terra::aggregate(clim[[1]], fact=6, fun="mean")

## 1.2 Future climate scenarios

The Chelsa and worldclim data bases also offer downscaled climate scenarios. The scenarios stem from the World Climate Research Programme Coupled Model Intercomparison Projects (CMIPs). The most recent is the CMIP6 and the corresponding scenarios can be downloaded form the Chelsa or worlclim websites. For the latter, the downscaled climate scenarios are again accessible through the geodata package (?geodata::cmip6_world). In the function geodata::cmip6_world(), we have to indicate which model (global circulation model, GCM) we want to download, which ssp (shared socioeconomic pathway, SSP) and which time period (projection period; e.g., 2041-2060). More information on the model abbreviations and the available SSPs can be found here: https://www.worldclim.org/data/cmip6/cmip6_clim10m.html. As above, we have to provide var and res arguments as well.

# Inspect the SpatRaster object:
clim_fut
## class       : SpatRaster
## dimensions  : 1080, 2160, 19  (nrow, ncol, nlyr)
## resolution  : 0.1666667, 0.1666667  (x, y)
## extent      : -180, 180, -90, 90  (xmin, xmax, ymin, ymax)
## coord. ref. : lon/lat WGS 84 (EPSG:4326)
## source      : wc2.1_10m_bioc_ACCESS-ESM1-5_ssp245_2041-2060.tif
## names       :  bio01,  bio02,  bio03,  bio04,  bio05,  bio06, ...
## min values  :  -52.8,    0.0,    0.3,   11.1,  -28.1,  -70.2, ...
## max values  :   33.3,   21.5,   94.7, 2299.4,   51.7,   26.2, ...

We see that the current and future climate SpatRaster objects have different layer names. This could cause problems in distribution modelling and we thus want make sure that they all have the same layer names.

# Inspect layer names
names(clim)
##  [1] "wc2.1_10m_bio_1"  "wc2.1_10m_bio_2"  "wc2.1_10m_bio_3"  "wc2.1_10m_bio_4"
##  [5] "wc2.1_10m_bio_5"  "wc2.1_10m_bio_6"  "wc2.1_10m_bio_7"  "wc2.1_10m_bio_8"
##  [9] "wc2.1_10m_bio_9"  "wc2.1_10m_bio_10" "wc2.1_10m_bio_11" "wc2.1_10m_bio_12"
## [13] "wc2.1_10m_bio_13" "wc2.1_10m_bio_14" "wc2.1_10m_bio_15" "wc2.1_10m_bio_16"
## [17] "wc2.1_10m_bio_17" "wc2.1_10m_bio_18" "wc2.1_10m_bio_19"
names(clim_fut)
##  [1] "bio01" "bio02" "bio03" "bio04" "bio05" "bio06" "bio07" "bio08" "bio09"
## [10] "bio10" "bio11" "bio12" "bio13" "bio14" "bio15" "bio16" "bio17" "bio18"
## [19] "bio19"
# In this case, let's keep the names of the future climate layers
names(clim) <- names(clim_fut)

You can also write SpatRaster objects to file:

terra::writeRaster(clim,filename='data/bioclim_global_res10.grd')
terra::writeRaster(clim_fut,filename='data/bioclim_fut_global_res10.grd')

*.grd was the native file format of the raster package, the predecessor of terra, which we will also use here. It consists of two files, a data file and a header file (*.gri).

# 2 Land cover data

The geodata package also offers access to other environmental data useful for species distribution modelling, for example soil (?geodata::soil_world) and land cover data (?geodata::landcover).

The land cover data are derived from the ESA WorldCover data set (https://esa-worldcover.org/en) that “provides a new baseline global land cover product at 10 m resolution for 2020 based on Sentinel-1 and 2 data”. The geodata package offers the fractional cover at 30-seconds spatial resolution (c. 1 km at the equator). For illustration, let`s download tree cover globally.

# map the tree cover
plot(trees_30sec)

Above, we used climate data at 10-min spatial resolution. To obtain the same spatial resolution for the land cover, we have to aggregate the SpatRaster object.

# Aggregate tree cover to 10-min spatial resolution
trees_10min <- terra::aggregate(trees_30sec, fact=20, fun='mean')

# Map the 10-min tree cover
plot(trees_10min)

Now that our tree cover data and climate data are at the same spatial resolution, we can stack them into a multi-layer object. But caution, the SpatRaster objects also need to have the same spatial extent.

# This produces an error that spatial extents do not match:
env_cur <- c(clim, trees_10min)
## Error: [c] extents do not match
# Which SpatRaster object has the larger extent?
terra::ext(clim)
## SpatExtent : -180, 180, -90, 90 (xmin, xmax, ymin, ymax)
terra::ext(trees_10min)
## SpatExtent : -180, 179.99999999999, -59.999999999996, 84 (xmin, xmax, ymin, ymax)
# As the climate data have the larger extent, we now have to "extend" our land cover extent
terra::extend(trees_10min, clim)
## class       : SpatRaster
## dimensions  : 1080, 2160, 1  (nrow, ncol, nlyr)
## resolution  : 0.1666667, 0.1666667  (x, y)
## extent      : -180, 180, -90, 90  (xmin, xmax, ymin, ymax)
## coord. ref. : lon/lat WGS 84 (EPSG:4326)
## source      : memory
## name        : trees
## min value   :     0
## max value   :     1
# Produce the multi-layer environmental data object with matching extents:
env_cur <- c(clim, terra::extend(trees_10min, clim))

# 3 Joining species and environmental data

Last, we can join our species and environmental data. Such joined species-environment data later serve as input to our species distribution models.

# Load our previously saved species data:

When we have coordinate data, as we have in the GBIF data, we can use these coordinates to “pierce” through SpatRaster layers. That’s one of the easiest ways to extract relevant environmental data for our species records. However, as a very first step we have to decide which GBIF information should be retained in our data set.

# The GBIF data contain a lot of columns that we probably don't need:
# I suggest to keep the following columns for now:
gbif_shrew2 <- gbif_shrew_cleaned[,
c("key", "scientificName", "decimalLatitude", "decimalLongitude", "basisOfRecord", "speciesKey", "species", "year")]

# We can extract the environmental data for the GBIF coordinates.
# Coordinates are always provided as x/y format, in our case lon/lat.
# We also extract the cellnumbers as this allows checking for duplicates later.
y = data.frame(gbif_shrew2[,c('decimalLongitude','decimalLatitude')]), cells=T ))
##   ID     bio01    bio02    bio03    bio04    bio05     bio06    bio07
## 1  1  7.270885 7.534187 31.68021 620.8614 20.47400  -3.30800 23.78200
## 2  2  4.816854 8.241750 32.97227 642.4404 18.51350  -6.48250 24.99600
## 3  3  1.933708 7.849333 32.20338 618.3358 15.02825  -9.34600 24.37425
## 4  4  6.676677 8.420730 33.06688 647.4366 20.25700  -5.20875 25.46575
## 5  5  6.212885 7.650979 31.76723 618.3282 19.67525  -4.40925 24.08450
## 6  6 -1.754688 6.003083 28.10662 575.0613  9.43725 -11.92100 21.35825
##         bio08     bio09     bio10       bio11 bio12 bio13 bio14    bio15 bio16
## 1  0.93241668 11.987416 15.037042 -0.06904169  1647   163   106 12.67606   471
## 2 12.81137466 -2.760458 12.811375 -2.76045823   718    97    29 40.07499   280
## 3  9.63362503 -5.287750  9.633625 -5.28775024   602    72    32 27.13003   210
## 4 14.64579201 -1.110458 14.645792 -1.11045825  1320   180    67 37.32344   518
## 5 -0.03720826 13.678833 13.891167 -1.10304165  1419   137   102 10.11438   397
## 6  5.29154158 -8.357875  5.291542 -8.35787487  1525   174    89 19.91471   490
##   bio17 bio18 bio19     trees   cell
## 1   357   393   446 0.8767838 536811
## 2    96   280    96 0.5612405 560588
## 3   108   210   108 0.4474288 562744
## 4   214   518   214 0.4956300 549785
## 5   326   334   382 0.7711515 562717
## 6   296   490   296 0.1075802 556277
# Finally, we put species and environmental data into the same data frame:
gbif_shrew2 <- cbind(gbif_shrew2, terra::extract(x = env_cur, y = data.frame(gbif_shrew2[,c('decimalLongitude','decimalLatitude')]), cells=T ))

We now have to inspect the data again to see whether we have any missing values or any other issues.

summary(gbif_shrew2)

Because we superimposed an arbitrary resolution now when joining the GBIF and environmental data, we could potentially have multiple records in a single raster cell. As we have extracted the cell numbers from the SpatRaster object, checking for duplicates is very simple.

# Check for duplicates
duplicated(gbif_shrew2$cells) ## logical(0) # Only retain non-duplicated cells (will not work in this example as we don't have duplicates): gbif_shrew_env <- gbif_shrew2[!duplicated(gbif_shrew2$cells),]

save(gbif_shrew2, gbif_shrew_cleaned,file='data/gbif_shrew_cleaned.RData')

Exercise:

• Choose another climate scenario, download the data and create two new data sets merging the GBIF data for your own species (from practical b1) with each of the climate scenarios, respectively.
• Choose another land cover class, download the data and aggregate to the appropriate spatial resolution. Merge the GBIF data for your own species (from practical b1) with the current climate and land cover data.

# References

Bakx, T. R. M., Z. Koma, A. C. Seijmonsbergen, and W. D. Kissling. 2019. “Use and Categorization of Light Detection and Ranging Vegetation Metrics in Avian Diversity and Species Distribution Research.” Diversity and Distributions 25 (7): 1045–59. https://doi.org/10.1111/ddi.12915.
Hijmans, R. J., S. E. Cameron, J. L. Parra, P. G. Jones, and A. Jarvis. 2005. “Very High Resolution Interpolated Climate Surfaces for Global Land Areas.” International Journal of Climatology 25 (15): 1965–78. https://doi.org/10.1002/joc.1276.
Karger, D. N., O. Conrad, J. Boehner, T. Kawohl, H. Kreft, R. Wilber Soria-Auza, N. E. Zimmermann, H. P. Linder, and M. Kessler. 2017. “Climatologies at High Resolution for the Earth’s Land Surface Areas.” Scientific Data 4 (September): 170122.