R/plot_q42b_problem_restricted_gear.R

In Rare-Technology/HHS_Dashboard: PKG_TITLE

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


  .data_plot <-  .data %>% 
    dplyr::filter(`42b_problem_restricted_gear` %in% c(0,1)) %>%
    prep_data_for_plot(
    `42b_problem_restricted_gear`,
    type = "bar",
    bar_column = `1`
  )
  
  p <- plot_horiz_bar(
    .data_plot,
    title = "Proportion of community members that \nknow how fishing with restricted gear affect the fishery"
  )

  result <- list(
    plot = p,
    data = .data_plot
  )
}