Mathias Felipe mathiasfls

Análise de buscas no Twitter no calor do momento

Este caderno contém funções para que seja possível medir o interesse de buscas no Twitter, com a finalidade de saber de algum assunto está realmente popular na rede social em certo momento. Por conta de limitações na API gratuita do Twitter, recomenda-se a utilização dessa metodologia para saber se um tópico foi popular no último dia ou período do dia.

Um exemplo de como isso foi usado pode ser visto neste tweet

Esta metodologia utiliza as bibliotecas de R Tidyverse e TwitteR para acessar os dados do Twitter.

Você também vai precisar de uma conta de desenvolvedor, a fim de conseguir todas as chaves de API para fazer as buscas (caso não tenha, garanto que é bem fácil).

	#!/usr/bin/env Rscript
	##keynote.R v1.0 Damon Kiesow @dkiesow
	##Use with the Keynote rTweet AppleScript app to automate threaded tweeting during Keynote presentations
	##
	## load rtweet package
	library(rtweet)
	me <- rtweet:::home_user()

	## Pull parameters from command line (first_status will be "yes" or "no" and provided from the AppleScript)
	args <- commandArgs(trailingOnly = TRUE)

	# dados podem ser obtidos em: http://memoria.cnpq.br/painel-de-investimentos

	library(tidyverse)
	library(deflateBR)
	library(lubridate)

	d <- read.csv("cnpq_investimentos.csv", header = T)

	d$Ano.Referência <- gsub("206", "2006", d$Ano.Referência)
	d$ano <- as.Date(d$Ano.Referência, origin="2002-09-11", format = "%Y")

	# Regular modules for data science and visualization:
	import numpy as np
	import pandas
	import seaborn as sns
	import matplotlib.pyplot as plt


	# Keras (2.2.4) and tensorflow (1.13).
	import tensorflow as tf
	import tensorflow_hub as hub

	## install these if not already
	pkgs <- c("remotes", "syuzhet", "tfse", "rtweet", "ggplot2", "dplyr", "tidyr")
	if (length(pkgs <- pkgs[!pkgs %in% installed.packages("remotes")]) > 0) {
	install.packages(pkgs)
	}

	## install from github
	remotes::install_github("mkearney/dataviz")
	remotes::install_github("mkearney/dict")

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

	# contexto: http://www.agricultura.gov.br/noticias/decreto-permite-pagamento-do-seguro-defeso-aos-pescadores-afetados-pelo-oleo
	# http://www.portaltransparencia.gov.br/beneficios/consulta
	url1 <- "http://www.portaltransparencia.gov.br/beneficios/consulta/resultado?paginacaoSimples=false&tamanhoPagina=250000&offset=0&direcaoOrdenacao=desc&colunaOrdenacao=mesAno&de="
	url2 <- "&colunasSelecionadas=linkDetalhamento%2ClinguagemCidada%2CmesAno%2Cuf%2Cmunicipio%2Cvalor&_=1574703194664"

	library(tidyverse)
	library(cepespR)
	library(httr)
	library(jsonlite)
	library(knitr)

	codmun <- read.csv("http://cepespdata.io/static/docs/cod_municipios.csv", header = T, sep = ";")
	codmun <- codmun %>% filter(ANO_ELEICAO == 2016)

	# do CEPESP: retorna apenas prefeitos eleitos em 2016

	<!DOCTYPE qgis_style>
	<qgis_style version="2">
	<symbols>
	<symbol name="qartoon" force_rhr="0" clip_to_extent="1" alpha="1" type="fill">
	<layer class="SimpleFill" enabled="1" locked="0" pass="0">
	<prop v="3x:0,0,0,0,0,0" k="border_width_map_unit_scale"/>
	<prop v="0,0,0,255" k="color"/>
	<prop v="round" k="joinstyle"/>
	<prop v="1,1" k="offset"/>
	<prop v="3x:0,0,0,0,0,0" k="offset_map_unit_scale"/>

	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