updating plotallindicators script

Gulf-IEA · Jun 20, 2024 · f6f0026 · f6f0026
1 parent 6321086
commit f6f0026
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 6 deletions.
diff --git a/indicator_objects/PlotAllIndicators.R b/indicator_objects/PlotAllIndicators.R
@@ -171,21 +171,27 @@ plotIndicatorTimeSeries(ind, coltoplot = 1:2, trendAnalysis = T, sublabel = T)
 ### 31. Number of seasonal closures implemented
 
 #Indicator 31
+
+### 32. Number of seasonal closures implemented
+
+load("indicator_objects/tier3.RData")
+plotIndicatorTimeSeries(ind, plotrownum = 2, coltoplot = 1:2, sublabel = TRUE, dateformat = "%Y%b", trendAnalysis = T)
 
-### 32. Number of education and outreach events
+### 33. Number of education and outreach events
 
-#Indicator 32
+load("indicator_objects/outreach.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:2, plotrownum = 2, trendAnalysis = T)
 
-### 33. Number of enforcement actions
+### 34. Number of enforcement actions
 
 #Indicator 33
 
-### 34 Percent coral cover
+### 35. Percent coral cover
 
 load("indicator_objects/coral_spprichness_cover.RData")
 plotIndicatorTimeSeries(ind, coltoplot = 1:4, sublabel = T, trendAnalysis = T)
 
-### 35. Coral species diversity
+### 36. Coral species diversity
 
 load("indicator_objects/coral_spprichness_cover.RData")
 plotIndicatorTimeSeries(ind, coltoplot = 1:4, sublabel = T, trendAnalysis = T)

diff --git a/indicator_objects/tier3.RData b/indicator_objects/tier3.RData
diff --git a/indicator_processing/non_automated/tier_designation.R b/indicator_processing/non_automated/tier_designation.R
@@ -26,10 +26,11 @@ inddata <- data.frame(cbind(PR, USVI))
 labs <- c("Stocks/complexes with Tier 3 designation" , "Percent", "Puerto Rico",
           "Stocks/complexes with Tier 3 designation" , "Percent", "USVI")
 indnames <- data.frame(matrix(labs, nrow = 3, byrow = F))
-ind <- list(labels = indnames, indicators = inddata, datelist = datdata)
+inddata <- list(labels = indnames, indicators = inddata, datelist = datdata)
 class(inddata) <- "indicatordata"
 
 # plot and save ----------------------------------
+ind <- inddata
 plotIndicatorTimeSeries(ind, plotrownum = 2, coltoplot = 1:2, sublabel = TRUE, dateformat = "%Y%b", trendAnalysis = T)
 
 save(ind, file = "indicator_objects/tier3.RData")