added fan data to figures

Signed-off-by: Ben Varick <ben@dendroalsia.net>

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)) %>%
+                   auxHeat1 = sum(auxHeat1, na.rm = TRUE),
-         pivot_longer(cols = c(compHeat1, compCool1, auxHeat1), names_to = 'equipment', values_to = 'active_sec') %>%
+                   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,