In mskyttner/swedishbirdtrends: Swedish Bird Population Trends Data And Diagrams

library(swedishbirdtrends)
species <- params$species
uuid <- birduuids %>% filter(vernacular == tolower(species))
url <- paste0("http://naturforskaren.se/species/", uuid$species_uuid)
binomen <- uuid$sciname
sft <- "http://www.fageltaxering.lu.se"
totals <- 
  birdtotals %>% 
  filter(Vernacular == species) #%>% 
#  dplyr::select(`%/År` = YPctChg, Signifikansnivå =    Significance, Rutt =    Series)
chg <- paste0(sprintf("%+2.1f - %+2.1f", min(totals$YPctChg), max(totals$YPctChg)), "%")
images <- get_nf_media_urls(binomen)
map <- paste0("https://dina-web.net/naturalist/map/getsmall/", uuid$species_uuid, "/raster.png")

if (length(images) >= 1) plot_image_url(images[1], 240)

if (length(images) >= 2) plot_image_url(images[2], 240)

r species, r binomen

För r species ligger den årliga trendförändringen runt r chg när samtliga rutter beaktas.

#knitr::kable(totals, caption = 'Trendförändring')

#plot_image_url(map, 240)

Sammantaget - alla rutter

plot_sbt_static(species, loess = TRUE, showlegend = TRUE, theme = theme_solarized())

Enbart längs vinterrutten

plot_sbt_static(species, loess = TRUE, series = "Vinter", showlegend = FALSE, theme = theme_solarized())

Enbart längs sommarrutten

plot_sbt_static(species, loess = TRUE, series = "Sommar", showlegend = FALSE, theme = theme_solarized_2())

Interaktivt diagram

Zooma genom att klicka och dra antingen i höjdled eller åt sidan, återställ genom att dubbelklicka:

if ("Measure" %in% names(species)) plot_sbt_dy(species)

Källa

[^1]: r sft [^2]: r url

Denna rapport genererades r Sys.Date(). Populationstrenden kommer från Svensk Fågeltaxering[^1]. Läs mer om r species på Naturforskaren[^2].

mskyttner/swedishbirdtrends documentation built on May 23, 2019, 7:53 a.m.