I came across the Human Ageing Genomic Resources. They are doing some fascinating work and expose some engrossing data. I wanted to make the data easier for me to work with, and an R package seemed to be the natural vehicle to do this.
For more information on these data, take a look at this article: Tacutu, Craig, Budovsky, Wuttke, Lehmann, Taranukha, Costa, Fraifeld and de Magalhaes, “Human Ageing Genomic Resources: Integrated databases and tools for the biology and genetics of ageing,” Nucleic Acids Research 41(D1):D1027-D1033, 2013.
Caveat emptor: I’m not a biologist. In fact, what I know about biology is very sketchy indeed. I’m very happy to be corrected on any of this.
Install the development package.
Load it into your session.
At present the package contains a single dataset,
age, which captures the AnAge Database of Animal Ageing and Longevity.
What are the columns in
names(age)  "hagrid" "domain"  "kingdom" "phylum"  "class" "order"  "family" "genus"  "species" "common_name"  "female_maturity_days" "male_maturity_days"  "gestation_incubation_days" "weaning_days"  "litter_clutch_size" "litters_clutches_per_year"  "inter_litter_inter_birth_interval" "birth_mass_g"  "weaning_mass_g" "adult_mass_g"  "growth_rate_per_day" "maximum_longevity_yr"  "source" "specimen_origin"  "sample_size" "data_quality"  "imr_per_yr" "mrdt_yr"  "metabolic_rate_watt" "body_mass_g"  "temperature_kelvin"
domain column has been added for completeness.
Let’s look up a familiar species.
human <- age %>% filter(common_name == "Human")
Where do humans fit into the taxonomy of creatures?
human %>% select(domain:species) # A tibble: 1 x 8 domain kingdom phylum class order family genus species
1 Eukarya Animalia Chordata Mammalia Primates Hominidae Homo sapiens
How about some relevant masses?
human %>% select(ends_with("_g")) # A tibble: 1 x 4 birth_mass_g weaning_mass_g adult_mass_g body_mass_g
1 3312. 11750 62035 70000
Some other important characteristics.
human %>% select(matches("_(watt|kelvin)$")) # A tibble: 1 x 2 metabolic_rate_watt temperature_kelvin
1 82.8 310.
So the average human burns energy at about the same rate as an old incandescent 100 Watt light bulb.
And expected body temperature is 310.15 Kelvin (which converts to 37 °C or 98.6 °F).
Species with Negligible Senescence
Which species don’t appear to age? See, for example, https://doi.org/10.1098/rsbl.2010.0539.
age %>% filter(mrdt_yr == 999) %>% select(common_name, maximum_longevity_yr) # A tibble: 7 x 2 common_name maximum_longevity_yr
1 Olm 102 2 Blanding's turtle 77 3 Eastern box turtle 138 4 Rougheye rockfish 205 5 Red sea urchin 200 6 Ocean quahog clam 507 7 Great Basin bristlecone pine 5062
Age and Other Traits
We’ll focus on a specific phylum, Chordata, which will allow us to colour points by class without things getting too colourful.
chordata <- age %>% filter(phylum == "Chordata")
What’s the relationship between maximum longevity and mass?
This plot is dominated by birds and mammals (Aves and Mammalia) where there is ample body mass data.
My naive rule of thumb: heavier organisms live longer. Also, for a given mass, birds seem to live longer than mammals. 💡 The data are presented on logarithmic scales and there’s still a lot of scatter.
What about maximum longevity and age at maturity?
My simplistic interpretation: the longer an organism takes to mature, the longer it will live. This makes sense. Though there are some notable outliers.
Finally, let’s look at the relationship between maximum longevity and growth rate.
This plot is also dominated by birds and mammals. My superficial understanding: the slower an organism grows, the longer it will live. Again, this makes sense! Also birds generally grow more rapidly than mammals: there’s a nice segregation of these two classes.
Gestation & Mass
It occurred to me that it might be interesting to look at the relationship between gestation period and birth mass.
Bottom line appears to be: the bigger it is, the longer it takes to [mb]ake. Makes sense to me.
What About Weaning?
How long does it typically take to wean?
The median weaning time is 77 days. However, the long tail pushes the average out to 144 days.
I’ll dig into other aspects of these data when time permits. Let me know if you find anything interesting!