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. Note that the graphs and CSV below have been updated to reflect some liberties and consolidation we have done with the framework to make it a bit more presentable.

2 Dimension Graphs

2.1 Economics

Code 
r
plots$econ <- get_dimension_ggraph(
  framework_df = tree,
  include_metrics = TRUE,
  dimension_in = 'economics',
  y_limits = c(-3.75, 3.25),
  palette = "scico::batlowW",
  # leaf_font_size = 4.5,
  # index_label_size = 0.2,
  # index_font_size = 4.5,
  arrow = arrow(
    angle = 15,
    length = unit(0.1, 'inches'),
    ends = 'last',
    type = 'closed'
  ) 
)
plots$econ

2.2 Environment

Code 
r
plots$env <- get_dimension_ggraph(
  framework_df = tree,
  include_metrics = TRUE,
  dimension_in = 'environment',
  # y_limits = c(-4.5, 3.25),
  y_limits = c(-3, 3.25),
  palette = "scico::batlowW",
  arrow = arrow(
    angle = 15,
    length = unit(0.1, 'inches'),
    ends = 'last',
    type = 'closed'
  ) 
)
plots$env

2.3 Health

Code 
r
plots$health <- get_dimension_ggraph(
  framework_df = tree,
  include_metrics = TRUE,
  dimension_in = 'health',
  y_limits = c(-4.5, 3.25),
  palette = "scico::batlowW",
  arrow = arrow(
    angle = 15,
    length = unit(0.1, 'inches'),
    ends = 'last',
    type = 'closed'
  ) 
)
plots$health

2.4 Production

Code 
r
plots$prod <- get_dimension_ggraph(
  framework_df = tree,
  include_metrics = TRUE,
  dimension_in = 'production',
  y_limits = c(-4.5, 3.25),
  palette = "scico::batlowW",
  arrow = arrow(
    angle = 15,
    length = unit(0.1, 'inches'),
    ends = 'last',
    type = 'closed'
  ) 
)
plots$prod

2.5 Social

Code 
r
plots$social <- get_dimension_ggraph(
  framework_df = tree,
  include_metrics = TRUE,
  dimension_in = 'social',
  y_limits = c(-3, 3.25),
  palette = "scico::batlowW",
  arrow = arrow(
    angle = 15,
    length = unit(0.1, 'inches'),
    ends = 'last',
    type = 'closed'
  ) 
)
plots$social

3 Sunburst

Little bit messy but maybe fun. Need to fix labels.

Code 
python
import plotly.io as pio
import plotly.express as px
import plotly.graph_objects as go

# Set renderer to notebook
pio.renderers.default = "notebook_connected"

# Pull data from R
tree = r.tree

# Create plot
px.sunburst(
  tree,
  path=["dimension", "index", "indicator", "metric"]
)

4 Dimension Table

Easier to interpret table with the framework.

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