robo

Foram observadas as variação dos valores do perfume lily, para depois exibir um grafico com essas variações.

Obs: Não teve alteração no valor do perfume

Como resultado esperado, teremos uma reta, pois o valor permaneceu o mesmo.

Chamaremos a tabela.

Preco <- read_table2("Precos_Separados_Tabulacao.txt",
                  col_types = cols(Data = col_character(),
                                   Hora = col_character()))

Ggplot para exibir o resultado

Preco$DataTime <- parse_date_time(paste(Preco$Data, Preco$Hora), '%Y-%m-%d %H:%M:%S')



ggplot(data = Preco, aes(x= DataTime, y= Preço), geom = "line") + geom_line(color = "red") + labs(x= "Data", y = "Preço")