Regional Analyses

Caution

The Sustainability Metrics project, as well as this site itself, are works in progress. All data and analyses shown here are preliminary.

1 Introduction

This group of pages will present a survey of secondary data at the regional/county level in the Northeast. Add more context here eventually.

2 Dimension Graphs

2.1 Economics

Code

plots$econ <- get_dimension_ggraph(
  framework_df = tree,
  include_metrics = TRUE,
  dimension_in = 'economics',
  y_limits = c(-3.75, 3.25),
  palette = "scico::batlowW"
)
plots$econ

2.2 Environment

Code

plots$env <- get_dimension_ggraph(
  framework_df = tree,
  include_metrics = TRUE,
  dimension_in = 'environment',
  y_limits = c(-4.5, 3.25),
  palette = "scico::batlowW"
)
plots$env

2.3 Health

Code

plots$health <- get_dimension_ggraph(
  framework_df = tree,
  include_metrics = TRUE,
  dimension_in = 'health',
  y_limits = c(-4.5, 3.25),
  palette = "scico::batlowW"
)
plots$health

2.4 Production

Code

plots$prod <- get_dimension_ggraph(
  framework_df = tree,
  include_metrics = TRUE,
  dimension_in = 'production',
  y_limits = c(-4.5, 3.25),
  palette = "scico::batlowW"
)
plots$prod

2.5 Social

Code

plots$social <- get_dimension_ggraph(
  framework_df = tree,
  include_metrics = TRUE,
  dimension_in = 'social',
  y_limits = c(-3, 3.25),
  palette = "scico::batlowW"
)
plots$social

3 TEMP

4 Dimension Table

Code

data_paper_tree %>% 
  mutate(metric = case_when(
    str_detect(metric, 'NONE') ~ NA,
    .default = metric
  )) %>% 
  arrange(dimension, index, indicator, metric) %>% 
  get_reactable()