bt.wallace.2023.RdEye lenses contain chronological isotopic records and can be used to create a temporal isotopic history throughout an individual's lifetime. The authors analyzed eye lens amino-acid d15N to address spatio-temporal baseline variability and to reconstruct trophic histories of 10 individual Red Snapper.
bt.wallace.2023The data frame 166 × 20 contains the following columns:
| fish_id | character | fish number assigned at capture |
| lamina_layer | integer | number assigned lamina during disection; 1 = eye lens core |
| laminar_radial_midpoint | numeric | average of the two radius measurements(mm) (before and after) taken during eye lens delamination per Wallace et al. (2014) |
| estimated_Length | numeric | fish standard length estimated at each laminar radial midpoint (cm) |
| d15n | numeric | bulk d15N (‰) of lamina |
| d13c | numeric | bulk d13C (‰) of lamina |
| alanine | numeric | amino acid d15N (‰) of corresponding lamina |
| glycine | numeric | amino acid d15N (‰) of corresponding lamina |
| valine | numeric | amino acid d15N (‰) of corresponding lamina |
| leucine | numeric | amino acid d15N (‰) of corresponding lamina |
| isoleucine | numeric | amino acid d15N (‰) of corresponding lamina |
| threonine | numeric | amino acid d15N (‰) of corresponding lamina |
| proline | numeric | amino acid d15N (‰) of corresponding lamina |
| serine | numeric | amino acid d15N (‰) of corresponding lamina |
| aspartic_acid | numeric | amino acid d15N (‰) of corresponding lamina |
| methionine | numeric | amino acid d15N (‰) of corresponding lamina |
| lysine | numeric | amino acid d15N (‰) of corresponding lamina |
| glutamic_acid | numeric | amino acid d15N (‰) of corresponding lamina |
| phenylalanine | numeric | amino acid d15N (‰) of corresponding lamina |
| trophic_position | numeric | trophic position calculated using equation TL=[(Glu-Phe-β)/TDF]+1, where TDF = 5.7 and β = 3.6 (Bradley et al. (2015)) |
The dataset contains bulk eye-lens stable isotope (d13C and d15N) 10 individual Red Snapper.
Instrument: GC-C-IRMS (gas-chromatography combustion isotope-ratio-mass-spectrometer)
Wallace, A.A., Ellis, G.S., & Peebles, E.B. (2023). Reconstructions of individual fish trophic geographies using isotopic analysis of eye-lens amino acids. PLoS One, 18(3): e0282669
https://doi.org/10.1371/journal.pone.0282669
Wallace, A. A., Hollander, D. J., & Peebles, E. B. (2014). Stable isotopes in fish eye lenses as potential recorders of trophic and geographic history. PLoS One, 9(10), e108935. https://doi.org/10.1371/journal.pone.0108935
Bradley, C. J., Wallsgrove, N. J., Choy, C. A., Drazen, J. C., Hetherington, E. D., Hoen, D. K., & Popp, B. N. (2015). Trophic position estimates of marine teleosts using amino acid compound specific isotopic analysis. Limnology and oceanography: Methods, 13(9), 476-493. https://doi.org/10.1002/lom3.10041
Data availability are available at https://digitalcommonsdata.usf.edu/datasets/vhmf7w5zyr
Traversing the paper's information via Semantic Scholar ID 773e2c7b665353bb198f82597997b00d8dac4736 using S2miner package
eye lenses, stable isotope, d13C, d15N, d34S
### copy data into 'dat'
dat <- bt.wallace.2023
tibble::tibble(dat)
#> # A tibble: 166 × 20
#> fish_id lamina_layer laminar_radial_midpoint estimated_Length d15n d13c alanine glycine valine
#> <chr> <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 4-40-002 1 0.275 2.75 NA NA 12.4 2.62 17.2
#> 2 4-40-002 2 0.625 6.25 NA NA 11.8 -0.135 14.9
#> 3 4-40-002 3 0.775 7.75 9.57 -17.2 NA NA NA
#> 4 4-40-002 4 0.9 9 9.70 -17.3 NA NA NA
#> 5 4-40-002 5 1.02 10.2 9.68 -17.3 NA NA NA
#> 6 4-40-002 6 1.18 11.8 NA NA 14.6 2.25 15.7
#> 7 4-40-002 7 1.38 13.8 10.3 -17.4 NA NA NA
#> 8 4-40-002 8 1.62 16.2 10.6 -17.8 NA NA NA
#> 9 4-40-002 9 1.82 18.2 11.2 -18.2 NA NA NA
#> 10 4-40-002 10 2 20 11.6 -18.4 16.3 0.165 20.5
#> # ℹ 156 more rows
#> # ℹ 11 more variables: leucine <dbl>, isoleucine <dbl>, threonine <dbl>, proline <dbl>, serine <dbl>,
#> # aspartic_acid <dbl>, methionine <dbl>, lysine <dbl>, glutamic_acid <dbl>, phenylalanine <dbl>,
#> # trophic_position <dbl>
if (FALSE) {
library(dplyr)
library(ggplot2)
### bulk d15N of lamina
ggplot(data = dat, aes(lamina_layer,d15n))+
geom_point(aes(colour = fish_id),size = 2, show.legend = F, na.rm = T)+
facet_grid(fish_id~.,scales = "free_y")+
xlab("Laminae")+
ylab(expression(delta * ""^15 * "N" * " (‰)"))+
scale_x_continuous(breaks = 0:30)+
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")
)
### bulk d13C of lamina
ggplot(data = dat, aes(lamina_layer,d13c))+
geom_point(aes(colour = fish_id),size = 2, show.legend = F, na.rm = T)+
facet_grid(fish_id~.,scales = "free_y")+
xlab("Laminae")+
ylab(expression(delta * ""^13 * "C" * " (‰)"))+
scale_x_continuous(breaks = 0:30)+
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")
)
}