R/utils_mangrove_plot_density.R

Defines functions plot_mangrove_sapling_density

#' mangrove_plot_density 
#'
#' @description A utils function
#'
#' @return The return value, if any, from executing the utility.
#'
#' @noRd
plot_mangrove_sapling_density <- function(data_filtered, sel_geom, facet_maa) {
  data_aggreg <- aggregate_data(data_filtered, "sapling_tree_density_ind_m2")
  data_summary <- summarySE(data_aggreg, "sapling_tree_density_ind_m2", facet_maa)
  years <- sort(unique(data_summary$year))
  out <- list(data = data_summary)
  
  p <- plot_bar(
    data = data_summary,
    x = "year",
    y = "sapling_tree_density_ind_m2",
    fill = "location_status",
    title = "Sapling density",
    years = years,
    y_label = expression("Density (individuals/m"^2*")")
  )
  if (sel_geom == "Distribution plots") {
    data_local <- get_local_data(data_aggreg, 'sapling_tree_density_ind_m2', facet_maa)
    out$data <- data_local
    
    p <- p + plot_samples(
      data_local = data_local,
      x = "year",
      y = "sapling_tree_density_ind_m2",
      fill = "location_status"
    )
  }
  
  out$plot <- p
  out
}
Rare-Technology/ECO_Dashboard documentation built on May 6, 2023, 3 p.m.