From a64d577abb9952e0c4dede031c9dc313a5e40315 Mon Sep 17 00:00:00 2001 From: Ben Varick Date: Sun, 3 Dec 2023 13:56:36 -0600 Subject: [PATCH] removed week chart --- laundry_status.R | 15 --------------- laundry_status.Rmd | 4 ---- 2 files changed, 19 deletions(-) diff --git a/laundry_status.R b/laundry_status.R index 9bfe5e9..2fda992 100755 --- a/laundry_status.R +++ b/laundry_status.R @@ -108,21 +108,6 @@ update_data <- function(){ y = NULL, fill = NULL) - plot_1week <- ggplot(data = values) + - geom_tile(aes(x = time + seconds(round(as.numeric(difftime(end_time, time, unit = "secs")))/2), - y = entity_id, - width = seconds(round(as.numeric(difftime(end_time, time, unit = "secs")))), - height = 0.5, - fill = status)) + - scale_y_discrete(breaks = entities$entity_id, labels = entities$name) + - scale_x_datetime(date_breaks = "1 day", date_labels = '%A', date_minor_breaks = "4 hours") + - scale_fill_manual(values = colors$color) + - theme(axis.text.x = element_text(angle = 30, vjust = 0.5)) + - labs(title = "The past week", - x = NULL, - y = NULL, - fill = NULL) - plot_1week_days <- ggplot(data = values %>% filter(as.Date(time, tz = "America/Chicago") == as.Date(end_time, tz = "America/Chicago")) %>% mutate(date = as.Date(time, tz = "America/Chicago")) %>% diff --git a/laundry_status.Rmd b/laundry_status.Rmd index d49361f..2b9eee8 100644 --- a/laundry_status.Rmd +++ b/laundry_status.Rmd @@ -43,10 +43,6 @@ This site tracks the washing machine and dryer of our building. My hope is that plot(plot_1day) ``` -```{r plot_1week, echo=FALSE} -plot(plot_1week) -``` - ```{r plot_1week_days, echo=FALSE} plot(plot_1week_days) ```