sergiospagnuolo

suppressMessages(library(odbc))
suppressMessages(library(DBI))
suppressMessages(library(RPostgreSQL))
suppressMessages(library(tidyverse))
suppressMessages(library(tidytext))
suppressMessages(library(wordcloud2))
suppressMessages(library(lubridate))
library(config)
library(ngram)

sergiospagnuolo

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"

sergiospagnuolo

sergiospagnuolo

library(tidyverse)
library(newsatlasbr)
library(clipr)


atlas_signin(email = "dados@voltdata.info", password = "senhatokenaberto")

dados <- newsatlasbr::organizations_state(uf = "all") 

desertos <- newsatlasbr::news_deserts()

sergiospagnuolo

library(tidyverse)

emplacamentos <- read_delim("https://docs.google.com/spreadsheets/d/e/2PACX-1vRY5Wc7j9qAEbStZioZBGEQB_o4S_eyJnVca8oP7gGTafvg8ZwDdZWYkzAx_455KOs3Q9uZQ9qSFIZ3/pub?gid=0&single=true&output=csv", delim = ",",  locale = locale(grouping_mark = "."))

emplacamentos$Ano <- as.Date(paste0(emplacamentos$Ano, "-01-01"))

marcas <- read_delim("https://docs.google.com/spreadsheets/d/e/2PACX-1vRY5Wc7j9qAEbStZioZBGEQB_o4S_eyJnVca8oP7gGTafvg8ZwDdZWYkzAx_455KOs3Q9uZQ9qSFIZ3/pub?gid=794101571&single=true&output=csv", delim = ",",  locale = locale(grouping_mark = "."))

marcas$Ano <- as.Date(paste0(marcas$Ano, "-01-01"))

sergiospagnuolo

# -*- coding: utf-8
# Abraji (https://www.abraji.org.br)
# Reinaldo Chaves (reinaldo@abraji.org.br)
# Programa acessar a API do Atlas da Notícia (https://www.atlas.jor.br/)
# É necessário antes se cadastrar, veja como aqui: https://www.atlas.jor.br/plataforma/utilizarAPI/

import requests
import pandas as pd

# Link da requisição principal

sergiospagnuolo

library(glue)
library(stringr)
library(deflateBR)
library(lubridate)

# 2017 e 2018 usam .CSV com caixa alta 
# 2019 e 2019 usam .csv com minúsculas
# Não há dados para março de 2019
url <- "http://repositorio.dados.gov.br/segrt/QUARENTENA_{mes}{ano}.CSV"

sergiospagnuolo

library(tidyverse)
library(jsonlite)
library(lubridate)
library(deflateBR)
library(scales)
library(clipr)

# contexto: http://www.portaltransparencia.gov.br/comunicados/603503-portal-da-transparencia-divulga-gastos-federais-especificos-para-combate-ao-coronavirus
url <- "http://www.portaltransparencia.gov.br/despesas/consulta/resultado?paginacaoSimples=true&tamanhoPagina=500&offset=0&direcaoOrdenacao=desc&colunaOrdenacao=mesAno&de=01%2F01%2F2020&ate=30%2F04%2F2020&acao=00S4%2C21C2%2C21C0&colunasSelecionadas=linkDetalhamento%2CmesAno%2CorgaoSuperior%2CorgaoVinculado%2CunidadeGestora%2Cfuncao%2CsubFuncao%2Cprograma%2Cacao%2CprogramaGoverno%2CgrupoDespesa%2CelementoDespesa%2CmodalidadeDespesa%2CvalorDespesaEmpenhada%2CvalorDespesaLiquidada%2CvalorDespesaPaga%2CvalorRestoPago&_=1586706855177"

sergiospagnuolo

library(tidyverse)
library(clipr)

# BRASIL - GERAL
# média de distanciamento social
bid %>% 
  filter(data> '2020-03-15' & region_type == "country" & dia_semana != "domingo") %>%
  summarise(media = mean((ratio_20 - 1) * 100), mediana = median((ratio_20 - 1) * 100))

# distanciamento social por dia da semana

sergiospagnuolo

library(lubridate)
library(scales)
library(tidyverse)

# regulariza o formato da data do tweet, corrige para fuso certo
d$created_at <- as.POSIXct(strptime(d$created_at, "%Y-%m-%d %H:%M:%S"))
d$created_at <- d$created_at - hours(3)
d$dia <- as.POSIXct(strptime(d$created_at, "%Y-%m-%d"))

# cria coluna com minuto arredondado