# 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()
Most popular positive and negative words as a whole

Most popular positive and negative words depending on employment
status


Most popular positive and negative words depending on employment
position


Wordcloud

Positive and negative wordcloud
