Skip to content

Instantly share code, notes, and snippets.

Avatar

Lucas Gelape lgelape

View GitHub Profile
@lgelape
lgelape / butantan_redes.R
Last active Mar 30, 2021
Código de análise de dados da matéria "De cobras a funk: a guinada na comunicação digital do Instituto Butantan", Núcleo Jornalismo
View butantan_redes.R
###################################################################################################
###################################################################################################
#########
######### "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
@lgelape
lgelape / materia_engajamento_divulgadores.R
Created Mar 10, 2021
Código de análise da matéria "Em meio ao caos, cientistas brasileiros florescem no Twitter", Núcleo Jornalismo
View materia_engajamento_divulgadores.R
###################################################################################################
#####
##### ENGAJAMENTO DE PERFIS NO SCIENCE PULSE AO LONGO DA COBERTURA
#####
#####
# Pacotes
library(lubridate)
library(stringr)
library(tidyr)
@lgelape
lgelape / vereadores_jovens_2020.R
Created Nov 28, 2020
Código para replicação de análise sobre vereadores jovens eleitos em 2020
View vereadores_jovens_2020.R
### Pacotes
library(eleicoesmun2020)
library(electionsBR)
library(dplyr)
library(stringr)
library(lubridate)
library(stringi)
library(tidyr)
### Funcoes gerais
@lgelape
lgelape / reeleicao_desertos_noticia.R
Created Oct 29, 2020
Código para análises da notícia
View reeleicao_desertos_noticia.R
##################################################
##################################################
##################################################
#####
##### REELEICAO EM DESERTOS DE NOTICIA
#####
#####
# Lucas Gelape
# lucas@voltdata.info
@lgelape
lgelape / stopwords_pt.R
Last active Aug 19, 2020
Create a dataset with stopwords in Portuguese (from Stopwords ISO)
View stopwords_pt.R
### STOPWORDS IN PORTUGUESE
# Create a dataset with stopwords in Portuguese
# The original datasets used for this are from Stopwords ISO, at https://github.com/stopwords-iso/stopwords-pt
#rm(list = ls())
library(dplyr)
library(stringi)
@lgelape
lgelape / orgaos_partidarios_tse_br_sgip.R
Last active Apr 17, 2020
Código para coletar informações de órgãos partidários brasileiros
View orgaos_partidarios_tse_br_sgip.R
###################################################################################################
### 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
View supermercado_twitter.R
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
View nucleo_avaliacao_lideres.R
###################################################################################################
##### Codigo para limpeza dos dados e producao de graficos sobre avaliacao de chefes de Estado
##### Nucleo Jornalismo
###################################################################################################
# Pacotes
library(dplyr)
View getTse.R
# 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)