added fan data to figures
Signed-off-by: Ben Varick <ben@dendroalsia.net>
9
ecobee.R
@ -153,7 +153,7 @@ ggplot() +
|
|||||||
aes(x = dateTime,
|
aes(x = dateTime,
|
||||||
y = temp,
|
y = temp,
|
||||||
color = temp_type))+
|
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,
|
aes(xmin = dateTime,
|
||||||
xmax = dateTime + active_sec,
|
xmax = dateTime + active_sec,
|
||||||
ymin = equipment_y + equipment_types[match(equipment, equipment_types$column), 4],
|
ymin = equipment_y + equipment_types[match(equipment, equipment_types$column), 4],
|
||||||
@ -176,7 +176,7 @@ ggplot() +
|
|||||||
aes(x = dateTime,
|
aes(x = dateTime,
|
||||||
y = temp,
|
y = temp,
|
||||||
color = temp_type))+
|
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,
|
aes(xmin = dateTime,
|
||||||
xmax = dateTime + active_sec,
|
xmax = dateTime + active_sec,
|
||||||
ymin = equipment_y + equipment_types[match(equipment, equipment_types$column), 4],
|
ymin = equipment_y + equipment_types[match(equipment, equipment_types$column), 4],
|
||||||
@ -269,8 +269,9 @@ ggplot(data = ecobee %>%
|
|||||||
summarise(outdoorTemp = mean(outdoorTemp),
|
summarise(outdoorTemp = mean(outdoorTemp),
|
||||||
compHeat1 = sum(compHeat1, na.rm = TRUE),
|
compHeat1 = sum(compHeat1, na.rm = TRUE),
|
||||||
compCool1 = sum(compCool1, 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),
|
filter(active_sec > 0),
|
||||||
aes(x = outdoorTemp,
|
aes(x = outdoorTemp,
|
||||||
y = active_sec/60/60,
|
y = active_sec/60/60,
|
||||||
|
Before Width: | Height: | Size: 258 KiB After Width: | Height: | Size: 257 KiB |
Before Width: | Height: | Size: 248 KiB After Width: | Height: | Size: 248 KiB |
Before Width: | Height: | Size: 98 KiB After Width: | Height: | Size: 98 KiB |
Before Width: | Height: | Size: 227 KiB After Width: | Height: | Size: 323 KiB |
Before Width: | Height: | Size: 323 KiB After Width: | Height: | Size: 321 KiB |
Before Width: | Height: | Size: 367 KiB After Width: | Height: | Size: 370 KiB |
Before Width: | Height: | Size: 251 KiB After Width: | Height: | Size: 236 KiB |