使用 R 进行文本挖掘:如何在我的文档中查看正面和负面情绪?

text mining with R: how to see positive-negative sentiments in my document?

我是R的新手,我在我的文档中找到了正负词的数量(953个负数,458个正数),但我想看看这些词。我该怎么做?

library(readr)
library(tidyverse)
library(tidytext)
library(glue)
library(stringr)
library(dplyr)
davos <- read_file("davos.txt")
fileText <- glue(read_file(davos))
fileText <- gsub("\$", "", fileText)
tokens <- data_frame(text = fileText) %>% unnest_tokens(word, text)
tokens %>% inner_join(get_sentiments("bing")) %>% count(sentiment) %>% spread(sentiment, n, fill = 0) %>% mutate(sentiment = positive - negative)

# Joining, by = "word"
#
# # A tibble: 1 x 3
#     negative positive sentiment
#        <dbl>    <dbl>     <dbl>
#   1     953.     458.     -495.

是这样的吗?

library(tidy_text)
fileText <- "Sometimes I'm happy, sometimes I'm sad"
tokens <- data_frame(text = fileText) %>% unnest_tokens(word, text)
tokens %>%
  inner_join(get_sentiments("bing"))

# # A tibble: 2 x 2
#    word sentiment
#   <chr>     <chr>
# 1 happy  positive
# 2   sad  negative