# Loading the needed packages
library(tidyverse)
library(tidytext)
library(patchwork)
library(wordcloud)
library(reshape2)
# Loading the data set
lady_gaga<-read_csv("ladygaga.csv", col_types = "fffffDc") %>%
janitor::clean_names() %>%
select(-1)
The Fame (2008)

Wordcloud

Positive and negative wordcloud

Born This Way (2011)

Wordcloud

Positive and negative wordcloud

Artpop (2013)

Wordcloud

Positive and negative wordcloud

Joanne (2016)

Wordcloud

Positive and negative wordcloud

Chromatica (2020)

Wordcloud

Positive and negative wordcloud
