Marcelo Reis marceloreis
marceloreis
/ rbp_facebook.R
Last active
May 22, 2017 22:33
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(Rfacebook) | |
| library(tm) | |
| library(wordcloud) | |
| fbtoken = "use_seu_token" # Favor substituir por token de usuario (temporario) gerado pela API do Facebook | |
| # Obtenha seu token em https://developers.facebook.com/tools/accesstoken/ | |
| rbrp <- searchGroup(name="R Brasil Programadores", token=fbtoken) | |
| rbrp_i <- getGroup(rbrp[1,3],token=fbtoken,n=200) | |
| posts <- iconv(rbrp_i[,3],to="UTF-8") |
marceloreis
/ quadDep.R
Last active
May 10, 2017 01:17
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(sp) | |
| library(rgdal) | |
| library(rgeos) | |
| library(raster) | |
| library(ggplot2) | |
| # Lê um shapefile com UFs do Brasil - http://www.usp.br/nereus/?dados=brasil | |
| uf <- readOGR("../_temp/ufe.shp",encoding="UTF-8",stringsAsFactors = FALSE) | |
| uf_centroides <- gCentroid(uf,byid = TRUE) | |
| ufs = gSimplify(uf,tol=0.01) |