bt.kim.2012.RdThe diet of an apex predator, the white shark, is evaluated by measuring the stable carbon and nitrogen isotope composition of vertebral growth bands to create lifetime records for 15 individuals from California, revealing substantial ontogenetic and individual dietary variation within a white shark population.
bt.kim.2012The data frame 405 × 10 contains the following columns:
| fish_id | character | shark identifier |
| age | numeric | shark age (years) |
| value | numeric | vertebral stable isotope ratios (‰) |
| isotope | character | d13C and d15N |
| year | integer | year of death |
| sex | character | shark sex |
| growth_bands | integer | growth bands |
| location | character | location caught |
| acquisition | character | collection of acquisition |
| method | character | method of storage |
The dataset contains stable carbon and nitrogen isotope composition of vertebral growth bands of 15 White Sharks (Carcharodon carcharias) from California.
Instrument: IRMS (isotope ratio mass spectrometer)
Note: data extraction via WebPlotDigitizer tool (Title with * label).
Kim, S. L., Tinker, M. T., Estes, J. A., & Koch, P. L. (2012). Ontogenetic and among-individual variation in foraging strategies of northeast Pacific white sharks based on stable isotope analysis. PLoS one, 7(9): e45068.
https://doi.org/10.1371/journal.pone.0045068
Traversing the paper's information via Semantic Scholar ID 64d1dda85245b8ed918fcabd0a1daa3c0270a412 using S2miner package
vertebrae, stable isotope, d13C, d15N
### copy data into 'dat'
dat <- bt.kim.2012
tibble::tibble(dat)
#> # A tibble: 405 × 10
#> fish_id age values isotope year sex growth_bands location acquisition method
#> <chr> <dbl> <dbl> <chr> <int> <chr> <int> <chr> <chr> <chr>
#> 1 26245 0.176 15.0 d15N 1957 F 20 Monterey Bay, CA California Academy … Dry
#> 2 26245 1.06 17.3 d15N 1957 F 20 Monterey Bay, CA California Academy … Dry
#> 3 26245 2.06 18.9 d15N 1957 F 20 Monterey Bay, CA California Academy … Dry
#> 4 26245 3.06 19.2 d15N 1957 F 20 Monterey Bay, CA California Academy … Dry
#> 5 26245 5.00 19.8 d15N 1957 F 20 Monterey Bay, CA California Academy … Dry
#> 6 26245 6.00 20.3 d15N 1957 F 20 Monterey Bay, CA California Academy … Dry
#> 7 26245 7 20.3 d15N 1957 F 20 Monterey Bay, CA California Academy … Dry
#> 8 26245 8.06 20.4 d15N 1957 F 20 Monterey Bay, CA California Academy … Dry
#> 9 26245 9 20.5 d15N 1957 F 20 Monterey Bay, CA California Academy … Dry
#> 10 26245 10 20.7 d15N 1957 F 20 Monterey Bay, CA California Academy … Dry
#> # ℹ 395 more rows
if (FALSE) {
### load package
library(dplyr)
library(ggplot2)
### vertebrae d13C
ggplot(data = dat[which(dat$isotope == "d13C"), ],
aes(age, values)) +
geom_point(aes(group = fish_id),shape = 1, size = 3)+
geom_line(aes(group = fish_id),
show.legend = F, na.rm = T) +
facet_wrap(fish_id ~ ., scales = "free_y") +
xlab("Age (years)") +
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[which(dat$isotope == "d15N"), ],
aes(age, values)) +
geom_point(aes(group = fish_id),shape = 1, size = 3)+
geom_line(aes(group = fish_id),
show.legend = F, na.rm = T) +
facet_wrap(fish_id ~ ., scales = "free_y") +
xlab("Age (years)") +
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")
)
}