R Markdown

Foi feito um robô que armazenasse o preço do IphoneX do site Walmart.com no intervalo de tempo de 5 em 5 minutos. A coleta de dados deu-se início no dia 02 de maio de 2018 e foi até 10 de junho de 2018.

#web scraping
#fonte https://github.com/hadley/rvest
#write(data.frame(preco = NULL, hora = NULL))
#vignette("selectorgadget")

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

walmart <- read_html("https://www.walmart.com.br/iphone-x-64gb-tela-5-8-ios-11-4g-wi-fi-camera-12mp-apple/6455038/pr")

preco <- walmart %>%
  html_nodes(css = 'span.product-price-value') %>% 
  html_text() %>% .[1] %>% str_remove_all(pattern = "[\\.]") %>% 
  str_replace_all(pattern = "\\,", replacement = ".") %>% 
  as.numeric()

hora <- now()

cat(preco,hora %>% as.character," ", "\n")

Os dados coletados pelo robô, foram armazenados na base “preco” com três variáveis: “PRECO”, “DATA”, “HORA”.

setwd("C:\\Users\\User\\Desktop\\Robo")

library(readr)
preco<- read_delim("preco.txt", "\t", 
                      escape_double = FALSE, trim_ws = TRUE)
View(preco)

names(preco)
plot(preco$PRECO, main = "Série Temporal", xlab = "Observacoes ao longo do tempo", ylab = "Preco do Iphone X")

No gráfico abaixo, pode-se observar a variação dos preços do IphoneX nesse período. Tendo seu valor mínimo de R$ 5.199,00 nos primeiros momentos (lançamento no site) e chegando a um valor máximo de R$ 6.999,00 um dia antes do Dia das Mães. Após o dia das mães, no dia 14-05-2018 o preço volta a ser R$ 5.199,00. Após um certo período, o valor se estabiliza em R$ 5.899,00

Serie Temporal do Preço do Iphone X no site Walmart.com

Serie Temporal do Preço do Iphone X no site Walmart.com