From 156cbb3549314afe8feeb7c5547f062a28cf7d29 Mon Sep 17 00:00:00 2001
From: Ben Bond-Lamberty <bondlamberty@pnnl.gov>
Date: Mon, 1 Apr 2024 17:13:18 -0400
Subject: [PATCH] Update inventory.Rmd

---
 R_scripts/inventory.Rmd | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/R_scripts/inventory.Rmd b/R_scripts/inventory.Rmd
index 4ad790f..cd984d5 100644
--- a/R_scripts/inventory.Rmd
+++ b/R_scripts/inventory.Rmd
@@ -207,6 +207,12 @@ inv_long %>%
               .groups = "drop") ->
     species_mix
 
+species_mix %>% 
+    filter(Year == max(Year)) %>% 
+    group_by(Plot) %>% 
+    mutate(BA_frac = BA / sum(BA)) %>% 
+    knitr::kable(caption = "Basal area by plot and species")
+
 # Live trees DBH
 ggplot(species_mix, aes(Year, BA, fill = Genus)) +
     geom_area(position="stack") +