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

Clean participant organization data and join with participant records. #3

Merged
nick merged 1 commits from enhancement/clean-survey-participant-orgs into master 2025-05-05 22:53:33 -04:00
Conversation 1 Commits 1 Files Changed 1 +15 -2
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 212c5fea5a - Show all commits

15
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}