Vamos começar carregando e manipulando os dados.
Vamos verificar as primeiras linhas do conjunto de dados.
head(dados)
Vamos filtrar e selecionar as informações relevantes.
# Filtrar tweets em português com mais de 2 likes e selecionar colunas relevantes
dados_filtrados <- dados %>%
filter(language == "pt" & likes_count > 2) %>%
select(created_at, username, tweet, likes_count, Raiva, Alegria)
head(dados_filtrados)
## created_at username
## 1 2019-01-13 20:54:30 -03 nelsonrabat
## 2 2019-01-13 11:58:38 -03 pernetinha1
## 3 2019-01-13 11:38:36 -03 cartamaior
## 4 2019-01-13 09:51:01 -03 mbpguedes
## 5 2019-01-12 14:12:16 -03 gaypre68
## 6 2019-01-12 11:45:10 -03 portal_com
## tweet
## 1 @FotosDeFatos daqui há alguns anos vai ser só um fiapo de rio, devido ao desmatamento que vão fazer na amazônia.....
## 2 planos do novo governo: liberar desmatamento na amazônia, sucatear ainda mais o ensino no país (e não apenas o público) e baratear mão-de-obra. Acho q nessa pegada a gente alcança o desenvolvimento de Ruanda em poucos anos
## 3 Amazônia está sendo transformada em Cerrado, diz Carlos Nobre A grande mortalidade de espécies de árvores e o aumento da duração da estação seca na região, causados pelo desmatamento, queimadas e aquecimento global, sinalizam alterações irreversíveis https://t.co/bFAWJzfpLh https://t.co/JQyGjfRmsb
## 4 Amazônia está sendo transformada em Cerrado, diz Carlos Nobre "A grande mortalidade de espécies de árvores e o aumento da duração da estação seca na região, causados pelo desmatamento, queimadas e aquecimento global, sinalizam alterações irreversíveis". https://t.co/zSARl8HyaQ
## 5 @Pirulla25 @da_goiabeira Apoio a terra indígena por um motivo bem mais pragmatico: preservação da Amazônia. Vc já viu a diferença entre o desmatamento dentro e fora das terras indígenas. O valor econômico da preservação da Amazônia é muito alto pro Brasil é pra humanidade.
## 6 Artista cria primeira street art na Amazônia contra o desmatamento e pelas populações indígenas https://t.co/dYemqU8ZJa
## likes_count Raiva Alegria
## 1 4 0 0
## 2 38 0 0
## 3 20 1 0
## 4 4 1 0
## 5 29 0 1
## 6 3 0 0
Aqui está uma tabela interativa com os dados filtrados.
datatable(dados_filtrados, options = list(pageLength = 5, autoWidth = TRUE))
## Warning in instance$preRenderHook(instance): It seems your data is too big for
## client-side DataTables. You may consider server-side processing:
## https://rstudio.github.io/DT/server.html