bt.vecchio.2022.Rd
Many predatory marine fishes undergo ontogenetic diet and habitat shifts as they grow. Most fishery datasets, such as catch records, length frequencies, and stomach contents, create a series of snapshots, with each captured fish representing a single timepoint during the lifespan. Chemical archives, such as eye lenses, preserve information regarding several life stages for each individual. With this work, the authors demonstrate that eye-lens isotope value profiles can enhance fisheries datasets and may provide a method of recreating diet and movement histories for species without long-term biological information.
bt.vecchio.2022
The data frame 288 × 9 contains the following columns:
fish_id | character | shark identifier |
species | numeric | scientific name |
location | character | location code |
longitude | numeric | longitude of capture |
latitude | numeric | latitude of capture |
lamina_x.diameter | numeric | lens diameter prior to removal of lamina x (in mm) |
lamina_x_position | numeric | radial midpoint of the lamina (in mm) |
d13c | numeric | eye lenses carbon isotope ratios (‰) |
d15n | numeric | eye lenses nitrogen isotope ratios (‰) |
The dataset contains 36 red grouper Epinephelus morio of d13C and d15N bulk values in sequential eye-lens laminae from the Gulf of Mexico, summer 2013.
Instrument: CF-IRMS (continuous flow isotope ratio mass spectrometer)
Vecchio, J. L., & Peebles, E. B. (2022). Lifetime-scale ontogenetic movement and diets of red grouper inferred using a combination of instantaneous and archival methods. Environmental Biology of Fishes, 1-20. https://doi.org/10.1007/s10641-022-01210-2
Data availability are available at https://doi.org/10.7266/N77D2S4S
Traversing the paper's information via Semantic Scholar ID 9409e26847c35f1d3ca794cd94dc24d6d1181eb0
using S2miner package
eye lenses, stable isotope, d13C, d15N
### copy data into 'dat'
dat <- bt.vecchio.2022
tibble::tibble(dat)
#> # A tibble: 288 × 9
#> fish_id species location longitude latitude lamina_x.diameter lamina_x_position d15n d13c
#> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 Fish_13 Epinephelus mo… 12-100 -89.5 28.6 12.5 11.0 15.7 -16.1
#> 2 Fish_02 Epinephelus mo… SL1-1150 -88.6 29.0 12.4 11.4 15.5 -16.0
#> 3 Fish_05 Epinephelus mo… SL1-1150 -88.6 29.0 11.2 9.94 15.8 -16.6
#> 4 Fish_08 Epinephelus mo… SL1-1150 -88.6 29.0 11.2 9.94 15.1 -16.5
#> 5 Fish_09 Epinephelus mo… SL1-1150 -88.6 29.0 12.1 10.7 15.1 -16.6
#> 6 Fish_12 Epinephelus mo… SL1-1150 -88.6 29.0 13.2 11.4 15.2 -16.4
#> 7 Fish_15 Epinephelus mo… SL5-100 -85.4 28.6 11.7 9.94 13.1 -17.6
#> 8 Fish_15 Epinephelus mo… SL5-200 -86.1 28.5 12.5 10.9 14.3 -17.1
#> 9 Fish_19 Epinephelus mo… SL5-200 -86.1 28.5 11.4 9.86 13.7 -17.5
#> 10 Fish_20 Epinephelus mo… SL5-200 -86.1 28.5 13.5 11.7 13.9 -17.2
#> # ℹ 278 more rows
if (FALSE) {
### load package
library(dplyr)
library(ggplot2)
### eye lenses d13C
ggplot(data = dat,aes(lamina_x.diameter, d13c)) +
geom_point(aes(group = fish_id),shape = 1, size = 2)+
geom_line(aes(group = fish_id),
show.legend = F, na.rm = T) +
facet_wrap(fish_id ~ ., scales = "free_y") +
xlab("Eye lens diameter (mm)") +
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")
)
### eye lenses d15N
ggplot(data = dat,aes(lamina_x.diameter, d15n)) +
geom_point(aes(group = fish_id),shape = 1, size = 2)+
geom_line(aes(group = fish_id),
show.legend = F, na.rm = T) +
facet_wrap(fish_id ~ ., scales = "free_y") +
xlab("Eye lens diameter (mm)") +
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")
)
}