diff --git a/ecobee.R b/ecobee.R index 1232e56..1b6a16a 100644 --- a/ecobee.R +++ b/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, diff --git a/figures/dateDay_timeRunning.png b/figures/dateDay_timeRunning.png index bbe6f1b..119d3b5 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 6686908..e62f951 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 d3eabc0..23cf5df 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 96d6f6c..c418741 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 eb93636..b715e99 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 fcaf76a..24bdfaf 100644 Binary files a/figures/temp_time_all.png and b/figures/temp_time_all.png differ diff --git a/figures/temp_time_last_3_days.png b/figures/temp_time_last_3_days.png index 6695802..5ac3d34 100644 Binary files a/figures/temp_time_last_3_days.png and b/figures/temp_time_last_3_days.png differ diff --git a/figures/temp_time_last_week.png b/figures/temp_time_last_week.png new file mode 100644 index 0000000..4b8b176 Binary files /dev/null and b/figures/temp_time_last_week.png differ