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)
plot_sbt_static(species, loess = TRUE, showlegend = TRUE, theme = theme_solarized())
plot_sbt_static(species, loess = TRUE, series = "Vinter", showlegend = FALSE, theme = theme_solarized())
plot_sbt_static(species, loess = TRUE, series = "Sommar", showlegend = FALSE, theme = theme_solarized_2())
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)
[^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].
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.