-
Notifications
You must be signed in to change notification settings - Fork 0
/
metadatabase.Rmd
333 lines (274 loc) · 21.2 KB
/
metadatabase.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
---
title: "Meta-database"
author: "Robert Schlegel"
date: '`r format(Sys.Date(), "%d %B %Y")`'
output: workflowr::wflow_html
editor_options:
chunk_output_type: console
csl: frontiers.csl
bibliography: FACE-IT.bib
---
```{r global_options, include = FALSE}
knitr::opts_chunk$set(fig.width = 8, fig.align = 'center',
echo = FALSE, warning = FALSE, message = FALSE,
eval = TRUE, tidy = FALSE)
```
## Introduction
```{r setup}
# Necessary libraries
library(tidyverse)
library(tidync)
library(ijtiff)
library(DT)
```
```{r meta-data-func}
# Function for smoother meta-data creation
make_meta_data <- function(dat, file_name, data_type, URL, reference, note = NA){
# Find longitude range
lon_col <- c(colnames(dat)[str_detect(colnames(dat), "lon")],
colnames(dat)[str_detect(colnames(dat), "Lon")])
if(length(lon_col) > 0){
lon_min <- round(min(dat[,lon_col], na.rm = T), 2)
lon_max <- round(max(dat[,lon_col], na.rm = T), 2)
} else {
lon_min <- NA; lon_max <- NA
}
# Find latitude range
lat_col <- c(colnames(dat)[str_detect(colnames(dat), "lat")],
colnames(dat)[str_detect(colnames(dat), "Lat")])
if(length(lat_col) > 0){
lat_min <- round(min(dat[,lat_col], na.rm = T), 2)
lat_max <- round(max(dat[,lat_col], na.rm = T), 2)
} else {
lat_min <- NA; lat_max <- NA
}
# Find depth range
depth_col <- c(colnames(dat)[str_detect(colnames(dat), "depth")],
colnames(dat)[str_detect(colnames(dat), "Depth")])
depth_col <- depth_col[!str_detect(depth_col, "bot")]
depth_col <- depth_col[!str_detect(depth_col, "Bot")]
if(length(depth_col) > 0){
depth_min <- round(min(dat[,depth_col], na.rm = T), 2)
depth_max <- round(max(dat[,depth_col], na.rm = T), 2)
} else {
depth_min <- NA; depth_max <- NA
}
# Find depth range
date_col <- c(colnames(dat)[str_detect(colnames(dat), "date")],
colnames(dat)[str_detect(colnames(dat), "Date")])
year_col <- c(colnames(dat)[str_detect(colnames(dat), "year")],
colnames(dat)[str_detect(colnames(dat), "Year")])
if(length(date_col) > 0){
date_dat <- dat[,date_col] %>% `colnames<-`("t")
if(!is.na(as.Date(date_dat$t[1], "%Y-%m-%d"))){
date_min <- min(lubridate::year(as.Date(date_dat$t, "%Y-%m-%d")), na.rm = T)
date_max <- max(lubridate::year(as.Date(date_dat$t, "%Y-%m-%d")), na.rm = T)
} else if(!is.na(as.Date(date_dat$t[1], "%Y%m%d"))){
date_min <- min(lubridate::year(as.Date(date_dat$t, "%Y%m%d")), na.rm = T)
date_max <- max(lubridate::year(as.Date(date_dat$t, "%Y%m%d")), na.rm = T)
}else if(!is.na(as.Date(date_dat$t[1], "%Y/%m/%d"))){
date_min <- min(lubridate::year(as.Date(date_dat$t, "%Y/%m/%d")), na.rm = T)
date_max <- max(lubridate::year(as.Date(date_dat$t, "%Y/%m/%d")), na.rm = T)
} else if(!is.na(as.Date(date_dat$t[1], "%d/%m/%Y"))){
date_min <- min(lubridate::year(as.Date(date_dat$t, "%d/%m/%Y")), na.rm = T)
date_max <- max(lubridate::year(as.Date(date_dat$t, "%d/%m/%Y")), na.rm = T)
} else if(!is.na(as.Date(date_dat$t[1], "%m/%d/%Y"))){
date_min <- min(lubridate::year(as.Date(date_dat$t, "%m/%d/%Y")), na.rm = T)
date_max <- max(lubridate::year(as.Date(date_dat$t, "%m/%d/%Y")), na.rm = T)
} else {
date_min <- NA; date_max <- NA
}
}
if(is.na(depth_min) & length(year_col) > 0) {
year_dat <- dat[,year_col] %>% `colnames<-`("year")
date_min <- min(year_dat$year, na.rm = T)
date_max <- max(year_dat$year, na.rm = T)
}
# Determine ecoregions
# Find point in MEOW polygons
# Combine and output
res <- data.frame(data_type,
date_min, date_max,
lon_min, lon_max, lat_min, lat_max,
depth_min, depth_max,
file_name, URL, reference,
note)
return(res)
}
```
This document is designed to satisfy both D1.1 and D1.2 for the Horizon2020 project "FACE-IT". The text in this document is a report on the key drivers of changes in Arctic biodiversity (D1.1). The tables contain the meta-database for the data identified as key drivers of change (D1.2). The text and meta-data from this document will be used for the completion of a review article on past and future changes of key drivers in and around the FACE-IT study sites (D1.3). We begin with a review of known drivers of change in the Arctic before focussing in on each individual FACE-IT study site to discuss any differences from the broader Arctic. Within each section a table is given that shows the meta-data for the drivers of change for the topic of that section.
## European Arctic
Many physical processes are known to drive biodiversity in the Arctic. Unsurprisingly, the presence of sea ice is one of these controlling factors (@Pavlova2019). The cryosphere, of which sea ice is a part, is one of the defining characteristics of the Arctic that sets it apart from neighbouring climatic regions (e.g. boreal and cold temperate). It is therefore safe to assume that changes to the Arctic cryosphere will lead to fundamental changes in the biodiversity found there. The cryosphere itself however is not the primary driver of change in the Arctic. This is because changes in the cryosphere are themselves being driven by the primary driver of climatic change that defines the anthropocene: increases in CO2 emissions that are primarily responsible for global increases in temperature. It is this relatively rapid increase in temperature that is having a profound effect on the Arctic cryosphere (@Meredith2019). Therefore, as with almost any study of biodiversity, high-quality spatiotemporally complete temperature data are crucial. The longer the complete time series the better.
There are however many more important variables to consider, such as photosynthetically available radiation (PAR), ultraviolet radiation (UVR), and turbidity (@Hop2019). Many of these important drivers are known from research conducted further south. Where datasets are easier to build, and time series are longer. For this reason one may find that the drivers of change in Arctic are more often inferred than they are 'known'. This is because historically there has been a paucity of data in the Arctic (@Bischof2019kongsfjorden). Many international projects, in coordination with many established Arctic research institutions, have been very busy to close this knowledge gap and the holes in our knowledge are being filled rapidly. FACE-IT is one of these projects that seeks to better understand biodiversity changes, while contributing to and drawing from this expanding body of knowledge.
In addition to knowing what it is that may cause changes, it is necessary to identify the fonts of biodiversity that may be affected by these drivers. There are many taxa/species etc. that have been identified as important for monitoring throughout the Arctic. Foremost of these are the kelps, brown macroalgae that often function as ecosystem engineers along the cool temperate coastlines of the world or cooler (@Bischof2019kelps). The prevailing hypothesis is that as the Arctic warms, the retreating coastal sea ice and increased temperatures will be more hospitable to kelp forests, and everything that comes with them. But there's a catch. As temperatures warm, glaciers melt more rapidly, releasing more runoff into coastal zones that increases turbidity (@Bischof2019kelps). This means that benthic organisms, like kelps, will not receive the levels of PAR that they would like, potentially inhibiting their growth. One benefit of this is that the kelps are exposed to lower levels of UVR, which may help them to some extent. More research and longer time series are required to say conclusively how this situation will play out. It will also differ between sites and so this issue is addressed again below where appropriate.
```{r EU-arctic-table}
knitr::kable(data.frame(Category = c("Physical", "Physical", "Cryosphere"),
Driver = c("Air temp.", "SST", "Sea ice")))
```
```{r EU-arctic-meta-data}
EU_zooplankton <- read_tsv("~/pCloudDrive/FACE-IT_data/EU_arctic/1995-2008-zooplankton-biodiversity.tsv", guess_max = 100000) %>%
make_meta_data(file_name = "1995-2008-zooplankton-biodiversity.tsv",
data_type = "Zooplankton biodiversity",
URL = "https://data.npolar.no/dataset/9167dae8-cab2-45b3-9cea-ad69541b0448",
reference = "Norwegian Polar Institute (2020). Marine zooplankton and icefauna biodiversity [Data set].
Norwegian Polar Institute. https://doi.org/10.21334/npolar.2020.9167dae8")
metadata_EU_arctic <- rbind(EU_zooplankton)
```
```{r EU-arctic-meta-data-table}
DT::datatable(metadata_EU_arctic, rownames = FALSE, filter = "top", options = list(pageLength = 5, scrollX = T),
caption = "Note that all files in this table are found within '~/pCloudDrive/FACE-IT_data/EU_arctic/'.")
```
<!-- Rather have the table be clickable, and the clicked entry pops-up with the larger bits of info. This will save on the width of the table. -->
## Svalbard
While not a study site itself, there are a lot of studies and data products that focus on Svalbard broadly, rather than individual study sites within this region. Therefore this geographical region has it's own meta-data table. The primary drivers of change for each site are still listed in their own tables.
```{r svalbard-meta-data}
# Glacial topography + thickness
sval_glacier_mass <- data.frame(data_type = "Glacier mass balance",
date_min = 1967, date_max = 2019,
lon_min = NA, lon_max = NA, lat_min = NA, lat_max = NA,
depth_min = NA, depth_max = NA,
file_name = "cumulative-mass-balance-for-glaciers-in-svalbard.csv\n
austre-broggerbreen-mass-balance.csv\n
etonbreen-austfonna-mass-balance.csv\n
kongsvegen-mass-balance.csv\n
kronebreenholtedahlfonna-mass-balance.csv\n
midtre-lovenbreen-mass-balance.csv",
URL = "https://www.mosj.no/en/climate/land/mass-balance-glaciers.html",
reference = "See website",
note = NA)
# Tidal glacier fronts
sval_tidal_glacier_front <- data.frame(data_type = "Tidal glacier front",
date_min = 2015, date_max = 2019,
lon_min = 9, lon_max = 36, lat_min = 76, lat_max = 81,
depth_min = NA, depth_max = NA,
file_name = "Tidewater/",
URL = "https://data.npolar.no/dataset/7cd67b1a-1b9b-4dfd-b7a1-f9469597ed4d",
reference = "Kohler, J., König, M., Nuth, C., & Villaflor, G. (2018).
Svalbard tidewater glacier front database [Data set]. Norwegian Polar Institute.
https://doi.org/10.21334/npolar.2018.7cd67b1a",
note = NA)
# Combine
metadata_svalbard <- rbind(sval_glacier_mass, sval_tidal_glacier_front)
```
```{r svalbard-meta-data-table}
DT::datatable(metadata_svalbard, rownames = FALSE, filter = "top", options = list(pageLength = 5, scrollX = T),
caption = "Note that all data files in this table are found within '~/pCloudDrive/FACE-IT_data/svalbard/'.")
```
### Kongsfjorden
Much of the solar magnetic radiation going towards earth is focussed around Ny Alesund. This can have a knock on effect to air temperature when there are strong auroras: up to 4°C! Unfortunately models currently capture this effect very poorly.
Land terminating glaciers around Kongsfjorden have been retreating linearly over the last decades. Water terminating glaciers retreat less linearly as there are occasions when the water terminating edge may surge forward, making it look like the terminating edge has improved. This is generally due to a destabilisation of the glacier that means an overall decrease in the glacier mass balance. 2020 was a record breaking warm year that has led to record breaking melts. Smaller glaciers are more susceptible to the increase in melt driven by climate change as they have smaller areas to accumulate ice etc. during the cold period of the year.
Up until 2007 the fjord tended to be frozen 100% until February. Since 2007 the fjord has been having less and less surface freezing. This is in part due to Atlantic water encroachment. These waters are higher in aragonite and pH. These are also less turbid, allowing for more light for use with plankton etc. The plankton do respond to this with Atlantic species favoured in warmer years.
As to the influence of light, this has been increasing both due to increased melt and less ice cover throughout the year, in addition to increases in tourism. Besides increases in light pollution, longer times and broader areas of exposed sea surface also allows for a greater accumulation of positive downward heat flux. Of the four heat flux terms, it appears that increases in long wave radiation (Q_lw) over time are the leading cause of change to the cryosphere (@Bischof2019kongsfjorden). Following this, short wave radiation (Q_sw) is also increasing at a worrying rate, due in part to a decrease in cloud cover over the summer months (@Bischof2019kongsfjorden).
```{r kongsfjorden-table}
knitr::kable(data.frame(Category = c("Physical", "Physical",
"Physical", "Cryosphere", "Cryoshpere"),
Driver = c("Longwave radiation (Q_lw)", "Shortwave radiation (Q_sw)",
"turbidity", "Land glacier mass balance", "Runoff")))
```
```{r kongsfjorden-meta-data}
# Sea ice cover
kong_sea_ice_inner <- read_csv("~/pCloudDrive/FACE-IT_data/kongsfjorden/Kongsfjorden_sea_ice_cover_data.csv", guess_max = 100000) %>%
make_meta_data(file_name = "Kongsfjorden_sea_ice_cover_data.csv",
data_type = "Sea ice cover",
URL = "https://data.npolar.no/dataset/74c7b236-b94d-48c5-a665-ffcd54e8e1b7",
reference = "Gerland, S., & Pavlova, O. (2020).
Sea ice coverage in inner Kongsfjorden, Svalbard, 2003-2019, version 1.0 [Data set].
Norwegian Polar Institute. https://doi.org/10.21334/npolar.2020.74c7b236")
# Zooplankton abundance and species
kong_zoo_data <- read_csv("~/pCloudDrive/FACE-IT_data/kongsfjorden/kf_zooplankton_sampling_meta.csv") %>%
dplyr::rename(depth_from = from, depth_to = to) %>%
make_meta_data(file_name = "kf_zooplankton_sampling_meta.csv\n
kf_zooplankton_abundance_data.csv\n
kf_zooplankton_species_meta.csv",
data_type = "Zooplankton species + abundance",
URL = "https://data.npolar.no/dataset/94b29b16-b03b-47d7-bfbc-1c3c4f7060d2",
reference = "Hop H, Wold A, Vihtakari M, Daase M, Kwasniewski S, Gluchowska M, Lischka S, Buchholz F, Falk-Petersen S (2019)
Zooplankton in Kongsfjorden (1996-2016) in relation to climate change.
In 'The ecosystem of Kongsfjorden, Svalbard' (eds. Hop H, Wiencke C), Advances in Polar Ecology, Springer Verlag.")
# Protist species and nutrients and Chla
kong_protist_nutrient_chla <- read_csv("~/pCloudDrive/FACE-IT_data/kongsfjorden/Metadata_Kongsfjorden2009-2014_Hegseth et al.csv") %>%
filter(Depth != 3831) %>% # These values are deeper than the bottom depth
mutate(`Sampling date` = as.Date(`Sampling date`, "%Y%m%d")) %>% # Prep date data
make_meta_data(file_name = "Metadata_Kongsfjorden2009-2014_Hegseth et al.csv\n
Protist_abundance_Kongsfjorden2009-2013_Hegseth et al.csv\n
Nutrients&Chla_Kongsfjorden2009-2014_Hegseth et al.csv",
data_type = "Protist species + Nutrients + Chla",
URL = "https://data.npolar.no/dataset/2bff82dc-22b9-41c0-8348-220e7d6ca4f4",
reference = "Hegseth EN, Assmy P, Wiktor JM, Wiktor Jr. JM, Kristiansen S, Leu E, Tverberg V, Gabrielsen TM, Skogseth R and Cottier F (2019)
Phytoplankton Seasonal Dynamics in Kongsfjorden, Svalbard and the Adjacent Shelf.
In 'The ecosystem of Kongsfjorden, Svalbard' (eds. Hop H, Wiencke C), Advances in Polar Ecology, Springer Verlag.",
note = "The lon/lat coordinates are suspect.") %>%
mutate(lon_min = 9.50, lon_max = 9.55, lat_min = 78.90, lat_max = 79.10)
# CTD sampling data
kong_CTD_database <- tidync("~/pCloudDrive/FACE-IT_data/kongsfjorden/Kongsfjorden_ctd_1906_2017.nc") %>%
activate("D1") %>% hyper_tibble() %>%
dplyr::rename(date = TIME, lat = LATITUDE, lon = LONGITUDE, depth = FDEP) %>%
mutate(date = as.Date(date, origin = "1950-01-01")) %>%
make_meta_data(file_name = "Kongsfjorden_ctd_1906_2017.nc",
data_type = "CTD: temperature + salinity",
URL = "https://data.npolar.no/dataset/074a215c-d1df-47a9-bea7-e0fcc37273c6",
reference = "Skogseth, R., Tverberg, V., Walczowski, W., & Sundfjord, A. (2019).
Kongsfjorden Transect CTD data 1906-2016 [Data set].
Norwegian Polar Institute. https://doi.org/10.21334/npolar.2019.074a215c")
# CO2 data
kong_CTD_CO2 <- read_csv("~/pCloudDrive/FACE-IT_data/kongsfjorden/Kongsfjorden_Marine_CO2_system_2012_to_2014.csv") %>%
dplyr::rename(date = `yyyy-mm-dd`) %>%
make_meta_data(file_name = "Kongsfjorden_Marine_CO2_system_2012_to_2014.csv",
data_type = "CTD: temperature + salinity + alkalinity (TA) + DIC",
URL = "https://data.npolar.no/dataset/e53eae53-147a-45df-b473-917bb5ba1ed4",
reference = "Fransson, A., & Chierici, M. (2019).
Marine CO2 system data for the Svalbard fjord Kongsfjorden and the West-Spitsbergen shelf in July 2012-2014 [Data set].
Norwegian Polar Institute. https://doi.org/10.21334/npolar.2019.e53eae53")
# Glacial topography + thickness
kong_glacier_info <- data.frame(data_type = "Glacier surface + thickness + elevation",
date_min = 2004, date_max = 2016,
lon_min = 10, lon_max = 14, lat_min = 78.8, lat_max = 79.2,
depth_min = NA, depth_max = NA,
file_name = "TIGRIF_DEM_ice_surface_150m_v1.tif\n
TIGRIF_DEM_ice_thickness_150m_1.tif\n
TIGRIF_DEM_subglacial_elevation_150m_v1.tif\n
TIGRIF_radarprofiles_2004_2016_v1.txt",
URL = "https://data.npolar.no/dataset/702ca4a7-7d02-462c-8cbd-2d80d0e977a1",
reference = "Lindbäck, K., Kohler, J., Pettersson, R., Nuth, C., Langley, K., Messerli, A., … Brandt, O. (2018).
Subglacial topography, ice thickness, and bathymetry of Kongsfjorden, northwestern Svalbard [Data set].
Norwegian Polar Institute. https://doi.org/10.21334/npolar.2017.702ca4a7",
note = NA)
# Kongsvegen weather station
kong_weather_station <- read_tsv("~/pCloudDrive/FACE-IT_data/kongsfjorden/Kongsvegen-weather.tsv", n_max = 100000) %>%
dplyr::rename(date = timestamp) %>%
make_meta_data(file_name = "Kongsvegen-weather.tsv",
data_type = "Kongsvegen weather station: longwave + shortwave + air temp. + humidity + wind",
URL = "https://data.npolar.no/dataset/5dc31930-0922-4483-a1df-6f48af9e371b",
reference = "Kohler, J., Hudson, S. R., & Obleitner, F. (2017).
Automatic weather station data from Kongsvegen, Ny-Ålesund [Data set].
Norwegian Polar Institute. https://doi.org/10.21334/npolar.2017.5dc31930",
note = "See website for full list of variables.")
# Unknown data
# test <- read_tsv("~/pCloudDrive/FACE-IT_data/kongsfjorden/unentered/2009-2013-pigments-api-v1.tsv")
# Bind them together
metadata_kongsfjorden <- rbind(kong_sea_ice_inner, kong_zoo_data, kong_protist_nutrient_chla, kong_CTD_database, kong_CTD_CO2, kong_glacier_info,
kong_weather_station)
```
```{r kongsfjorden-meta-data-table}
DT::datatable(metadata_kongsfjorden, rownames = FALSE, filter = "top", options = list(pageLength = 5, scrollX = T),
caption = "Note that all data files in this table are found within '~/pCloudDrive/FACE-IT_data/kongsfjorden/'.")
```
### Isfjorden
### Inglefieldbukta
## Greenland
See the EU Arctic figure above for where the Greenland sites are located. They are too spread out to be shown here in a single figure with any better precision than the full study area.
### Young Sound
### Disko Bay
### Nuup Kangerlua
## Norway
### Porsangerfjorden
## References