Inferring habitat use of the Pacific White Shark

The conservation and management of highly migratory sharks relies on understanding age-related movements and nursery habitat utilization. The authors reconstructed the habitat use and migratory history of young White Sharks (Carcharodon carcharias), a highly protected species, by utilizing natural chemical tracers (element:Ca ratios and stable isotope analysis, SIA) in vertebral cartilage growth bands.

bt.mohan.2023

Format

The data frame 96 × 12 contains the following columns:

shark_id	`character`	white sharks identifier
date	`integer`	year of capture
region	`character`	fishing region
site	`character`	fishing landing site
total_length	`numeric`	total length (cm)
life_stage	`character`	life stage
age	`numeric`	back-calculated ages (years)
subsamples_per_vertebrae	`integer`	subsamples per vertebrae
n_subsamples	`integer`	subsamples
subsample_position	`character`	subsample position
d13c	`numeric`	d13c (‰)
d15n	`numeric`	d15n (‰)

Details

Vertebrae from coastal Mexican artisanal fisheries off central Baja California in the Pacific (12 neonates and juveniles; 139-280 cm total length) and the GC (3 subadults; 289-355 cm TL) were analyzed to characterize trophic histories from collagen d13C and d15N values.

Instrument: LA-ICP-MS (laser ablation-inductively coupled plasma mass spectrometry);EA-IRMS (elemental analyzer–isotope ratio mass spectrometry )

Beam diameter: 125um

Scan speed: 50um/s

Reference materials: NIST-612 (National Institutes of Standards and Technology glass standard)

Source

Mohan, J. A., Romo-Curiel, A. E., Herzka, S. Z., Wells, R. D., Miller, N. R., Sosa-Nishizaki, O., & Garcıa-Rodrıguez, E. (2023). Inferring habitat use of the Pacific White Shark using vertebral chemistry. Frontiers in Marine Science, 9. https://doi.org/10.3389/fmars.2022.1082219

Traversing the paper's information via Semantic Scholar ID 2329d647007517f585a2c46a6395bb3d15c968c2 using S2miner package

Author

Liuyong Ding, ly_ding@126.com

Concepts

vertebra, stable isotope, d13C, d15N

Examples

### copy data into 'dat'
dat <- bt.mohan.2023
tibble::tibble(dat)
#> # A tibble: 96 × 12
#>    shark_id  date region       site  total_length life_stage   age subsamples_per_verte…¹ n_subsamples
#>    <chr>    <int> <chr>        <chr>        <int> <chr>      <dbl>                  <int>        <int>
#>  1 NB01        NA Northern Ba… Popo…          133 neonate     -0.2                      2            0
#>  2 NB01        NA Northern Ba… Popo…          133 neonate     -0.2                      2            1
#>  3 NB02      2011 Northern Ba… Ense…          170 young-of-…   0.8                      3            0
#>  4 NB02      2011 Northern Ba… Ense…          170 young-of-…   0.8                      3            1
#>  5 NB02      2011 Northern Ba… Ense…          170 young-of-…   0.8                      3            2
#>  6 NB03      2012 Northern Ba… Popo…          188 juvenile     1.3                      3            0
#>  7 NB03      2012 Northern Ba… Popo…          188 juvenile     1.3                      3            1
#>  8 NB03      2012 Northern Ba… Popo…          188 juvenile     1.3                      3            2
#>  9 NB04      2012 Northern Ba… Popo…          194 juvenile     1.5                      3            0
#> 10 NB04      2012 Northern Ba… Popo…          194 juvenile     1.5                      3            1
#> # ℹ 86 more rows
#> # ℹ abbreviated name: ¹subsamples_per_vertebrae
#> # ℹ 3 more variables: subsample_position <chr>, d13c <dbl>, d15n <dbl>

if (FALSE) {
### load package
library(dplyr)
library(ggplot2)

### vertebrae d13c
ggplot(data = dat, aes(n_subsamples, d13c)) +
  geom_line(aes(colour = region, group = shark_id), show.legend = F, na.rm = T) +
  facet_grid(region ~ ., scales = "free_y") +
  xlab("Subsamples per vertebrae") +
  ylab(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")
  )
### vertebrae d15n
ggplot(data = dat, aes(n_subsamples, d15n)) +
  geom_line(aes(colour = region, group = shark_id), show.legend = F, na.rm = T) +
  facet_grid(region ~ ., scales = "free_y") +
  xlab("Subsamples per vertebrae") +
  ylab(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")
  )
}