cndesantana

library(httr)
library(rvest)
library(lubridate)
library(tidyverse)

getCompromissos <- function(url){
  web = GET(url)
  compromissos = web %>% 
    read_html() %>%

cndesantana

### Network analysis of tweets and retweets

library(rtweet)
library(tidyverse)

tw <- search_tweets("covid19", n=15000, retryonratelimit = TRUE)
tw %>% filter(is_retweet == TRUE) %>%
  mutate(Source = screen_name, Target = retweet_screen_name) %>%
  group_by(Target) %>% 
  mutate(tottarget = n()) %>% 

cndesantana

### Dadoscope 2020

library(tidyverse)
library(waffle)
library(extrafont)
library(echarts4r)
library(fontawesome)

extrafont::font_import (path=".", 
                        pattern = "awesome", prompt = FALSE)

cndesantana

library(tidyverse)
library(lubridate)

link = "https://brasil.io/dataset/covid19/caso/?place_type=city&format=csv"

dat = read.csv(link, stringsAsFactors = FALSE)
dat <- dat %>% mutate(date = ymd(date))
   
png("hires.png", width=3200,height=1800,res=300)
dat %>% 

cndesantana

library(rtweet)
library(tidyverse)
library(tidyr)
library(tidytext)
library(tm)

tw = search_tweets("to:RodZeidan",n= 8000)

tw_pesquisa = tw %>% filter(reply_to_status_id == "1269113444646649857", !is_retweet, !is_quote)
nresp = nrow(tw_pesquisa)

cndesantana

---
title: Mapas eleitorais
output: flexdashboard::flex_dashboard
runtime: shiny
---


```{r}
library(rnaturalearth)
library(wbstats)

cndesantana

Keybase proof

I hereby claim:

• I am cndesantana on github.
• I am cnsantana (https://keybase.io/cnsantana) on keybase.
• I have a public key ASDOmnej1KsQI_xHZfd9CNl_wKaBS104RxI7lrkgw7rmXQo

To claim this, I am signing this object:

cndesantana

library(igraph)

nnodes = 100;#number of nodes is 100
g<-erdos.renyi.game(nnodes,0.07);#random graph with nnodes nodes
ypos<-round(runif(nnodes,min=0,max=3))#positions between 0 and 10
mysizes<-runif(nnodes,min=8,max=16)#sizes between 3 and 10
xpos<-runif(nnodes)
mylayout<-as.matrix(cbind(xpos,ypos))

png("./test.png",width=1980,height=1240,res=100)