Análise da variação do preço de um objeto

Nesta atividade, foi criado um robot com o intuito de pegar um valor de um objeto vendido na internet a cada 5 minutos durante um longo período de tempo e depois realizar uma análise da variação do preço desse objeto.

O objeto selecionado foi um celular, mais especificamente um Samsung S9, e o site de venda desse produto onde o robot buscava o preço a cada 5 minutos foi o da loja Ponto Frio.

O robot criado observou os preços do objeto escolhido durante um período de 39 dias aproximadente e salvou todas as informações coletadas(contendo a data e o valor do objeto nesse momento) num arquivo txt. Com o arquivo txt, foi observado o preço médio do celular durante cada um dos 39 dias da coleta das informações e assim foi possível gerar um gráfico onde podemos ter uma melhor visualização da variação do valor do celular.

O primeiro e o último dia da coleta das informações no site da Ponto Frio foram 02/05/18 e 10/06/18 respectivamente. Em alguns momentos, o robot não conseguiu coletar o preço, devido a problemas no servidor ou no site da Ponto Frio.

A seguir, estará disponível o script do algoritmo desenvolvido e o gráfico gerado.

suppressPackageStartupMessages(library(rvest))
suppressPackageStartupMessages(library(stringr))
suppressPackageStartupMessages(library(lubridate))

samsung_s9 <- read_html("https://www.pontofrio.com.br/TelefoneseCelulares/Smartphones/Android/smartphone-samsung-galaxy-s9-cinza-com-128gb-tela-infinita-de-5-8-dual-chip-android-8-0-camera-12mp-4gb-ram-e-processador-octa-core-12564968.html?utm_medium=cpc&utm_source=gp_pla&IdSku=12564968&idLojista=16&s_kwcid=AL!427!3!265995268440!!!g!430521836341!&utm_campaign=PROD_TopIDS_Shopping&ef_id=WteIagAABEMcFvJp:20180425142541:s")

preço = samsung_s9 %>% html_nodes("#ctl00_Conteudo_ctl01_precoPorValue") %>% html_text()
tempo = now ()

data = substring(tempo,1,10)
hora = substring(tempo,12,19)
cat(preço,data,hora,"\n")

#*/5 * * * * Rscript/home/Robot.R /home/Preços_projeto/preços.txt 2>&1

dados = read.table("preços.txt")
unique(dados[,2])

aux1 = head(dados,n=1)
aux2 = tail(dados,n=1)

aux1
##3.869,10 2018-05-02 11:40:05
aux2
##3.869,10 2018-06-10 22:55:03
library(ggplot2)

dias = seq(0,38,1)
valor = rep(3869.10,39)

grafico = qplot(dias,valor,geom="line", main = "Preço médio do objeto no período de 39 dias da coleta dos dados")
grafico + theme(axis.title=element_text(face="bold.italic",size="13", color="brown"))

Durante todo o período de coleta das informações, o objeto escolhido não sofreu variação de preço em nenhum momento, o que resulta em mais de um mês sem alteração de preço desse produto por parte da Ponto Frio.