bt.zhang.2022b.Rd
Determining the movement and migration patterns of fish between different environments is crucial for understanding the distribution of fish populations and the ecological mechanisms underlying their spatial dynamics. This study is the first to employ otolith Sr:Ca and Ba:Ca profiles to elucidate habitat use by the commercially valuable estuarine species Eleutheronema rhadinum.
bt.zhang.2022b
The data frame 89,170 × 8 contains the following columns:
fish_id | integer | fish identifier |
distance | numeric | distance from otolith core (um) |
oto_sr_ca | numeric | otolith sr:ca (mmol/mol) |
oto_ba_ca | numeric | otolith ba:ca (mmol/mol) x10^2 |
fork_length | numeric | fork length (cm) |
weight | numeric | body weight (kg) |
location | character | location of capture |
region | character | region of capture |
This dataset contains 22 otolith microchemistry (Sr/Ca and Ba/Ca) profiles of East Asian fourfinger threadfin Eleutheronema rhadinum from the East China Sea and South China Sea, caught off China in October to December of 2019.
Instrument: LA-ICP-MS (laser ablation-inductively coupled plasma mass spectrometry)
Beam diameter: 20um
Scan speed: 5um/s
Reference materials: NIST-610,NIST-612 (National Institutes of Standards and Technology glass standard)
Zhang, S., Li, M., Zhu, J., Xu, S., & Chen, Z. (2022). Diversity in habitat use by the East Asian fourfinger threadfin Eleutheronema rhadinum revealed by otolith Sr: Ca and Ba: Ca profiles. Aquatic Biology, 31, 89-97. https://doi.org/10.3354/ab00756
Data are provided by Dr. zhang zhangshuai@scsfri.ac.cn.
Traversing the paper's information via Semantic Scholar ID 4dffb264268957681a497b313da8fc06b6206e96
using S2miner package
otolith, trace element, Sr/Ca, Ba/Ca
### copy data into 'dat'
dat <- bt.zhang.2022b
tibble::tibble(dat)
#> # A tibble: 89,170 × 8
#> fish_id distance oto_sr_ca oto_ba_ca fork_length weight location region
#> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <chr> <chr>
#> 1 FZER_17 0 6.57 4.73 41.3 3.4 Fuzhou East China Sea
#> 2 FZER_17 0.566 6.61 4.83 41.3 3.4 Fuzhou East China Sea
#> 3 FZER_17 1.13 6.20 4.95 41.3 3.4 Fuzhou East China Sea
#> 4 FZER_17 1.70 6.06 4.68 41.3 3.4 Fuzhou East China Sea
#> 5 FZER_17 2.26 5.98 4.57 41.3 3.4 Fuzhou East China Sea
#> 6 FZER_17 2.83 5.78 4.34 41.3 3.4 Fuzhou East China Sea
#> 7 FZER_17 3.40 5.92 4.40 41.3 3.4 Fuzhou East China Sea
#> 8 FZER_17 3.96 5.86 4.40 41.3 3.4 Fuzhou East China Sea
#> 9 FZER_17 4.53 5.92 4.30 41.3 3.4 Fuzhou East China Sea
#> 10 FZER_17 5.09 6.02 4.34 41.3 3.4 Fuzhou East China Sea
#> # ℹ 89,160 more rows
if (FALSE) {
### load package
library(dplyr)
library(ggplot2)
### otolith sr/ca
ggplot(data = dat, aes(distance, oto_sr_ca)) +
geom_line(aes(colour = region, group = fish_id), show.legend = F, na.rm = T) +
facet_grid(. ~ region, scales = "free_y") +
xlab("Distance from otolith core (um)") +
ylab("Sr/Ca (mmol/mol)") +
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")
)
### otolith ba/ca
ggplot(data = dat, aes(distance, oto_ba_ca)) +
geom_line(aes(colour = region, group = fish_id), show.legend = F, na.rm = T) +
facet_grid(. ~ region, scales = "free_y") +
xlab("Distance from otolith core (um)") +
ylab(expression("Ba/Ca " * x10 * ""^2 * " (mmol/mol)")) +
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")
)
}