Gráfico Robô

Neste exercicio foi feito um gráfico mostrando a variação de preços de um perfume específico, retirado do site da OBoticario. Como não houve variação, foi utilizada apenas uma pequena amostra para representação gráfica, e podemos notar que temos como resposta uma reta, já que durante dias não houve mudança no valor.

library(tidyverse)

## ── Attaching packages ──────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──

## ✔ ggplot2 2.2.1     ✔ purrr   0.2.5
## ✔ tibble  1.4.2     ✔ dplyr   0.7.5
## ✔ tidyr   0.8.1     ✔ stringr 1.3.1
## ✔ readr   1.1.1     ✔ forcats 0.3.0

## ── Conflicts ─────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

library(readr)
p <- read_table2("Precos_90.txt",
                  col_types = cols(Data = col_character(),
                                   Hora = col_character()))
Preco <- p %>% top_n(90)

## Selecting by Preço

require(lubridate)

## Loading required package: lubridate

## 
## Attaching package: 'lubridate'

## The following object is masked from 'package:base':
## 
##     date

library(ggplot2)
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")