This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Funcao getTse, desenvolvida por Leonardo Barone (https://gist.github.com/leobarone/d1ee4bc1e883ee0deb0a9932943adafb) | |
# Inclui a funcao neste gist pois o arquivo do Leonardo continha um exemplo ao final, | |
# e eu queria somente uma fonte de amplo acesso para puxar a funcao diretamente | |
getTse<-function(link){ | |
# Cria um nome temporario que o arquivo baixado recebera | |
pasta.temporaria = file.path(getwd(), "/temp_folder") | |
dir.create(pasta.temporaria) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
################################################################################################### | |
##### Codigo para limpeza dos dados e producao de graficos sobre avaliacao de chefes de Estado | |
##### Nucleo Jornalismo | |
################################################################################################### | |
# Pacotes | |
library(dplyr) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(dplyr) | |
library(rtweet) | |
library(ggplot2) | |
library(chron) | |
supermercado_busca <- search_tweets("\"estou no supermercado\"", n = 18000, | |
retryonratelimit = T, | |
include_rts = F) | |
supermercado <- supermercado_busca |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
################################################################################################### | |
### CODIGO PARA COLETAR INFORMACOES DE ORGAOS PARTIDARIOS BRASILEIROS - SGIP/TSE | |
## Nivel: municipal | |
# Mes de coleta: Abril/2020 | |
# Lucas Gelape | |
# Disclaimer: o codigo demora algumas horas para coletar todas as informacoes |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
### STOPWORDS IN PORTUGUESE | |
## Create a unique dataset from several datasets with stopwords in Portuguese | |
# Lucas Gelape | |
# Packages | |
library(dplyr) | |
library(stringi) | |
library(readr) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
################################################## | |
################################################## | |
################################################## | |
##### | |
##### REELEICAO EM DESERTOS DE NOTICIA | |
##### | |
##### | |
# Lucas Gelape | |
# lucas@voltdata.info |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
### Pacotes | |
library(eleicoesmun2020) | |
library(electionsBR) | |
library(dplyr) | |
library(stringr) | |
library(lubridate) | |
library(stringi) | |
library(tidyr) | |
### Funcoes gerais |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
################################################################################################### | |
##### | |
##### ENGAJAMENTO DE PERFIS NO SCIENCE PULSE AO LONGO DA COBERTURA | |
##### | |
##### | |
# Pacotes | |
library(lubridate) | |
library(stringr) | |
library(tidyr) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
################################################################################################### | |
################################################################################################### | |
######### | |
######### "De cobras a funk: a guinada na comunicação digital do Instituto Butantan" | |
######### | |
######### Lucas Gelape | |
######### Analise de dados da materia publicada no Nucleo Jornalismo | |
######### | |
## Pacotes |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
################################################################################################### | |
# Pacotes | |
library(dplyr) | |
library(rtweet) | |
library(ggplot2) | |
################################################################################################### | |
# Busca tweets que podem conter a expressao que estamos buscando |
OlderNewer