Migration of Siamese mud carp elucidated by otolith microchemistry

The migration of Siamese mud carp (Henicorhynchus siamensis and H. lobatus) was studied using an otolith microchemistry technique, suggesting a population originating from a single natal origin but bypassing the waterfalls through a passable side channel where a major hydroelectric dam is planned.

bt.fukushima.2014

Format

The data frame 64,351 × 10 contains the following columns:

fish_id	integer	fish identifier
distance	numeric	distance from the core to the edge of otolith (mm)
mg_ca	numeric	otolith Mg:Ca (μmol/mol)
mn_ca	numeric	otolith Mn:Ca (μmol/mol)
zn_ca	numeric	otolith Zn:Ca (μmol/mol)
sr_ca	numeric	otolith Sr:Ca (μmol/mol)
ba_ca	numeric	otolith Ba:Ca (μmol/mol)
species	character	species studied
fl	numeric	fork length (mm)
date	character	date of capture
region	character	region of capture
river	character	river of capture

Details

This dataset contains otolith elemental raw data of Siamese mud carp populations in the Mekong.

Instrument: LA-ICP-MS (laser ablation-inductively coupled plasma mass spectrometry)

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

Source

Fukushima, M. Jutagate, T. Grudpan, C. Phomikong, P. & Nohara, S. (2014). Potential effects of hydroelectric dam development in the Mekong River basin on the migration of Siamese mud carp (Henicorhynchus siamensis and H. lobatus) elucidated by otolith microchemistry. PloS One, 9(8), e103722. https://doi.org/10.1371/journal.pone.0103722

Data availability are available at http://dx.doi.org/10.6084/m9.figshare.1046573 and http://dx.doi.org/10.6084/m9.figshare.1046574

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

Author

Liuyong Ding, ly_ding@126.com

Concepts

otolith, trace element, Sr/Ca, Mg/Ca, Mn/Ca, Zn/Ca, Ba/Ca

Examples

### copy data into 'dat'
dat <- bt.fukushima.2014
tibble::tibble(dat)
#> # A tibble: 3,139 × 12
#>    fish_id  distance mg_ca mn_ca  zn_ca sr_ca ba_ca species                     fl date   region river
#>    <chr>       <dbl> <dbl> <dbl>  <dbl> <dbl> <dbl> <chr>                    <dbl> <chr>  <chr>  <chr>
#>  1 DATA104M     0     208.  2.24 7.23    919. 101.  Henicorhynchus siamensis   135 Novem… Thai … Meko…
#>  2 DATA104M     0.06  140.  0    1.67    876.  38.1 Henicorhynchus siamensis   135 Novem… Thai … Meko…
#>  3 DATA104M     0.12  127.  0    0.0299  727.  23.2 Henicorhynchus siamensis   135 Novem… Thai … Meko…
#>  4 DATA104M     0.18  165.  5.29 0       892.  37.0 Henicorhynchus siamensis   135 Novem… Thai … Meko…
#>  5 DATA104M     0.24  134.  4.12 0       618.  32.9 Henicorhynchus siamensis   135 Novem… Thai … Meko…
#>  6 DATA104M     0.3   135.  1.46 0       813.  46.3 Henicorhynchus siamensis   135 Novem… Thai … Meko…
#>  7 DATA104M     0.36  156.  2.83 0       670.  36.0 Henicorhynchus siamensis   135 Novem… Thai … Meko…
#>  8 DATA104M     0.42  151.  9.34 0       746.  45.0 Henicorhynchus siamensis   135 Novem… Thai … Meko…
#>  9 DATA104M     0.48  114. 20.8  0       642.  44.2 Henicorhynchus siamensis   135 Novem… Thai … Meko…
#> 10 DATA104M     0.54  139. 16.3  0       850.  70.1 Henicorhynchus siamensis   135 Novem… Thai … Meko…
#> # ℹ 3,129 more rows

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

### otolith sr/ca
ggplot(data = dat, aes(distance, sr_ca)) +
  geom_line(aes(colour = species, group = fish_id), show.legend = F, na.rm = T) +
  facet_grid(species ~ ., scales = "free_y") +
  xlab("Distance from the core to the edge of otolith (mm)") +
  ylab("Otolith Sr:Ca (μmol/mol)") +
  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")
  )
### otolith mg/ca
ggplot(data = dat, aes(distance, mg_ca)) +
  geom_line(aes(colour = species, group = fish_id), show.legend = F, na.rm = T) +
  facet_grid(species ~ ., scales = "free_y") +
  xlab("Distance from the core to the edge of otolith (mm)") +
  ylab("Otolith Mg:Ca (μmol/mol)") +
  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")
  )
### otolith mn/ca
ggplot(data = dat, aes(distance, mn_ca)) +
  geom_line(aes(colour = species, group = fish_id), show.legend = F, na.rm = T) +
  facet_grid(species ~ ., scales = "free_y") +
  xlab("Distance from the core to the edge of otolith (mm)") +
  ylab("Otolith Mn:Ca (μmol/mol)") +
  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")
  )
### otolith zn/ca
ggplot(data = dat, aes(distance, zn_ca)) +
  geom_line(aes(colour = species, group = fish_id), show.legend = F, na.rm = T) +
  facet_grid(species ~ ., scales = "free_y") +
  xlab("Distance from the core to the edge of otolith (mm)") +
  ylab("Otolith Zn:Ca (μmol/mol)") +
  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")
  )
### otolith ba/ca
ggplot(data = dat, aes(distance, ba_ca)) +
  geom_line(aes(colour = species, group = fish_id), show.legend = F, na.rm = T) +
  facet_grid(species ~ ., scales = "free_y") +
  xlab("Distance from the core to the edge of otolith (mm)") +
  ylab("Otolith Ba:Ca (μmol/mol)") +
  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")
  )
}