library(devtools) library(tidyverse) devtools::load_all(".")
mammals_sub %>% ggplot(aes(x=max_life_month, y=offspring.year)) + geom_point(aes(color = order)) + team_theme() + labs(x="Parental Maximum Lifespan", y="Offspring per Year")
mammals_sub %>% ggplot(aes(x=AFR_mo, y=offspring.year)) + geom_point(aes(color = order)) + team_theme() + labs(x="Age of First Reproduction", y="Offspring per Year")
mammals_sub %>% ggplot(aes(x=weaning_month, y=offspring.year)) + geom_point(aes(color = order)) + team_theme() + labs(x="Weaning Period Length", y="Offspring per Year")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.