Palaeoclimatology and stable oxygen isotope of otolith*

Stable oxygen isotope values were determined for freshwater drum (Aplodinotus grunniens) sagittal otoliths recovered from the Eastman rockshelter archaeological site in northeast Tennessee to evaluate climate change for the eastern interior United States from 5500 calendar years ago to the present.

bt.wurster.2001

Format

The data frame 1,238 × 3 contains the following columns:

fish_id	character	shark identifier
distance	numeric	distance from the otolith center (um)
d18O	numeric	otolith oxygen isotope ratios (‰)

Details

The dataset contains fourteen Aplodinotus grunniens sagittae were micromilled to collect and analyze high-resolution intra-annually deposited carbonate powder for d18O.

Instrument: IRMS (isotope ratio mass spectrometer)

Note: data extraction via WebPlotDigitizer tool (Title with * label).

Source

Wurster, C. M., & Patterson, W. P. (2001). Late Holocene climate change for the eastern interior United States: evidence from high-resolution δ18O values of sagittal otoliths. Palaeogeography, Palaeoclimatology, Palaeoecology, 170(1-2), 81-100. https://doi.org/10.1016/S0031-0182(01)00229-2

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

Author

Liuyong Ding, ly_ding@126.com

Concepts

otolith, stable isotope, d18O

Examples

### copy data into 'dat'
dat <- bt.wurster.2001
tibble::tibble(dat)
#> # A tibble: 1,238 × 3
#>    fish_id      distance  d18O
#>    <chr>           <dbl> <dbl>
#>  1 Specimen17_1     13.6 -7.88
#>  2 Specimen17_1     18.2 -7.40
#>  3 Specimen17_1     25   -7.13
#>  4 Specimen17_1     27.5 -6.91
#>  5 Specimen17_1     28.4 -6.35
#>  6 Specimen17_1     28.4 -6.22
#>  7 Specimen17_1     29.2 -6.07
#>  8 Specimen17_1     31.8 -5.18
#>  9 Specimen17_1     34.3 -6.30
#> 10 Specimen17_1     36.9 -7.15
#> # ℹ 1,228 more rows

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

### otolith d18O
ggplot(data = dat,aes(distance, d18O)) +
  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("Age (years)") +
  ylab(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")
  )
}