Sentiment Analysis – Tata Motors

FY25 Analysis

library(syuzhet)

## Warning: package 'syuzhet' was built under R version 4.5.3

text_2025 <- readLines("C:/Users/deepa/OneDrive/Desktop/Business Analytics/Harish Sir/Assignment/Assignment 2/tata_mdna_2025.txt")

## Warning in readLines("C:/Users/deepa/OneDrive/Desktop/Business Analytics/Harish
## Sir/Assignment/Assignment 2/tata_mdna_2025.txt"): incomplete final line found
## on 'C:/Users/deepa/OneDrive/Desktop/Business Analytics/Harish
## Sir/Assignment/Assignment 2/tata_mdna_2025.txt'

sentiment_2025 <- get_nrc_sentiment(text_2025)
sentiment_2025 <- sort(colSums(sentiment_2025), decreasing = TRUE)

barplot(sentiment_2025, las=2, col=rainbow(7),
main="Sentiment Analysis - Tata Motors FY25")

FY24 Analysis

text_2024 <- readLines("C:/Users/deepa/OneDrive/Desktop/Business Analytics/Harish Sir/Assignment/Assignment 2/tata_mdna_2024.txt")

## Warning in readLines("C:/Users/deepa/OneDrive/Desktop/Business Analytics/Harish
## Sir/Assignment/Assignment 2/tata_mdna_2024.txt"): incomplete final line found
## on 'C:/Users/deepa/OneDrive/Desktop/Business Analytics/Harish
## Sir/Assignment/Assignment 2/tata_mdna_2024.txt'

sentiment_2024 <- get_nrc_sentiment(text_2024)
sentiment_2024 <- sort(colSums(sentiment_2024), decreasing = TRUE)

barplot(sentiment_2024, las=2, col=rainbow(7),
main="Sentiment Analysis - Tata Motors FY24")