Chapter 38 Chipotle Business in Yonge Street Toronto

We explore in detail the Chipotle business in Yonge Street Toronto since this has recived the highest number of reviews among the Chipotle business.

38.1 Word Cloud of business Chipotle Business in Yonge Street Toronto

#gOBxVkHpqtjRRxHBIrpnMA

chioptle_yonge = reviews %>%
  filter(business_id == "gOBxVkHpqtjRRxHBIrpnMA")

createWordCloud(chioptle_yonge)

38.2 Top Ten most common Words of the business “Chipotle Business in Yonge Street Toronto”

We examine the Top Ten Most Common words and show them in a bar graph.

chioptle_yonge %>%
  unnest_tokens(word, text) %>%
  filter(!word %in% stop_words$word) %>%
  filter(!word %in% c('food','restaurant')) %>%
  count(word,sort = TRUE) %>%
  ungroup() %>%
  mutate(word = factor(word, levels = rev(unique(word)))) %>%
  head(10) %>%
  
  ggplot(aes(x = word,y = n)) +
  geom_bar(stat='identity',colour="white", fill =fillColor) +
  geom_text(aes(x = word, y = 1, label = paste0("(",n,")",sep="")),
            hjust=0, vjust=.5, size = 4, colour = 'black',
            fontface = 'bold') +
  labs(x = 'Word', y = 'Word Count', 
       title = 'Word Count') +
  coord_flip() + 
  theme_bw()

38.3 Sentiment Analysis - Postive and Not So Postive Words of Chipotle Business in Yonge Street Toronto

We display the Positive and Not So Positive words used by reviewers for the business Chipotle Business in Yonge Street Toronto.We have used the AFINN sentiment lexicon, which provides numeric positivity scores for each word, and visualize it with a bar plot.

positiveWordsBarGraph(chioptle_yonge)

38.4 Calculate Sentiment for the reviews

We calculate the sentiment scores for all the reviews using the AFINN sentiment lexicon. We display the Top Six sentiments here.

sentiment_lines = calculate_sentiment(chioptle_yonge)

head(sentiment_lines)

38.5 Negative Reviews

We examine the Top Ten most negative reviews.An interesting complaint for the Chipotle Business in Yonge Street Toronto was that they did not accept Interac , a standard payment method in Canada

Examples involving it are as follows

Not complying with customers' choice to pay with Interac, a standard payment method in Canada, is also a nuisance
Only reason it got a 4 star is because they don't accept interac which is my go to.

display_neg_sentiments(sentiment_lines,chioptle_yonge)

38.6 Positive Reviews

We examine the Top Ten most postive reviews.

display_pos_sentiments(sentiment_lines,chioptle_yonge)

38.7 Relationship among words in Chipotle Business in Yonge Street Toronto

We explore the different relationship among the various words in Chipotle Business in Yonge Street Toronto here through a network graph

bigrams_chioptle_yonge <- chioptle_yonge %>%
  count_bigrams()

bigrams_chioptle_yonge %>%
  filter(n > 5) %>%
  visualize_bigrams()