In inbo/watervogelanalysis: Analysis of the Wintering Birds

library(knitr)
opts_chunk$set(
  echo = FALSE,
  eval = TRUE,
  cache = FALSE,
  dpi = 300,
  fig.width = 150 / 25.4,
  fig.height = 70 / 25.4,
  warning = TRUE,
  error = TRUE,
  message = TRUE
)
library(pander)
library(tidyverse)
library(scales)
library(effectclass)
library(INBOtheme)
theme_set(theme_inbo(base_family = "Flanders Art Sans", base_size = 12))
if (!interactive() && opts_knit$get("rmarkdown.pandoc.to") != "html") {
  opts_chunk$set(dev = "cairo_pdf")
  theme_set(theme_inbo(base_family = "Flanders Art Sans", base_size = 8))
}

Introduction

readRDS("../rapport/results.Rds") %>%
  # filter(SpeciesGroupID %in% sample(SpeciesGroupID, 2)) %>%
  mutate(
    id = LocationGroup %>%
      str_replace("ë", "e") %>%
      abbreviate() %>%
      interaction(abbreviate(scientific_name, 10), sep = "-") %>%
      as.character() %>%
      str_replace_all(" ", "-"),
    LocationGroup = factor(LocationGroup)
    ) -> results
levels(results$LocationGroup) %>%
  str_replace("België", "Belgium") %>%
  str_replace("Vlaanderen", "Flanders") %>%
  str_replace("Wallonië", "Wallonia") %>%
  str_replace("Vogelrichtlijn (.*)", "\\1 - SPA") ->
  levels(results$LocationGroup)
readRDS("../rapport/location.Rds") -> location