script.R

library(tidyverse)
library(scales)
library(anytime)

theme_set(jbkmisc::theme_jbk())

data <- dir(path = "stor_data/", full.names = TRUE) %>% 
  map(read_csv) %>% 
  reduce(bind_rows)

data <- data %>% 
  mutate(EPOCH =  anytime(EPOCH / 1000))

datag <- data %>% 
  group_by(SID, `Masking View`) %>% 
  summarise(uniques = n_distinct(`Total Capacity (MB)`)) %>% 
  mutate(cambio = ifelse(uniques > 1, "Cambio", "Sin cambio")) %>% 
  select(SID, `Masking View`, cambio)

data <- left_join(data, datag)

p <- data %>% 
  filter(!is.na(SID)) %>% 
  ggplot() + 
  geom_line(aes(EPOCH, `Total Capacity (MB)`, group = `Masking View`, color = cambio), alpha = 0.6) +
  scale_y_continuous(labels = comma) + 
  facet_wrap(~SID) 

plotly::ggplotly(p)