Assignment 9

\"cable_vendor_data_with_timestamp.csv\" %>%
read_csv() %>%
mutate(month = ts %>% month()) %>%
mutate(year = ts %>% year()) %>%
mutate(date = ts %>% day()) %>%
mutate(hour = ts %>% hour()) -> cable_ds

cable_ds %>%
filter(date == 2 & month == 2 & year == 2018 & vendor == \"A\") %>%
ggplot(aes(x= factor(hour, levels = c(0:24)) ,
y = cable_length_in_cms,
colour= factor(hour),
frame = hour,
cumulative = TRUE)) + geom_point() +
labs(x = \"hour\",
y = \"cable length in cms\",
title = \" length of cable produced by Vendor A hourly\")-> p1

p1 %>% gganimate(\"cable_vendor_data.gif\",ani.width = 480*2, interval = 1)