Extra-pair paternity in a sequentially polyandrous shorebird: limited evidence for the sperm-storage hypothesis
A pair of red phalaropes (Phalaropus fulicarius). Illustration by Margherita Cragnolini.
This repository contains all data and code used for data analysis and figure production in "Extra-pair paternity in a sequentially polyandrous shorebird: limited evidence for the sperm-storage hypothesis" by Johannes Krietsch , Margherita Cragnolini, Sylvia Kuhn, Richard B. Lanctot , Sarah T. Saalfeld , Mihai Valcu and Bart Kempenaers .
When using the data or code please cite the associated manuscript (in review) and Open Science Framework repository (which is synchronized with this repository). Please do not hesitate to contact me ([email protected]) if you have any questions, trouble running the code, found bugs or ideas to develop the project further.
DATA/
:
All data used in this analysis (click on the black arrows to see column definitions). Extracted from our database and from Dale et al. 1999 - Figure 1.
CAPTURES
– a table of all captures data
Columns are defined as:
external
: source of the data, MPIO = 0 or USFWS = 1data_type
: data types (see methods)year_
: yearID
: metal band idUL
: upper left colour bandsUR
: upper right colour bandsLL
: lower left colour bandsLR
: lower right colour bandssex
: field and genetic sexlat
: capture location latitude (decimal degrees)lon
: capture location longitude (decimal degrees)caught_time
: date and time caughtdead
: bird was found dead = 1 or was caught alive = 0
NESTS
– a table of all nests data
Columns are defined as:
external
: source of the data, MPIO = 0 or USFWS = 1data_type
: data types (see methods)year_
: yearnestID
: unique nest idmale_id
: male metal band idfemale_id
: female metal band idmale_assigned
: how the male was assigned: 0 = not, 1 = field, 2 = genetically, 3 = only GPStagfemale_assigned
: how the female was assigned: 0 = not, 1 = field, 2 = genetically, 3 = only GPStagfound_datetime
: date and time the nest was foundclutch_size
: total clutch sizecollected_datetime
: date and time the clutch was collected (if so)initiation
: estimated date and time the first egg was laidinitiation_method
: method with which the initiation date was estimatedest_hatching_datetime
: estimated hatching date and timehatching_datetime
: method with which the hatching date was estimatedchicks_back
: date and time chicks were brought back to the nestlast_checked_datetime
: date and time the nest was checked for the last timenest_state
: last nest state: I = Incubated (active nest), P = Predated, D = Deserted, H = Hatched (received hatched chicks), U = Unknown, O = Observer (collected withour replacement)nest_state_date
: date and time the nest state was based onlat
: nest location latitude (decimal degrees)lon
: nest location longitude (decimal degrees)parentage
: logic if parentage was possibleanyEPY
: logic if any extra-pair young were found in the clutchN_parentage
: number of eggs with parentage dataN_EPY
: number of extra-pair youngfemale_clutch
: sequence of female clutches based on the initiation date (1st, 2nd or 3rd clutch) within seasonN_female_clutch
: total number of clutches within seasonpolyandrous
: logic if the female was social polyandrouspolyandry_study_site
: logic if the female was social polyandrous with both clutches within the intensive study plotmale_clutch
: sequence of male clutches based on the initiation date (1st or 2nd clutch) within seasonN_male_clutch
: total number of clutches within seasonrenesting_male
: logic if the male was renestingrenesting_study_site
: logic if the male was renesting with both clutches within the intensive study plot
OBSERVATIONS
– a table of all observations data
Columns are defined as:
year_
: yeardatetime_
: date and time of the observationobs_id
: unique observation idID1
: id of one birdID2
: id of another bird (if interaction)ID1sex
: sex of ID1ID2sex
: sex of ID2ID1copAS
: ID1 was copulating = 1 or not = 0ID2copAS
: ID2 was copulating = 1 or not = 0same_sex
: logic ID1 and ID2 have the same sexID1_1st_partner
: id of the first breeding partner of ID1ID1_2nd_partner
: id of the second breeding partner of ID1diff_obs_1st_initiation
: differences between the observation and the initiation of the first nestdiff_obs_2nd_initiation
: differences between the observation and the initiation of the second nestseen_with_other_than_1st_partner
: logic observation with other than first partnerseen_with_other_than_2nd_partner
: logic observation with other than second partnercopAS_not_1st_partner
: logic copulation with other than first partnercopAS_not_2nd_partner
: logic copulation with other than second partner
PATERNITY
– a table of all paternity data
Columns are defined as:
year_
: yearnestID
: unique nest idIDchick
: unique chick idIDmother
: genetic mother idIDfather
: genetic father idEPY
: extra-pair young = 1, within-pair young = 0 or unknown = NAfate
: egg fate, h = hatched, f = frozen (unidentified fate), u = unhatchedundeveloped
: egg where only the germinal disc was visible = 1 or developed egg = 0comment
: comment from the parentage analysis
Dale_et_al_1999_REPH_EPP
– a table with extra-pair paternity
from Dale et al. 1999
Columns are defined as:
year_
: yearnestID
: unique nest numberinitiation_doy
: day of the year the first egg was laidanyEPY
: nest with extra-pair young = 1 or without = 0
R/
:
-
2_R_script_data_anaylsis.R
. The main script to reproduce all analysis and figures of this project. It contains a detailed commented workflow and follows the order in the manuscript. Each main block of the script can be run independently. (view in browser) -
0_functions.R
The workflow script sources this script, which is only needed to create a base map using OpenStreetMap data stored in the R packageauksRuak
. -
1_extract_data_from_database.R
Contains the script which with the data were extracted from our database. This script can only be run with access to our database and is only stored to document the process.
OUTPUTS/
:
-
2_R_script_data_anaylsis.html
– a compiled interactive html output of the workflow (view in browser) -
FIGURES/
– contains all figures created for publication -
TABLES/
– contains all tables created for publication
The data and code are supplied for scientific analysis, research, teaching or conservation purposes and shall be used only in accordance with the GNU GPLv3 license. For any publication making substantial use of the data or code, the authors welcome the opportunity for collaboration and to comment prior to publication. Please reach out to me ([email protected]) or Bart Kempenaers ([email protected]).
If you use the code or data, please cite the OSF repository linked to this github project:
Krietsch, J., Cragnolini, M., Kuhn, S., Lanctot, R. B., Saalfeld, S. T., Valcu, M., & Kempenaers, B. (2021). Data and code from ‘Extrapair paternity in a sequentially polyandrous shorebird: Limited evidence for the sperm storage hypothesis’. Open Science Framework. https://doi.org/10.17605/OSF.IO/V475T
and the corresponding article:
Krietsch, J., Cragnolini, M., Kuhn, S., Lanctot, R. B., Saalfeld, S. T., Valcu, M., & Kempenaers, B. (2022). Extrapair paternity in a sequentially polyandrous shorebird: limited evidence for the sperm storage hypothesis. Animal Behaviour, 183, 77-92. https://doi.org/10.1016/j.anbehav.2021.10.021
This work was funded by the Max Planck Society (to B.K.) and the U.S. Fish and Wildlife Service (to R.L.). J.K. was supported by the International Max Planck Research School for Organismal Biology.
We thank Alice Pintaric, Andrea Wittenzellner, Anne Cillard, Carol Gilsenan, Eunbi Kwon, Giulia Bambini, Kim Teltscher, Kristina Beck, Luisana Carballo, Martin Bulla, Peter Santema, Pietro D'Amelio, Sabine Spehn and Fenja Squirrell of the Max Planck Institute for Ornithology and Audrey Taylor, Ben Lagassé, Greg Norwood, Jen Selvidge, Jenny Cunningham, Jillian Cosgrove, Kirsten Grond, Lindall Kidd, Patrick Herzog, Willow English and Wyatt Egelhoff of the U.S. Fish and Wildlife Service for help in the field. We also thank the state and federal committees that reviewed and approved permits for this study, and the Ukpeaġvik Iñupiat Corporation for logistic support and access to their lands.