Sobre

Estarei catando alguns tweets para analise durante a live do Normose “Festa da democracia” com suas hashtags. Todos os dados colhidos dia 02/10/2022

#essa função abre o navegador pra autenticação
auth_setup_default()
## Using default authentication available.
## Reading auth from 'C:\Users\Tomazini\AppData\Roaming/R/config/R/rtweet/default.rds'

Dados das 18:40

Nuvem de palavras

#tweetsDF <- readRDS(file="datTweetsBrasil.Rda")
tweets_texto <-paste(tweets$text, collapse = " ")


wordcloud(width=16, height=16,
  tweets_texto, min.freq = 1, max.words = 100, width=1600, height=1600,
          random.order = FALSE, rot.per = 0.35,
          colors=brewer.pal(50,"Dark2"))

Gráfico de sentimento

#pontuando os tweets
tweetsDF <- tweets$text
s<-get_nrc_sentiment(tweetsDF)

#plotando grafico com sentimentos
barplot(colSums(s), las=2, col=rainbow(10),
        ylab = "Contagem", main = "Sentimentos em relação a #liveDaDemocracia")

Tweets com Calma gente

colhidos as 18:40

Nuvem de palavras

#tweetsDF <- readRDS(file="datTweetsBrasil.Rda")
tweets_texto <-paste(tweets$text, collapse = " ")


wordcloud(width=16, height=16,
  tweets_texto, min.freq = 1, max.words = 100, width=1600, height=1600,
          random.order = FALSE, rot.per = 0.35,
          colors=brewer.pal(50,"Dark2"))

Gráfico de sentimento

#pontuando os tweets
tweetsDF <- tweets$text
s<-get_nrc_sentiment(tweetsDF)

#plotando grafico com sentimentos
barplot(colSums(s), las=2, col=rainbow(10),
        ylab = "Contagem", main = "Sentimentos em relação a Calma gente")

Tweets com Luiz Inácio Lula da Silva

colhidos as 18:28

Nuvem de palavras

#tweetsDF <- readRDS(file="datTweetsBrasil.Rda")
tweets_texto <-paste(tweets$text, collapse = " ")


wordcloud(width=16, height=16,
  tweets_texto, min.freq = 1, max.words = 100, width=1600, height=1600,
          random.order = FALSE, rot.per = 0.35,
          colors=brewer.pal(50,"Dark2"))

Gráfico de sentimento

#pontuando os tweets
tweetsDF <- tweets$text
s<-get_nrc_sentiment(tweetsDF)

#plotando grafico com sentimentos
barplot(colSums(s), las=2, col=rainbow(10),
        ylab = "Contagem", main = "Sentimentos em relação a Luiz Inácio Lula da Silva")

Tweets com Eleicao2022

colhidos as 18:40

Nuvem de palavras

tweets_texto <-paste(tweets$text, collapse = " ")


wordcloud(width=16, height=16,
  tweets_texto, min.freq = 1, max.words = 100, width=1600, height=1600,
          random.order = FALSE, rot.per = 0.35,
          colors=brewer.pal(50,"Dark2"))

Gráfico de sentimento

#pontuando os tweets
tweetsDF <- tweets$text
s<-get_nrc_sentiment(tweetsDF)

#plotando grafico com sentimentos
barplot(colSums(s), las=2, col=rainbow(10),
        ylab = "Contagem", main = "Sentimentos em relação a Eleicao2022")