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

Clean participant organization data and join with participant records.

Browse Source
This commit is contained in:
Nick Heppler 2025-05-05 22:47:44 -04:00
parent 077b670115
commit 212c5fea5a
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
report.Rmd
View File

@ -527,7 +527,7 @@ survey_data %>%
## Municipal Activity ## Municipal Activity
```{r} ```{r municipal-activity-table}
survey_data %>% survey_data %>%
mutate(`Participant Municipality (Optional)` = case_when( mutate(`Participant Municipality (Optional)` = case_when(
str_starts(`Participant Municipality (Optional)`, "c_") ~ str_replace(`Participant Municipality (Optional)`, "^c_", "") %>% paste0(" (city)"), str_starts(`Participant Municipality (Optional)`, "c_") ~ str_replace(`Participant Municipality (Optional)`, "^c_", "") %>% paste0(" (city)"),
@ -539,6 +539,19 @@ create_summary_table("Participant Municipality (Optional)", "Number of Trees Pla
``` ```
## Organizaiton Activity ## Organizaiton Activity
```{r organization-activity-table}
survey_data %>%
inner_join(participant_organizations, by = c("GlobalID" = "ParentGlobalID")) %>%
filter(!(is.na(`Participant Organization (Optional)`) & is.na(`Other (Optional)`))) %>%
filter(!(tolower(`Participant Organization (Optional)`) == "other" & is.na(`Other (Optional)`))) %>%
mutate(`Participant Organization (Optional)` = ifelse(
tolower(`Participant Organization (Optional)`) == "other" & !is.na(`Other (Optional)`),
`Other (Optional)`,
`Participant Organization (Optional)`
)) %>%
mutate(`Participant Organization (Optional)` = str_replace_all(`Participant Organization (Optional)`, "_", " ")) %>%
create_summary_table("Participant Organization (Optional)", "Number of Trees Planted (Required)", remove_na = FALSE, table_font_size = 16)
```
# Location Analysis {.tabset} # Location Analysis {.tabset}
```{r func-plot_geographic_data, echo=TRUE} ```{r func-plot_geographic_data, echo=TRUE}
@ -787,4 +800,4 @@ survey_data %>%
survey_data %>% survey_data %>%
filter(!is.na(`Disadvantaged Communities Indicator`), na.rm = TRUE) %>% filter(!is.na(`Disadvantaged Communities Indicator`), na.rm = TRUE) %>%
create_summary_table("Municipality", "Number of Trees Planted (Required)", remove_na = FALSE, table_font_size = 16) create_summary_table("Municipality", "Number of Trees Planted (Required)", remove_na = FALSE, table_font_size = 16)
``` ```