# Set area polygon to download data interactively
# wkt <- get_geometry()
wkt <- "MULTIPOLYGON (((-123.5102 47.89861, -123.2305 46.48658, -121.3923 46.55533, -122.6111 50.53427, -128.1456 52.19335, -130.4633 52.16884, -123.5102 47.89861)))"
# Download data
salmon_data <- robis::dataset(scientificname = "Oncorhynchus", geometry = wkt)
# Join number of downloads to title
salmon_data$n <- as.numeric(seq(1:length(salmon_data$id)))
df <- dplyr::bind_rows(salmon_data$downloads, .id = 'n')
df$n <- as.numeric(df$n)
#Summarize number of downloads and records
salmon_data_dls <- salmon_data %>%
select(title, n) %>%
right_join(df, by = 'n') %>%
select(-n) %>%
group_by(title) %>%
summarize(year = min(year),
n_downloads = sum(downloads),
n_records = sum(records)) %>%
arrange(desc(n_downloads))
kable(salmon_data_dls)
| Fishbase occurrences hosted by GBIF-Sweden |
2018 |
97358 |
828373376 |
| National Museum of Natural History Vertebrate Zoology Fishes Collections |
2018 |
85121 |
186669814 |
| FishNet2 Marine Data |
2021 |
78598 |
1228632155 |
| Ichthyology Collection - Royal Ontario Museum |
2018 |
51171 |
90849796 |
| Fish specimens |
2018 |
45598 |
92680183 |
| Ocean Genome Legacy Collection |
2018 |
39355 |
28502244 |
| Canadian Museum of Nature Fish Collection |
2019 |
37420 |
66650899 |
| KUBI Ichthyology Collection - marine and estuarine specimens |
2018 |
21444 |
6352951 |
| BOLD Public Fish Data |
2018 |
19117 |
15773735 |
| UWFC Ichthyology Collection |
2018 |
11304 |
183733385 |
| TU_Fish |
2021 |
6293 |
27150783 |
| Pacific Multispecies Small Mesh Bottom Trawl Survey |
2018 |
6141 |
863849010 |
| OTN Kintama 2004-2011 tags - Tag Release Metadata |
2019 |
1932 |
17428029 |
| OTN Canada Pacific Sockeye Salmon Tagging Project 2 - Tag Release Metadata |
2019 |
1816 |
5709408 |
| OTN Effects of ultraviolet radiation exposure on salmon smolt mortality - Tag Release Metadata |
2019 |
1811 |
1077459 |
| OTN Raby Coho Salmon Tagging - Tag Release Metadata |
2019 |
1810 |
724967 |
| OTN Mortality, Movements, and Migration Timing of Age-0 Cowichan Chinook Salmon Tagged in the Southern Gulf Islands in Fall 2017 - Tag Release Metadata |
2019 |
1711 |
136839 |
| Hakai Institute Juvenile Salmon Program |
2020 |
1707 |
372176429 |
| OTN Kintama Research Services: Seymour River steelhead smolts. - Tag Release Metadata |
2019 |
1706 |
85300 |
| OTN Balfry Tags - Tag Release Metadata |
2019 |
1696 |
67840 |
| Eulachon migration bottom trawl surveys |
2021 |
1408 |
12320459 |
| NuSEDS - New Salmon Escapement Database System |
2020 |
1345 |
167249526 |
| DFO Pacific: Ocean Salmon Program - Ricker Beam Trawl Juvenile Salmon Study (1990-1993) |
2021 |
1255 |
37185907 |
| Incidental catch at British Columbia marine finfish aquaculture sites |
2021 |
877 |
866140 |
| DFO Pacific Groundfish Synoptic Trawl Surveys - Queen Charlotte Sound |
2021 |
754 |
121082253 |
| Pacific Region Commercial Salmon Fishery In-season Catch Estimates |
2021 |
708 |
1960899 |
| Mortality events at British Columbia finfish aquaculture sites |
2021 |
707 |
270412 |
| DFO Pacific Groundfish Synoptic Trawl Surveys - Strait of Georgia |
2021 |
599 |
6387279 |
| Ocean Salmon Program - Barkley Sound Juvenile Salmon Study from 1987 to 1994 |
2021 |
465 |
38043930 |
plot <- ggplot(salmon_data_dls, aes(year, n_downloads, colour = title, size = n_records)) +
geom_point() +
theme(axis.text.x = element_text(angle = 45)) +
scale_size(range = c(.1, 24), name="Population (M)") +
scale_x_reverse() +
theme(legend.position = "none")
plotly::ggplotly(plot)