library(tidyverse)── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.2.0 ✔ readr 2.1.6
✔ forcats 1.0.1 ✔ stringr 1.6.0
✔ ggplot2 4.0.2 ✔ tibble 3.3.1
✔ lubridate 1.9.5 ✔ tidyr 1.3.2
✔ purrr 1.2.1
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(kableExtra)
Attaching package: 'kableExtra'
The following object is masked from 'package:dplyr':
group_rows
setwd("..")
files <- list.files(pattern = "flightpaths-", recursive = TRUE)
est <- do.call(rbind, lapply(files, read.csv))
tmp <- est |>
group_by(speciesEN) |>
summarise(n = length(unique(flightID)))
bind_rows(tmp, tibble(speciesEN = "", n = sum(tmp$n))) |>
kable() |>
kable_styling(full_width = FALSE)| speciesEN | n |
|---|---|
| Dunnock | 10 |
| Eurasian Blackbird | 5 |
| Eurasian Blackcap | 32 |
| Eurasian Reed Warbler | 30 |
| Eurasian Skylark | 29 |
| Garden Warbler | 68 |
| Greater Whitethroat | 73 |
| Redwing | 18 |
| Sedge Warbler | 38 |
| Song Thrush | 54 |
| Willow Warbler | 19 |
| 376 |
















