This document describes how to get the cumulative number of taxa identified as alien in Belgium.
Load libraries:
library(tidyverse) # To do datascience
library(magrittr) # To use extract2 function
library(tidylog) # To provide feedback on dplyr functions
library(here) # To find files
library(trias) # To use functions developed for TrIAS
library(INBOtheme) # To use INBO theme for graphs
data_file <- here::here(
"data",
"interim",
"data_input_checklist_indicators.tsv"
)
data <- read_tsv(data_file,
na = "",
guess_max = 5000
)
We use function indicator_total_year
from
trias
library.
We select data at national level (no regional distributions):
data <-
data %>%
tidylog::filter(locationId == "ISO_3166:BE")
We group data by kingdom:
facet_column <- "kingdom"