Nota do aplicativo Estuda.com

# Pacotes
require(tidyverse)
require(lubridate)
require(highcharter)

# Leitura dos dados
nota_app <-
  data.table::fread("C:/Users/ESTUDA.COM/estuda_app/Nota/nota_app.csv") %>% 
  mutate(data = dmy(data)) 

# falha_geral <- 
#   data.table::fread("C:/Users/ESTUDA.COM/estuda_app/Dados/falha_geral.csv")
# falha_geral2 <-  falha_geral %>% 
#   filter(Date >= "2020-03-20")

#Grafico da nota play store ao longo do tempo

highchart(type = "stock") %>% 
  hc_add_series(nota_app,
                type = "line", 
                hcaes(x = data, y = nota),
                color= "#c4d82b", 
                name = "Nota") 

---

# #Grafico de falhas (mesmo periodo do grafico de notas)
# highchart(type = "stock") %>% 
#   hc_title(text = "Falhas:",
#            verticalAling = "top") %>% 
#   hc_add_series(falha_geral2,
#                 type = "column",
#                 hcaes(x = Date, y = Daily.Crashes), 
#                 color= "black", name = "Falhas") 
# 
# #Gradio de falhas 2 (periodo total)
# highchart(type = "stock") %>% 
#   hc_title(text = "Falhas por mês (2014 - 2021):",
#            verticalAling = "top") %>% 
#   hc_add_series(falha_geral,
#                 type = "column",
#                 hcaes(x = Date, y = Daily.Crashes), 
#                 color= "black", 
#                 name = "Falhas")