## The Emotions Dictionary

Heath and Heath (2017) proposed a taxonomy in The Power of Moments, where a moment is defined as a short experience that is both memorable and meaningful. Moments are created through one of the following elements - Elevation, Insight, Pride, Connection.

We have created an emotional moment dictionary that assigns terms to these moments. For example, an insightful moment may be reported through learning, thinking, or change, whereas a moment of pride could be reported through the terms champion, hero, or triumph.

We look for these terms within social data to identify moments that are prominent, helping us to understand how people feel about a brand and its products. Armed with this information, we know what can ignite an emotional connection between users and the brand.

We will run through an example using the sample data from the ParseR package.

# Generate a sample
set.seed(1)
example <- ParseR::sprinklr_export %>%
dplyr::sample_n(1000)

## Moment Frequencies

Each term from the dictionary is found within the data set and counted. This helps us to identify key moments and determine the way in which they are reported.

For this data set, moments of pride and connection are particularly strong. This makes sense - the posts within the data set are all centered around Hispanic Heritage Month, so we would hope to see some focus on community.

moment_frequency <- ParseR::moment_frequencies(df = example,
text_var = "Message")

## Moment Ratios

So far we have simply taken term frequencies to determine the strongest emotional moments within a given data set. This method, however, doesn’t determine the strength of moments for individual posts.

To tackle this, we calculate the moment ratio for each post. This is calculated in the following manner:

• Calculate the number of terms from the moment dictionary featuring in each post, for each of elevation, insight, connection, and pride
• Calculate the total number of words in each post
• Divide the number of moment terms by the total number of terms

For example, a post may contain 2 elevation words, and has a total of 100 words, in which case the elevation ratio would be 2 / 100 = 0.02.

ratios_df <- ParseR::calculate_ratios(example,
text_var = "Message")

## Ratios over time

The ratios can be aggregated over time to spot peaks and pits in emotions, and determine the type of events that influence these.

In this case, emotions are higher at the start of the time period due to excitement around upcoming and completed events. This excitement teeters off as Hispanic Heritage Month comes to an end and events subside.

ParseR::ratios_over_time(ratios_df,
date_var = "CreatedTime")