Eucalypt traits of South-east Australia

knitr::opts_chunk$set(cache = TRUE, dev = c("png", "pdf"))
library(dplyr)
library(euctraits)
library(ggplot2)

Collections

qplot(reorder(taxon, taxon, function(x) -length(x)),
      data = distinct(traits_southeast, tree, taxon), xlab = "",
      main = "Eucalypt taxa collected", ylab = "Number of trees") +
theme(axis.text.x = element_text(size = 6, angle = 55, vjust = 1, hjust = 1))

qplot(altitude_m, data = distinct(traits_southeast, tree, altitude_m),
      binwidth = 100, xlab = "Elevation (mASL)", ylab = "Number of trees",
      main = "Distribution of eucalypt collection elevations")

Tree traits

Size

qplot(height_m,
      data = summarise_traits_by(traits_southeast, tree, taxon, height_m),
      bins = 15, xlab = "Height (m)", ylab = "Number of trees",
      main = "Distribution of eucalypt tree height")

qplot(girth_cm,
      data = summarise_traits_by(traits_southeast, tree, taxon, girth_cm),
      bins = 15, xlab = "Girth (cm)", ylab = "Number of trees",
      main = "Distribution of eucalypt tree girth")

qplot(girth_cm, height_m,
      data = summarise_traits_by(
        traits_southeast, tree, taxon, c(girth_cm, height_m)
      ),
      xlab = "Girth (cm)", ylab = "Height (m)", log = "xy",
      main = "Eucalypt tree height vs. girth")

Bark

qplot(bark_thickness_mm,
      data = summarise_traits_by(
        traits_southeast, tree, taxon, bark_thickness_mm
      ), bins = 15,
      xlab = "Mean Bark Thickness (mm)", ylab = "Number of trees",
      main = "Distribution of eucalypt tree bark thickness")

qplot(girth_cm, bark_thickness_mm,
      data = summarise_traits_by(
        traits_southeast, tree, taxon,  c(girth_cm, bark_thickness_mm)
      ),
      xlab = "Girth (cm)", ylab = "Mean Bark Thickness (mm)", log = "xy",
      main = "Eucalypt tree bark thickness vs. girth")

Taxon traits

Leaves

qplot(leaf_area_cm2,
      data = summarise_traits_by(traits_southeast, c(tree, taxon)), bins = 20,
      xlab = "Leaf area (cm\u00b2)", ylab = "Number of taxa",
      main = "Distribution of eucalypt leaf area")

qplot(leaf_mass_g,
      data = summarise_traits_by(traits_southeast, c(tree, taxon)), bins = 20,
      xlab = "Leaf mass (g)", ylab = "Number of taxa",
      main = "Distribution of eucalypt leaf mass")

qplot(leaf_area_cm2, leaf_mass_g,
      data = summarise_traits_by(traits_southeast, c(tree, taxon)),
      xlab = "Leaf area (cm\u00b2)", ylab = "Leaf mass (g)", log = "xy",
      main = "Eucalypt leaf area vs. leaf mass")

qplot(sla_mm2_per_mg,
      data = summarise_traits_by(traits_southeast, c(tree, taxon)),
      bins = 15, xlab = "SLA (mm\u00b2 mg\u207b\u00b9)",
      ylab = "Number of taxa", main = "Distribution of eucalypt SLA")

Stems

qplot(stem_density_g_per_ml,
      data = summarise_traits_by(traits_southeast, c(tree, taxon)),
      bins = 15, xlab = "Stem density (g ml\u207b\u00b9)",
      ylab = "Number of taxa", main = "Distribution of eucalypt stem density")

Fruit

qplot(fruit_mass_mg,
      data = summarise_traits_by(traits_southeast, c(tree, taxon)), bins = 15,
      log = "x", xlab = "Fruit dry mass (mg)", ylab = "Number of taxa",
      main = "Distribution of eucalypt fruit mass")

qplot(fruit_wall_width_mm,
      data = summarise_traits_by(traits_southeast, c(tree, taxon)), bins = 15,
      log = "x", xlab = "Fruit wall width (mm)", ylab = "Number of taxa",
      main = "Distribution of eucalypt fruit wall thickness")

Seeds

qplot(seed_mass_mg,
      data = summarise_traits_by(traits_southeast, c(tree, taxon)),
      bins = 15, log = "x", xlab = "Seed mass (mg)", ylab = "Number of taxa",
      main = "Distribution of eucalypt seed mass")