НачатьНачать бесплатно

Радостные песни!

Конечно, одних только положительных и отрицательных слов недостаточно. В этом упражнении вы узнаете о модификаторах валентности, которые отражают эмоциональный замысел автора. Ранее вы применяли polarity() к тексту без модификаторов валентности. В этом примере вы увидите усилители и отрицания в действии.

Напомним, что усиливающее слово прибавляет 0,8 к значению положительного слова в polarity(), и тогда положительная оценка становится равной 1,8. Для отрицательных слов 0,8 вычитается, и итоговое значение равняется −1,8. Затем оценка делится на квадратный корень из общего числа слов.

Рассмотрим следующий пример из песни Фрэнка Синатры:

  • "It was a very good year"

«Good» равно 1, а «very» прибавляет ещё 0,8. Таким образом, 1,8/sqrt(6) даёт полярность 0,73.

Отрицательное слово, например «not», инвертирует оценку субъективности. Рассмотрим следующий пример из песни Бобби Макферрина:

  • "Don't worry Be Happy"

«worry» теперь равно 1 из-за отрицания «don't». Прибавив «happy» (+1), получаем 2. При 4 словах в предложении 2 / sqrt(4) даёт оценку полярности 1.

Это упражнение является частью курса

Анализ тональности в R

Посмотреть курс

Инструкции к упражнению

  • Изучите фрейм данных conversation. Обратите внимание на модификаторы валентности, например «never», в столбце text.
  • Примените polarity() к столбцу text фрейма conversation, чтобы вычислить полярность для всего разговора.
  • Вычислите оценки полярности по студентам и сохраните результат в student_pol.
    • Снова вызовите polarity(), на этот раз передав два столбца из conversation.
    • Переменная с текстом — text, переменная группировки — student.
  • Чтобы просмотреть результаты на уровне студентов, примените scores() к student_pol.
  • Функция counts(), применённая к student_pol, выведет полярность на уровне предложений для всего фрейма данных, а также идентифицированные слова из лексикона.
  • Объект полярности student_pol можно визуализировать с помощью plot().

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

# Examine conversation
___

# Polarity - All
___

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

# Student results
___

# Sentence by sentence
___

# qdap plot
___
Редактировать и запускать код