bt.hane.2022.Rd
In this study, high-resolution stable oxygen isotope (δ18O) analysis was performed on the otoliths of adult Pacific bluefin tuna Thunnus orientalis using secondary ion mass spectrometry (SIMS) to determine the natal origin of an individual fish.
bt.hane.2022
The data frame 676 × 7 contains the following columns:
fish_id | character | fish identifier |
distance | numeric | distance from the otolith core (um) |
d18o | numeric | oxygen isotope ratio relative to VPDB in permil |
catch_location | character | location of capture |
year_class | integer | year of hach |
weight | numeric | body weight (kg) |
Summary on sampling data, biological information, and d18O otolith analyses of 51 Pacific bluefin tuna otoliths.
Instrument: SIMS (secondary ion mass spectrometer)
Beam diameter: 10um
Hane, Y., Ushikubo, T., Yokoyama, Y., Miyairi, Y., & Kimura, S. (2022). Natal origin of Pacific bluefin tuna Thunnus orientalis determined by SIMS oxygen isotope analysis of otoliths. Plos one, 17(8), e0272850.
https://doi.org/10.1371/journal.pone.0272850
Traversing the paper's information via Semantic Scholar ID c94e2c7aa2ba576f747d4494c3594613423895d3
using S2miner package
otolith, stable isotope, d18O
### copy data into 'dat'
dat <- bt.hane.2022
tibble::tibble(dat)
#> # A tibble: 676 × 7
#> fish_id distance d18o catch_location date_catch year_class weight
#> <chr> <dbl> <dbl> <chr> <chr> <int> <dbl>
#> 1 T101R 40.7 -3.97 34.0˚N, 150.0˚E 2017-05-15 2011 94.2
#> 2 T101R 40.7 -3.83 34.0˚N, 150.0˚E 2017-05-15 2011 94.2
#> 3 T101R 52.3 -3.48 34.0˚N, 150.0˚E 2017-05-15 2011 94.2
#> 4 T101R 157. -3.55 34.0˚N, 150.0˚E 2017-05-15 2011 94.2
#> 5 T101R 273. -3.90 34.0˚N, 150.0˚E 2017-05-15 2011 94.2
#> 6 T101R 378. -3.48 34.0˚N, 150.0˚E 2017-05-15 2011 94.2
#> 7 T101R 517. -4.24 34.0˚N, 150.0˚E 2017-05-15 2011 94.2
#> 8 T101R 645. -2.64 34.0˚N, 150.0˚E 2017-05-15 2011 94.2
#> 9 T101R 744. -2.60 34.0˚N, 150.0˚E 2017-05-15 2011 94.2
#> 10 T101R 936. -1.84 34.0˚N, 150.0˚E 2017-05-15 2011 94.2
#> # ℹ 666 more rows
if (FALSE) {
### loading packages
library(dplyr)
library(ggplot2)
### 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) +
facet_wrap(. ~ fish_id) +
labs(
x = ("Distance from the otolith core (um)"),
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")
)
}