# Grab internal data
occdf <- tetrapods
# Remove NAs
occdf <- subset(occdf, !is.na(order) & order != "NO_ORDER_SPECIFIED")
# Temporal range
ex <- tax_range_time(occdf = occdf, name = "order", plot = TRUE)
# Customise appearance
ex <- tax_range_time(occdf = occdf, name = "order", plot = TRUE,
plot_args = list(ylab = "Orders",
pch = 21, col = "black", bg = "blue",
lty = 2),
intervals = list("periods", "eras"))
Run the code above in your browser using DataLab