bt.harada.2022.Rd
Stable isotope analysis of eye lenses can reconstruct the geographic and trophic histories of fish. However, it is difficult to distinguish between the two pieces of information: migration and changing trophic relationships with the conventional bulk stable isotope approach. In this study, we measured the nitrogen isotope ratios of individual amino acids in eye lenses of chub mackerel Scomber japonicus(n = 3) from the western North Pacific to test whether the two pieces of information could be distinguished.
bt.harada.2022
The data frame 54 × 5 contains the following columns:
fish_id | character | fish identifier |
radius | numeric | eye lens radius (mm) |
fl | numeric | fork length (mm) |
age | numeric | fish age (day) |
d15n | numeric | d15N bulk values (permil) |
The dataset contains chronologies of d15N bulk values measured in eye lenses of Chub mackerel (n = 3) from the western North Pacific.
Instrument: EA-IRMS (elemental analyzer–isotope ratio mass spectrometry )
Harada, Y., Ito, S. I., Ogawa, N. O., Yoshikawa, C., Ishikawa, N. F., Yoneda, M., & Ohkouchi, N. (2022). Compound-Specific Nitrogen Isotope Analysis of Amino Acids in Eye Lenses as a New Tool to Reconstruct the Geographic and Trophic Histories of Fish. Frontiers in Marine Science, 8, 2146.
https://doi.org/10.3389/fmars.2021.796532
Traversing the paper's information via Semantic Scholar ID 59c01879e1713cb2380d18050ed887f1c7b19a7f
using S2miner package
eye lenses, stable isotope, d15N
### copy data into 'dat'
dat <- bt.harada.2022
tibble::tibble(dat)
#> # A tibble: 54 × 5
#> fish_id radius fl age d15n
#> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 F1 0.09 7.2 2.3 4.8
#> 2 F1 0.22 16.8 7.2 3.2
#> 3 F1 0.3 22.8 10.3 3.1
#> 4 F1 0.39 30 14.1 2.5
#> 5 F1 0.47 36.1 17.3 2.9
#> 6 F1 0.53 40.9 20 3.5
#> 7 F1 0.59 45.7 22.7 3.3
#> 8 F1 0.66 50.5 25.4 5
#> 9 F1 0.72 55.3 28.2 3.7
#> 10 F1 0.8 61.3 31.7 5.1
#> # ℹ 44 more rows
if (FALSE) {
library(dplyr)
library(ggplot2)
### Nitrogen Isotope Analysis of Amino Acids
ggplot(data = dat, aes(radius, d15n)) +
geom_point(aes(colour = fish_id), show.legend = F) +
geom_line(aes(colour = fish_id), show.legend = F) +
labs(
x = "Eye lens radius (mm)",
y = expression(delta * ""^15 * "N" * " (‰)")
) +
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")
) +
scale_y_continuous(breaks = c(0, 5, 10, 15))
}