bt.trueman.2013.RdResults demonstrate that Hoplostethus atlanticus from the north-east Atlantic Ocean have a complex life history with three distinct depth-stratified life stages, and lifetime fastest growth rates are achieved during juvenile stages when otolith isotopes imply deep-water residency and relatively low metabolic rates.
bt.trueman.2013The data frame 88 × 6 contains the following columns:
| fish_id | character | fish identifier |
| body_mass | numeric | reconstructed mass (g) |
| distance | numeric | distance from otolith centre (mm) |
| d18o | numeric | oxgen isotope ratio |
| d13c | numeric | carbon isotope ratio |
| temperature | numeric | reconstructed temperature (°C) |
This dataset contains stable-isotope compositions recorded in otoliths from Hoplostethus atlanticus, together with body mass reconstructed using equations (3 and 4), and ambient water temperature recovered using estimated water δ18O values (provided) and equation (6).
Instrument: LA-ICP-MS (laser ablation-inductively coupled plasma mass spectrometry)
Trueman, C. N., Rickaby, R. E. M., & Shephard, S. (2013). Thermal, trophic and metabolic life histories of inaccessible fishes revealed from stable‐isotope analyses: a case study using orange roughy Hoplostethus atlanticus. Journal of Fish Biology, 83(6), 1613-1636. https://doi.org/10.1111/jfb.12267
Traversing the paper's information via Semantic Scholar ID 54ddb8efcba3ee2b9a6d70c9ce6c092fbb8094e4 using S2miner package
otolith, stable isotope, d13C, d18O
### copy data into 'dat'
dat <- bt.trueman.2013
tibble::tibble(dat)
#> # A tibble: 88 × 6
#> fish_id body_mass distance d18o d13c temperature
#> <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 1R 111. 1.3 2.32 -2.52 6.73
#> 2 1R 152. 2.85 2.56 -1.39 5.7
#> 3 1R 223. 4.13 2.6 -1.28 5.54
#> 4 1R 305. 5.77 2.71 -0.81 5.09
#> 5 1R 429. 6.64 2.94 -0.37 4.12
#> 6 1R 496. 7.31 2.82 -0.52 4.61
#> 7 1R 710. 7.92 2.69 -1.01 5.18
#> 8 1R 858. 8.96 2.74 -1.01 4.97
#> 9 1R 1120. 9.87 2.98 -1.29 3.96
#> 10 1R 1773. 13.5 2.69 -1.35 5.17
#> # ℹ 78 more rows
if (FALSE) {
### loading packages
library(dplyr)
library(ggplot2)
### d13C profile figure
ggplot(data = dat, aes(distance, d13c)) +
geom_line(aes(col = fish_id), show.legend = F, linewidth = 0.02, na.rm = T) +
geom_point(aes(col = fish_id), show.legend = F, na.rm = T) +
labs(
x = "Distance from otolith centre (mm)",
y = expression(delta * ""^13 * "C" * " (‰)")
) +
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")
)
### d18O profile figure
ggplot(data = dat, aes(distance, d18o)) +
geom_line(aes(col = fish_id), show.legend = F, linewidth = 0.02, na.rm = T) +
geom_point(aes(col = fish_id), show.legend = F, na.rm = T) +
labs(
x = "Distance from otolith centre (mm)",
y = expression(delta * ""^18 * "O" * " (‰)")
) +
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")
)
}