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