CateGitau

CateGitau

###########################################################################################################
#get the bigrams in queries and getting the frequency / create wordcloud
###########################################################################################################

#text cleaning
#import data
queries <- read.csv("texts.csv")

library(tm)
library(stringr)

CateGitau

options(java.parameters = "- Xmx1024m")
#load libraries
library(openxlsx)
library(rJava)
library(NLP)
library(openNLP)
library(RWeka)

#read text
text <- c("My name is Catherine Gitau, I work at Ongair Limited in Nairobi, Kenya")

CateGitau

CateGitau

CateGitau

CateGitau

CateGitau

CateGitau

CateGitau