Análise Getter

analise_gettr.R

library(tidyverse)
library(lubridate)
library(clipr)

ptbr <- read.csv("dados_pt.csv", header = T)
ptbr$lang <- "português"

eng <- read.csv("dados_eng.csv", header = T)
eng$lang <- "inglês"

hist <- read.csv("historico_completo.csv", header = T)

g <- bind_rows(ptbr,eng)

g$creation_date <- as.Date(g$creation_date)

g$semana <- cut(g$creation_date, "week", start.on.monday = TRUE)

semanal <- g %>% 
  group_by(lang,semana) %>%
  summarise(sum(Contagem)) %>%
  arrange(semana) %>%
  head(-2)

write_clip(d)