Músicas felizes!

Claro que apenas palavras positivas e negativas não são suficientes. Neste exercício, você vai aprender sobre modificadores de valência, que indicam a intenção emocional do autor. Antes, você aplicou polarity() a textos sem modificadores de valência. Neste exemplo, você verá palavras de amplificação e de negação em ação.

Lembre que uma palavra de amplificação adiciona 0,8 a uma palavra positiva em polarity(), então a pontuação positiva se torna 1,8. Para palavras negativas, subtrai-se 0,8, de modo que o total fica -1,8. Em seguida, a pontuação é dividida pela raiz quadrada do número total de palavras.

Considere o seguinte exemplo de Frank Sinatra:

"It was a very good year"

"Good" vale 1 e "very" adiciona mais 0,8. Assim, 1,8/sqrt(6) resulta em polaridade 0,73.

Uma palavra de negação, como "not", inverte a pontuação de subjetividade. Considere o seguinte exemplo de Bobby McFerrin:

"Don't worry Be Happy"

"worry" agora vale 1 devido à negação "don't". Somando "happy", +1, chega a 2. Com 4 palavras no total, 2 / sqrt(4) resulta em uma pontuação de polaridade igual a 1.

Este exercicio faz parte do curso

Análise de Sentimentos em R

Ver curso

Instruções do exercicio

Examine o data frame da conversa, conversation. Observe os modificadores de valência como "never" na coluna de texto.
Aplique polarity() à coluna text de conversation para calcular a polaridade da conversa inteira.
Calcule as pontuações de polaridade por estudante, atribuindo o resultado a student_pol.
- Chame polarity() novamente, desta vez passando duas colunas de conversation.
- A variável de texto é text e a variável de agrupamento é student.
Para ver os resultados no nível de estudante, use scores() em student_pol.
A função counts() aplicada a student_pol imprimirá a polaridade no nível de sentença para o data frame inteiro, junto com as palavras do léxico identificadas.
O objeto de polaridade, student_pol, pode ser plotado com plot().

exercicio interativo prático

Tente este exercicio completando este código de exemplo.

# Examine conversation
___

# Polarity - All
___

# Polarity - Grouped
student_pol <- conversation %$%
  ___(___, ___)

# Student results
___

# Sentence by sentence
___

# qdap plot
___

Editar e Executar Código