使用 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
我是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