Sentiment analysis of Tailor Swift’s song lyrics!

1.Loading needed packages

library(tidyverse)
library(tidytext)
library(patchwork)
library(wordcloud)
library(reshape2)

2.Loading the dataset

taylor_swift <- read_csv("~/Desktop/R/csv/taylorswift.csv", col_types = "fffffDc") %>% 
  janitor::clean_names() %>% 
  select(-1)

3.Fearless (2008)

3.1 Wordcloud

3.2 Positive and negative wordcloud

4.1989 (2014)

4.1 Wordcloud

4.2 Positive and negative wordcloud

5.Red (2012)

5.1 Wordcloud

5.2 Positive and negative wordcloud

6.Taylor Swift (2006)

6.1 Wordcloud

6.2 Positive and negative wordcloud

7.Speak Now (2010)

7.1 Wordcloud

7.2 Positive and negative wordcloud

8.Reputation (2017)

8.1 Wordcloud

8.2 Positive and negative wordcloud

9.Folklore (2020)

9.1 Wordcloud

9.2 Positive and negative wordcloud