From f4f9329e7028dd4a6bcc5fb09d92dc747366b624 Mon Sep 17 00:00:00 2001
From: Nick Hepler <nick@nickhepler.com>
Date: Mon, 30 Sep 2024 12:11:43 -0400
Subject: [PATCH] Summarize total chargers and total charger types based on
 city.

---
 analysis.Rmd | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/analysis.Rmd b/analysis.Rmd
index 5f68d66..aa3945e 100644
--- a/analysis.Rmd
+++ b/analysis.Rmd
@@ -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 %>%