Crie um Tibble de Texto Tidy!

Como você aprendeu sobre os princípios tidy, este código ajuda a organizar seus dados em um tibble para que você possa trabalhar dentro do tidyverse!

Antes, você viu que aplicar tidy() em um objeto TermDocumentMatrix() converte a TDM em um tibble. Neste exercício, você vai criar os dados de palavras diretamente a partir da coluna de avaliações chamada comments.

Primeiro, use unnest_tokens() para colocar o texto em minúsculas e tokenizar as avaliações em palavras individuais.

Às vezes é útil capturar a ordem original das palavras dentro de cada grupo de um corpus. Para isso, use mutate(). Em mutate() você usará seq_along() para criar uma sequência de números de 1 até o comprimento do objeto. Isso vai registrar a ordem em que as palavras foram escritas.

No pacote tm, você usaria removeWords() para remover stopwords. No tidyverse, primeiro é preciso carregar o léxico de stopwords e depois aplicar um anti_join() entre o data frame de texto tidy e as stopwords.

Este exercicio faz parte do curso

Análise de Sentimentos em R

Ver curso

Instruções do exercicio

Crie tidy_reviews encadeando (%>%) o objeto original de avaliações bos_reviews para a função unnest_tokens(). Passe um novo nome de coluna, word, e declare a coluna comments. Lembre-se: no tidyverse você não precisa de $ nem aspas.
Crie uma nova variável do jeito tidy! Reescreva tidy_reviews encadeando tidy_reviews em group_by com a coluna id. Depois %>% novamente para mutate(). Dentro de mutate, crie uma nova variável original_word_order igual a seq_along(word).
Imprima o tibble, tidy_reviews.
Carregue as stopwords pré-prontas "SMART" na sua sessão do R com data("stop_words").
Sobrescreva tidy_reviews passando o tidy_reviews original para anti_join() com um %>%. Dentro de anti_join() passe o léxico stop_words predefinido.

exercicio interativo prático

Tente este exercicio completando este código de exemplo.

# Vector to tibble
tidy_reviews <- bos_reviews %>% 
  ___(___, ___)

# Group by and mutate
tidy_reviews <- tidy_reviews %>% 
  ___(___) %>% 
  ___(original_word_order = ___(___))

# Quick review
___

# Load stopwords
___

# Perform anti-join
tidy_reviews_without_stopwords <- tidy_reviews %>% 
  ___(___)

Editar e Executar Código