-
Notifications
You must be signed in to change notification settings - Fork 0
/
metadatabase.Rmd
99 lines (79 loc) · 4.51 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
---
title: "Meta-database"
author: "Robert Schlegel"
date: '`r format(Sys.Date(), "%d %B %Y")`'
site: workflowr::wflow_site
output:
workflowr::wflow_html:
toc: false
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 = TRUE, warning = FALSE, message = FALSE,
eval = TRUE, tidy = FALSE)
```
```{r setup, echo=FALSE}
# Necessary libraries
library(tidyverse)
library(DT)
# Function for smoother meta-data creation
make_meta_data <- function(file_name, data_type, URL, reference, other = NA){
# determine the file type and load
if(str_detect(file_name, ".tsv")){
dat <- read_tsv(file_name, guess_max = 100000)
} else {
stop("File type not currently accounted for.")
}
# Find longitude range
lon_col <- c(colnames(dat)[str_detect(colnames(dat), "lon")],
colnames(dat)[str_detect(colnames(dat), "Lon")])
lon_min <- min(dat[,lon_col], na.rm = T)
lon_max <- max(dat[,lon_col], na.rm = T)
# Find latitude range
lat_col <- c(colnames(dat)[str_detect(colnames(dat), "lat")],
colnames(dat)[str_detect(colnames(dat), "Lat")])
lat_min <- min(dat[,lat_col], na.rm = T)
lat_max <- max(dat[,lat_col], na.rm = T)
# 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, "bottom")]
depth_col <- depth_col[!str_detect(depth_col, "Bottom")]
depth_min <- min(dat[,depth_col], na.rm = T)
depth_max <- max(dat[,depth_col], na.rm = T)
# Find depth range
date_col <- c(colnames(dat)[str_detect(colnames(dat), "date")],
colnames(dat)[str_detect(colnames(dat), "Date")])
date_col <- dat[,date_col] %>%
`colnames<-`("t")
date_min <- as.Date(min(date_col$t))
date_max <- as.Date(max(date_col$t))
res <- data.frame(data_type, lon_min, lon_max, lat_min, lat_max, depth_min, depth_max,
date_min, date_max, file_name, URL, reference)
return(res)
}
```
## Introduction
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.
## Drivers of change in the European Arctic
![](~/FACE-IT/figures/map_full.png)
Many physical processes are known to drive biodiversity in the Arctic. Unsurprisingly, the presence of sea ice is one of these controlling factors (@Pavlova2019). There are however many more, such as photosynthetically available radiation (PAR), ultraviolet radiation (UVR), and turbidity (@Hop2019). 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.
```{r EU-arctic-meta-data, echo=FALSE}
EU_zooplankton <- make_meta_data(file_name = "~/pCloudDrive/FACE-IT_data/EU_arctic/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, EU_zooplankton)
```
```{r EU-arctic-meta-data-table}
DT::datatable(metadata_EU_arctic)
```
## Svalbard
![](figures/map_svalbard.png)
While not a study site itself, there are a lot of studies and data products that focuss on Svalbard broadly, rather than individual study sites within this region. Therefore this geographical region
## References