changed 3 day graph to last week graph

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

ecobee.R

@@ -172,11 +172,11 @@ ggsave(filename = "temp_time_all.png" ,
        units = "in")
 
 ggplot() +
-  geom_line(data = ecobee %>% filter(date > Sys.Date() - 3) %>% pivot_longer(cols = c(zoneAveTemp, outdoorTemp, zoneHeatTemp, zoneCoolTemp), names_to = "temp_type", values_to = "temp"),
+  geom_line(data = ecobee %>% filter(date > Sys.Date() - 7) %>% pivot_longer(cols = c(zoneAveTemp, outdoorTemp, zoneHeatTemp, zoneCoolTemp), names_to = "temp_type", values_to = "temp"),
             aes(x = dateTime,
                 y = temp,
                 color = temp_type))+
-  geom_rect(data = ecobee %>% filter(date > Sys.Date() - 3) %>% 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), 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],
@@ -187,7 +187,7 @@ ggplot() +
   theme(legend.title = element_blank()) +
   labs(x = 'Date',
        y = 'Temperature (\u00B0F)')
-ggsave(filename = "temp_time_last_3_days.png" , 
+ggsave(filename = "temp_time_last_week.png" , 
        path = paste(getwd(),"/figures/", sep = ""), 
        device = "png",
        width = 11,