Most Demanding Job Title (Job Field Data retrieved using Data mining Software )

Most Demanding Job Titles

Analysis using LinkedIn Data in R

library(wordcloud)

library(tm)

#Loading Data

getwd()

setwd("C:/Users/ssn/Documents/Dinesh Analyst/Project")

linked = read.csv("jobs.CSV",stringsAsFactors = FALSE)

#Joining the texts rows

linked_text=paste(linked$JobList_JobTitle,collapse = " ")

#Making Sources and Corpus

linked_source=VectorSource(linked_text)

Corpus=Corpus(linked_source)

#Cleaning

Corpus=tm_map(Corpus,content_transformer(tolower))

Corpus=tm_map(Corpus,removePunctuation)

Corpus=tm_map(Corpus,stripWhitespace)

Corpus=tm_map(Corpus,removeWords,stopwords("english"))

#Matrix

dtm=DocumentTermMatrix(Corpus)

dtm2=as.matrix(dtm)

#Frequency

frequency = colSums(dtm2)

frequency=sort(frequency,decreasing = TRUE)

#Wordcloud

words= names(frequency)

wordcloud(words[1:59],frequency[1:59])

  

Output: