README.md

In jtrecenti/sabesp: Baixa dados da sabesp

Sabesp

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))

jtrecenti/sabesp documentation built on May 20, 2019, 3:17 a.m.