analyze_sentiment {Goodreader} | R Documentation |
Perform sentiment analysis on book reviews with negation handling
Description
This function takes the output from scrape_reviews and performs sentiment analysis, including basic negation scope detection.
Usage
analyze_sentiment(reviews_df, lexicon = "afinn")
Arguments
reviews_df |
A data frame containing the output from scrape_reviews. |
lexicon |
The sentiment lexicon to use. Options are "afinn", "bing", or "nrc". |
Value
A data frame with sentiment scores for each review.
Examples
# Create a temporary file with sample book IDs
temp_file <- tempfile(fileext = ".txt")
writeLines(c("1420", "2767052", "10210"), temp_file)
# Run the scrape_reviews function
reviews <- scrape_reviews(temp_file, num_reviews = 5, use_parallel = FALSE)
# Check if reviews were successfully scraped
if (nrow(reviews) > 0) {
# Perform sentiment analysis
sentiment_results <- analyze_sentiment(reviews, lexicon = "afinn")
# Display the first few rows of the results
print(head(sentiment_results))
} else {
cat("No reviews found. Cannot perform sentiment analysis.\n")
}
# Clean up: remove the temporary file
file.remove(temp_file)
[Package Goodreader version 0.1.1 Index]