Affective Engagement

AFINN

afinn <- get_sentiments("afinn")
AFINN_global <- inner_join(tokens, afinn, by = "word")
AFINN_Async <- AFINN_global |>
  filter(modality == "Async") |>
  summarize(sentiment = sum(value))
AFINN_Sync <- AFINN_global |>
  filter(modality == "Sync") |>
  summarize(sentiment = sum(value))
AFINN_Quasi <- AFINN_global |>
  filter(modality == "Quasi") |>
  summarize(sentiment = sum(value))
AFINN_Async

  sentiment
1       353

BING

bing <- get_sentiments("bing")
BING_global <- inner_join(tokens, bing, by = "word")
BING_Async <- BING_global |>
  filter(modality == "Async") |>
  count(sentiment, sort = TRUE)
BING_Sync <- BING_global |>
  filter(modality == "Sync") |>
  count(sentiment, sort = TRUE)
BING_Quasi <- BING_global |>
  filter(modality == "Quasi") |>
  count(sentiment, sort = TRUE)

NRC

nrc <- get_sentiments("nrc")
NRC_global <- inner_join(tokens, nrc, by = "word")

Warning in inner_join(tokens, nrc, by = "word"): Detected an unexpected many-to-many relationship between `x` and `y`.
ℹ Row 1 of `x` matches multiple rows in `y`.
ℹ Row 10257 of `y` matches multiple rows in `x`.
ℹ If a many-to-many relationship is expected, set `relationship =
  "many-to-many"` to silence this warning.

NRC_Async <- NRC_global |>
  filter(modality == "Async") |>
  count(sentiment, sort = TRUE)
NRC_Sync <- NRC_global |>
  filter(modality == "Sync") |>
  count(sentiment, sort = TRUE)
NRC_Quasi <- NRC_global |>
  filter(modality == "Quasi") |>
  count(sentiment, sort = TRUE)

Comparisons