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

Compare commits

base: nick:edffd605576d2ff2893f849ced06c3646ecdfecc
Branches Tags
nick:master
..
compare: nick:077b6701151aae94543f98aff8d90caf91ee5e1c
Branches Tags
nick:master

No commits in common. "edffd605576d2ff2893f849ced06c3646ecdfecc" and "077b6701151aae94543f98aff8d90caf91ee5e1c" have entirely different histories.
edffd60557 ... 077b670115

1 changed files with 2 additions and 15 deletions
Show Stats Expand all files Collapse all files

17
report.Rmd
View File

@ -527,7 +527,7 @@ survey_data %>%
## Municipal Activity
```{r municipal-activity-table}
```{r}
survey_data %>%
mutate(`Participant Municipality (Optional)` = case_when(
str_starts(`Participant Municipality (Optional)`, "c_") ~ str_replace(`Participant Municipality (Optional)`, "^c_", "") %>% paste0(" (city)"),
@ -539,19 +539,6 @@ create_summary_table("Participant Municipality (Optional)", "Number of Trees Pla
```
## 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}
```{r func-plot_geographic_data, echo=TRUE}
@ -800,4 +787,4 @@ survey_data %>%
survey_data %>%
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)
```
```