diff --git a/ecobee.R b/ecobee.R
index 1b6a16a..0472829 100644
--- a/ecobee.R
+++ b/ecobee.R
@@ -153,7 +153,7 @@ ggplot() +
             aes(x = dateTime,
                 y = temp,
                 color = temp_type))+
-  geom_rect(data = ecobee %>% pivot_longer(cols = c(compHeat1, auxHeat1, compCool1), names_to = "equipment", values_to = "active_sec") %>% filter(active_sec > 0),
+  geom_rect(data = ecobee %>% pivot_longer(cols = c(compHeat1, auxHeat1, compCool1, fan), names_to = "equipment", values_to = "active_sec") %>% filter(active_sec > 0),
             aes(xmin = dateTime,
                 xmax = dateTime + active_sec,
                 ymin = equipment_y + equipment_types[match(equipment, equipment_types$column), 4],
@@ -176,7 +176,7 @@ ggplot() +
             aes(x = dateTime,
                 y = temp,
                 color = temp_type))+
-  geom_rect(data = ecobee %>% filter(date > Sys.Date() - 7) %>% pivot_longer(cols = c(compHeat1, auxHeat1, compCool1), names_to = "equipment", values_to = "active_sec") %>% filter(active_sec > 0),
+  geom_rect(data = ecobee %>% filter(date > Sys.Date() - 7) %>% pivot_longer(cols = c(compHeat1, auxHeat1, compCool1, fan), names_to = "equipment", values_to = "active_sec") %>% filter(active_sec > 0),
             aes(xmin = dateTime,
                 xmax = dateTime + active_sec,
                 ymin = equipment_y + equipment_types[match(equipment, equipment_types$column), 4],
@@ -269,8 +269,9 @@ ggplot(data = ecobee %>%
          summarise(outdoorTemp = mean(outdoorTemp),
                    compHeat1 = sum(compHeat1, na.rm = TRUE),
                    compCool1 = sum(compCool1, na.rm = TRUE),
-                   auxHeat1 = sum(auxHeat1, na.rm = TRUE)) %>%
-         pivot_longer(cols = c(compHeat1, compCool1, auxHeat1), names_to = 'equipment', values_to = 'active_sec') %>%
+                   auxHeat1 = sum(auxHeat1, na.rm = TRUE),
+                   fan = sum(fan, na.rm = TRUE)) %>%
+         pivot_longer(cols = c(compHeat1, compCool1, auxHeat1, fan), names_to = 'equipment', values_to = 'active_sec') %>%
          filter(active_sec > 0),
        aes(x = outdoorTemp,
            y = active_sec/60/60,
diff --git a/figures/dateDay_timeRunning.png b/figures/dateDay_timeRunning.png
index 119d3b5..499c2cf 100644
Binary files a/figures/dateDay_timeRunning.png and b/figures/dateDay_timeRunning.png differ
diff --git a/figures/dateWeek_timeRunning.png b/figures/dateWeek_timeRunning.png
index e62f951..f0873c3 100644
Binary files a/figures/dateWeek_timeRunning.png and b/figures/dateWeek_timeRunning.png differ
diff --git a/figures/equipmentRun_electicCost.png b/figures/equipmentRun_electicCost.png
index 23cf5df..8f5dd8c 100644
Binary files a/figures/equipmentRun_electicCost.png and b/figures/equipmentRun_electicCost.png differ
diff --git a/figures/outdoorTemp_equipmentRun.png b/figures/outdoorTemp_equipmentRun.png
index c418741..56b0ea4 100644
Binary files a/figures/outdoorTemp_equipmentRun.png and b/figures/outdoorTemp_equipmentRun.png differ
diff --git a/figures/outdoorTemp_equipmentRun_zone.png b/figures/outdoorTemp_equipmentRun_zone.png
index b715e99..1507589 100644
Binary files a/figures/outdoorTemp_equipmentRun_zone.png and b/figures/outdoorTemp_equipmentRun_zone.png differ
diff --git a/figures/temp_time_all.png b/figures/temp_time_all.png
index 24bdfaf..327d066 100644
Binary files a/figures/temp_time_all.png and b/figures/temp_time_all.png differ
diff --git a/figures/temp_time_last_week.png b/figures/temp_time_last_week.png
index 4b8b176..6a642c4 100644
Binary files a/figures/temp_time_last_week.png and b/figures/temp_time_last_week.png differ