Get most frequent polarity of a sentiment score df
Examples
vec_text <- janeaustenr::austen_books()$text
df_sentiment <- syuzhet::get_nrc_sentiment(vec_text[1:50], lang="english")
df_polarity <- get_dominant_polarity(df_sentiment,2)
dplyr::count(df_polarity,polarity)
#> # A tibble: 3 × 2
#> polarity n
#> <chr> <int>
#> 1 negative 2
#> 2 neutral 36
#> 3 positive 12