R/plot_q10_mpa_important.R

In Rare-Technology/HHS_Dashboard: PKG_TITLE

plot_q10_mpa_important <- function(.data, ...){


  .data_plot <-prep_data_for_plot(
   .data, 
   focus_var = `10_mpa_important`, 
   recoding = c("Neutral" = -1, "No" = 0, "Yes" = 1),
   type = "facet"
  )
  
  p <- plot_horiz_bar(
   .data_plot,
   title = "Proportion of households that believe it is important that the region is managed and protected",
   fill_var = key,
   type = 'grouped'
  )
  
  result <- list(
    plot = p,
    data = .data_plot
  )
}