Summarize total chargers and total charger types based on city.

This commit is contained in:
Nick Hepler 2024-09-30 12:11:43 -04:00
parent 5521dc04d0
commit f4f9329e70

View File

@ -127,11 +127,13 @@ charger_by_city_summary <- dataset %>%
group_by(City) %>%
summarise(
`Total Stations` = n(),
`Total Level 2 Chargers` = sum(`EV Level2 EVSE Num`, na.rm = TRUE),
`Total DC Fast Chargers` = sum(`EV DC Fast Count`, na.rm = TRUE),
`Total Chargers` = sum(`Total Chargers`)) %>%
arrange(desc(`Total Chargers`))
```
A new data frame is created to summarize the Total Chargers based on City in descending order of total chargers.
A new data frame is created to summarize the total chargers and total charger types based on City in descending order of total chargers.
```{r, message=FALSE}
charger_by_city_summary %>%