From 1163836de66d0c11d16256253d0d8a5e0fe5c8c4 Mon Sep 17 00:00:00 2001
From: aaron <aaron@duckpond.ch>
Date: Tue, 12 Mar 2024 13:35:18 +0100
Subject: [PATCH] rename proportions

---
 ironwood_plots.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ironwood_plots.R b/ironwood_plots.R
index 3e27388..1fd8985 100644
--- a/ironwood_plots.R
+++ b/ironwood_plots.R
@@ -28,7 +28,7 @@ condition_colors <- c("green", "yellow", "orange", "red", "black")
 ##
 
 # Calculate the percentage of trees in each health condition
-percentage <- prop.table(table(df$tree_health_index)) * 100
+percentage <- proportions(table(df$tree_health_index)) * 100
 # Now, let's create the bar plot
 barplot(percentage,
         names.arg = condition_names,