bt.duponchelle.2016.Rd
The authors measured 87Sr/86Sr ratios in transects along transverse sections of Brachyplatystoma rousseauxii otoliths, and compared these observed profiles with those expected from different scenarios of space utilization and migration.
bt.duponchelle.2016
The data frame 4,984 × 16 contains the following columns:
fish_id | integer | fish identifier |
distance | numeric | distance from otolith core (um) |
sr8786 | numeric | otolith sr8786 |
location | character | location of capture |
This dataset contains 110 Brachyplatystoma rousseauxii for otolith 87Sr:86Sr profiles.
Instrument: fs-LA-MC-ICP-MS (femtosecond laser ablation multi-collector inductively coupled plasma mass spectrometer)
Beam diameter: 30um
Scan speed: 5um/s
Reference materials: NIES22 (National Institute for Environmental Studies, Environment Agency of Japan, Tsukuba-City, Ibaraki, Japan)
#Duponchelle, F., Pouilly, M., Pécheyran, C., Hauser, M., Renno, J. F., Panfili, J., ... & Baras, E. (2016). Trans-mazonian natal homing in giant catfish. Journal of Applied Ecology, 53(5), 1511-1520. https://doi.org/10.1111/1365-2664.12665
Traversing the paper's information via Semantic Scholar ID 0b3aff360f1f730cea5c2955a50dbf6d79137391
using S2miner package
otolith, trace element, stable isotope, Sr/Ca, Se/Ca, Sr8786
### copy data into 'dat'
dat <- bt.duponchelle.2016
tibble::tibble(dat)
#> # A tibble: 4,984 × 4
#> fish_id distance sr8786 location
#> <chr> <dbl> <dbl> <chr>
#> 1 Ma1 0 0.715 Mamore
#> 2 Ma1 25 0.715 Mamore
#> 3 Ma1 50 0.715 Mamore
#> 4 Ma1 75 0.714 Mamore
#> 5 Ma1 100 0.712 Mamore
#> 6 Ma1 125 0.712 Mamore
#> 7 Ma1 150 0.711 Mamore
#> 8 Ma1 175 0.711 Mamore
#> 9 Ma1 200 0.711 Mamore
#> 10 Ma1 225 0.710 Mamore
#> # ℹ 4,974 more rows
if (FALSE) {
### load package
library(dplyr)
library(ggplot2)
### otolith 87Sr:86Sr profiles
ggplot(data = dat, aes(distance, sr8786)) +
geom_line(aes(group = fish_id, colour = location), show.legend = F, na.rm = T) +
facet_grid(location ~ ., scales = "free_y") +
xlab("Distance from otolith core (um)") +
ylab(expression(paste(
{}^"87",
"Sr/",
{}^"86",
"Sr"
))) +
theme_bw() +
theme(
panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
panel.background = element_blank(), axis.line = element_line(colour = "black"),
text = element_text(size = 10), legend.title = element_blank(),
plot.title = element_text(face = "bold")
)
}