Update inventory.Rmd

COMPASS-DOE · Apr 1, 2024 · 156cbb3 · 156cbb3
1 parent b9a4230
commit 156cbb3
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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") +