In inbo/watervogelanalysis: Analysis of the Wintering Birds

library(knitr)
opts_chunk$set(
  echo = FALSE, eval = TRUE, cache = FALSE,
  warning = FALSE, error = TRUE, message = TRUE
)
library(tidyverse)
library(plotly)
library(DT)
library(INBOtheme)
theme_set(theme_inbo(base_family = "Flanders Art Sans", base_size = 12))

Introduction

To do

readRDS("../rapport/results.Rds") %>%
  mutate(LocationGroup = LocationGroup %>%
           str_replace("België", "Belgium") %>%
           str_replace("Vogelrichtlijn", "SPA")) -> results
split <- grep(" ", results$LocationGroup)
results$LocationGroup[-split] <- paste("Total", results$LocationGroup[-split])
results %>%
  filter(grepl("yearly", ModelType), LocationGroup == "Total Belgium") %>%
  select(SpeciesGroupID, Parameter, Estimate) %>%
  group_by(SpeciesGroupID) %>%
  arrange(desc(Parameter)) %>%
  slice(1) %>%
  ungroup() %>%
  arrange(desc(Estimate)) %>%
  transmute(SpeciesGroupID, Order = row_number()) %>%
  inner_join(results, by = "SpeciesGroupID") -> results

inbo/watervogelanalysis documentation built on Oct. 10, 2024, 7:17 a.m.