ecobee.R

@@ -290,13 +290,16 @@ ggsave(filename = "outdoorTemp_equipmentRun.png" ,
        units = "in")
 
 ggplot(data = utility_data %>% filter(start_date>startdate)) +
-  geom_point(aes(x = `Electricity (kWh)`,
+  geom_point(aes(y = `Electricity (kWh)`,
-                 y = heat_pump_hours+heat_aux_hours+cool_pump_hours)) +
+                 x = heat_pump_hours+heat_aux_hours+cool_pump_hours)) +
-  geom_label_repel(aes(x = `Electricity (kWh)`,
+  geom_label_repel(aes(y = `Electricity (kWh)`,
-                 y = heat_pump_hours+heat_aux_hours+cool_pump_hours,
+                 x = heat_pump_hours+heat_aux_hours+cool_pump_hours,
                  label = `mid date`)) +
   scale_x_continuous(limits = c(0, NA), expand = expansion(mult = c(0,0.1))) +
-  scale_y_continuous(limits = c(0, NA), expand = expansion(mult = c(0,0.1)))
+  scale_y_continuous(limits = c(0, NA), expand = expansion(mult = c(0,0.1))) +
+  labs(title = "Heat pump hours vs total kWh",
+       x = "Heat Pump Hours (heating + cooling)",
+       y = "Electricity (kWh)")
 ggsave(filename = "equipmentRun_electicCost.png" , 
        path = paste(getwd(),"/figures/", sep = ""), 
        device = "png",