# Loading the needed packages
library(tidyverse)
library(tidytext)
library(patchwork)
library(wordcloud)
library(reshape2)
# Loading the data set
glassdoor <- read_csv("glassdoor.csv") %>% janitor::clean_names()

Wordcloud

Positive and negative wordcloud