diff --git a/R_scripts/inventory.Rmd b/R_scripts/inventory.Rmd index 7bf6af1..ce6f13f 100644 --- a/R_scripts/inventory.Rmd +++ b/R_scripts/inventory.Rmd @@ -214,7 +214,7 @@ species_mix %>% mutate(BA_frac = BA / sum(BA)) %>% knitr::kable(caption = "Basal area by plot and species") -# Live trees DBH +# Live trees BA ggplot(species_mix, aes(Year, BA, fill = Genus)) + geom_area(position="stack") + facet_grid(Plot~.)