library(dplyr)
library(sabesp)
library(ggplot2)
# datas <- as.Date(as.Date('2014-01-01'):as.Date(lubridate::today()), origin = '1970-01-01')
# d_sabesp <- baixa_sabesp_dias(datas)
data(d_sabesp)
d_sabesp %>%
filter(titulo == 'volume armazenado') %>%
ggplot(aes(x = data, y = info, colour = lugar)) +
geom_line() +
theme_bw() +
geom_hline(yintercept = 0, colour = 'gray') +
scale_x_date(date_labels = '%b %Y', date_breaks = '3 months',
limits = as.Date(c('2012-12-01', '2015-12-01'))) +
theme(axis.text.x = element_text(angle = 45, hjust = 1))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.