small tweaks

.Rhistory

@@ -1,36 +1,3 @@
-"PR" , "Density", "red hind",
-"PR" , "Density", "mutton snapper",
-"PR" , "Density", "yellowtail snapper",
-"PR" , "Density", "redband parrotfish",
-"PR" , "Density", "stoplight parrotfish")
-indnames <- data.frame(matrix(labs, nrow = 6, byrow = F))
-inddata <- list(labels = indnames, indicators = inddata, datelist = datdata)
-class(inddata) <- "indicatordata"
-save(inddata, file = "indicator_objects/RVC_PR.RData")
-# St. Thomas & St. John
-datdata <- 2001:2021
-inddata <- data.frame(cbind(RUVdensity_STTSTJ_BAL_VETU$species_data.density, RUVdensity_STTSTJ_EPI_GUTT$species_data.density, RUVdensity_STTSTJ_LUT_ANAL$species_data.density, RUVdensity_STTSTJ_OCY_CHRY$species_data.density, RUVdensity_STTSTJ_SPA_AURO$species_data.density, RUVdensity_STTSTJ_SPA_VIRI$species_data.density))
-labs <- c("STTSTJ" , "Density", "queen triggerfish",
-"STTSTJ" , "Density", "red hind",
-"STTSTJ" , "Density", "mutton snapper",
-"STTSTJ" , "Density", "yellowtail snapper",
-"STTSTJ" , "Density", "redband parrotfish",
-"STTSTJ" , "Density", "stoplight parrotfish")
-indnames <- data.frame(matrix(labs, nrow = 6, byrow = F))
-inddata <- list(labels = indnames, indicators = inddata, datelist = datdata)
-class(inddata) <- "indicatordata"
-save(inddata, file = "indicator_objects/RVC_STSJ.RData")
-# St. Croix
-datdata <- 2001:2021
-inddata <- data.frame(cbind(RUVdensity_STX_BAL_VETU$species_data.density, RUVdensity_STX_EPI_GUTT$species_data.density, RUVdensity_STX_LUT_ANAL$species_data.density, RUVdensity_STX_OCY_CHRY$species_data.density, RUVdensity_STX_SPA_AURO$species_data.density, RUVdensity_STX_SPA_VIRI$species_data.density))
-labs <- c("STX" , "Density", "queen triggerfish",
-"STX" , "Density", "red hind",
-"STX" , "Density", "mutton snapper",
-"STX" , "Density", "yellowtail snapper",
-"STX" , "Density", "redband parrotfish",
-"STX" , "Density", "stoplight parrotfish")
-indnames <- data.frame(matrix(labs, nrow = 6, byrow = F))
-inddata <- list(labels = indnames, indicators = inddata, datelist = datdata)
 class(inddata) <- "indicatordata"
 save(inddata, file = "indicator_objects/RVC_STX.RData")
 load("../indicator_objects/RVC_PR.RData")
@@ -510,3 +477,36 @@ load("../indicator_objects/coral_spprichness_cover.RData")
 plotIndicatorTimeSeries(inddata, coltoplot = 1:4, sublabel = T, trendAnalysis = T)
 plotIndicatorTimeSeries(ind, coltoplot = 1:4, sublabel = T, trendAnalysis = T)
 load("../indicator_objects/Carib_SST.RData")
+load("../indicator_objects/pollution.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:2, trendAnalysis = F, sublabel = T)
+library(plotTimeSeries)
+library(spam)
+load("../indicator_objects/marine_debris.RData")
+plotIndicatorTimeSeries(ind, trendAnalysis = F)
+load("../indicator_objects/pollution.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:2, trendAnalysis = F, sublabel = T)
+load("../indicator_objects/carib_Chl.RData")
+plotIndicatorTimeSeries(ind, trendAnalysis = T, dateformat = "%m-%Y")
+load("../indicator_objects/earthquakes.RData")
+plotIndicatorTimeSeries(ind, trendAnalysis = T)
+load("../indicator_objects/Sargassum.RData")
+plotIndicatorTimeSeries(inddata, trendAnalysis = T)
+plotIndicatorTimeSeries(ind, trendAnalysis = T)
+load("../indicator_objects/RVC_PR.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:6, trendAnalysis = T, sublabel = T)
+load("../indicator_objects/RVC_STSJ.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:6, trendAnalysis = T, sublabel = T)
+load("../indicator_objects/RVC_STX.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:6, trendAnalysis = T, sublabel = T)
+load("../indicator_objects/fish_density.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:3, plotrownum = 2, trendAnalysis = T, sublabel = T)
+load("../indicator_objects/GDP.RData")
+plotIndicatorTimeSeries(inddata, coltoplot = 1:2, trendAnalysis = T, sublabel = T)
+load("../indicator_objects/GDP.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:2, trendAnalysis = T, sublabel = T)
+load("../indicator_objects/unemployment.RData")
+plotIndicatorTimeSeries(inddata, coltoplot = 1:2, trendAnalysis = T, sublabel = T, dateformat = "%Y%b")
+load("../indicator_objects/unemployment.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:2, trendAnalysis = T, sublabel = T, dateformat = "%Y%b")
+load("../indicator_objects/coral_spprichness_cover.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:4, sublabel = T, trendAnalysis = T)