nick/tree-tracker-report
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Refactor DAC section: clarify narratives, explain context from Climate Act, and improve table descriptions.

Browse Source
This commit is contained in:
Nick Heppler 2025-05-07 12:44:18 -04:00
parent 6a95bef585
commit 5f879603ca
1 changed files with 28 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
report.Rmd
View File

@ -802,27 +802,46 @@ create_species_summary_table(species_planted, "Tree Species (Optional)", "Tree S
# Disadvantaged Communities {.tabset}
[Back to Top](#)
New York State's **Climate Leadership and Community Protection Act** (Climate Act) acknowledges that climate change disproportionately impacts certain populations. To address these inequities, the **Climate Justice Working Group (CJWG)** developed and finalized criteria on **March 27, 2023**, to identify **Disadvantaged Communities (DACs)** across the state.
These communities are prioritized for support in the transition to clean energy, air quality improvement, and access to green economic opportunities. The following analysis highlights tree planting activity specifically within these disadvantaged areas.
Only survey entries associated with DAC-designated areas (as indicated by the **Disadvantaged Communities Indicator**) are included in the summaries below.
---
## By Region
```{r create-summary-table-region-dac, echo=TRUE, message=FALSE, , fig.height=6, fig.width=8}
survey_data %>%
filter(!is.na(`Disadvantaged Communities Indicator`), na.rm = TRUE) %>%
create_summary_table("Region", "Number of Trees Planted (Required)", remove_na = FALSE, table_font_size = 16)
This table presents the total number of trees planted within DACs, grouped by New York's **economic development regions**. It helps illustrate where tree planting efforts are concentrated in underserved areas at the regional scale.
```{r create-summary-table-region-dac, echo=TRUE, message=FALSE, fig.height=6, fig.width=8}
survey_data %>%
filter(!is.na(`Disadvantaged Communities Indicator`)) %>%
create_summary_table("Region", "Number of Trees Planted (Required)", remove_na = FALSE, table_font_size = 16)
```
---
## By County
```{r create-summary-table-county-dac, echo=TRUE, message=FALSE, , fig.height=6, fig.width=8}
This table summarizes tree planting within DACs by **county**. It provides a more localized view of which counties are seeing tree planting investments in disadvantaged communities.
```{r create-summary-table-county-dac, echo=TRUE, message=FALSE, fig.height=6, fig.width=8}
survey_data %>%
filter(!is.na(`Disadvantaged Communities Indicator`), na.rm = TRUE) %>%
filter(!is.na(`Disadvantaged Communities Indicator`)) %>%
create_summary_table("County", "Number of Trees Planted (Required)", remove_na = FALSE, table_font_size = 16)
```
---
## By Municipality
```{r create-summary-table-county-municipality, echo=TRUE, message=FALSE, , fig.height=6, fig.width=8}
This table breaks down the number of trees planted within DACs by **municipality**. It enables more granular insight into local-level engagement and delivery of benefits to disadvantaged areas.
```{r create-summary-table-county-municipality, echo=TRUE, message=FALSE, fig.height=6, fig.width=8}
survey_data %>%
filter(!is.na(`Disadvantaged Communities Indicator`), na.rm = TRUE) %>%
filter(!is.na(`Disadvantaged Communities Indicator`)) %>%
create_summary_table("Municipality", "Number of Trees Planted (Required)", remove_na = FALSE, table_font_size = 16)
```