# Carregar a base de dados
library(tidyverse)
mananciais <- read_delim("https://github.com/beatrizmilz/mananciais/raw/master/inst/extdata/mananciais.csv", 
                         ";", escape_double = FALSE, col_types = cols(data = col_date(format = "%Y-%m-%d")), 
                         locale = locale(decimal_mark = ",", grouping_mark = "."), 
                         trim_ws = TRUE)
                         
                         
# Parte 1: Crie um gráfico de linha, sendo que cada sistema deve ser representado por uma cor diferente.
# O eixo  x deve representar a data, e o eixo y deve representar o volume em porcentagem.
# Extra: Use a função facet_wrap() para criar um gráfico por sistema! facet_wrap(vars(NOME_DA_COLUNA)) 
# https://ggplot2.tidyverse.org/reference/facet_wrap.html







# Parte 2: Use alguns elementos que aprendemos na aula 2, e melhore a visualização.
# Ex: adicione um tema, uma escala de cores para os sistemas (não é contínuo!), legendas.