I thought it would be useful to show a few examples of things that could be the focus of a presentation for Project 3, using two different cities: Montréal and Urbana-Champaign. Urbana-Champaign is quite a bit smaller than the projects you have in class and I think is more difficult to find something interesting. Montréal on the other hand is significantly more complex due to the use of French and English in the reviews; there is a lot there, but I thought it may be too complex given the short time line.

Each of the three sections below are a good guide to the number of tables and plots individual project probably should be. Yes, perhaps you would add a few more examples, but use the sections as a guide for how large a scope you should be trying to capture with your work.

The three examples cover the following topics:

  1. The use of French and English in Montréal reviews.
  2. The effect of location in the Urbana-Champaign reviews.
  3. Gender in reviews from Urbana-Champaign.

Note that I tried to focus on thing that extend what I had already done in the notes to show what is possible. If your project focuses more on the methods in Notebook 13, that will not be a problem. However, if you want to do something a bit different, I of course encourage that as well!

1. Montreal/Montréal: French and English

I will start by reading in the yelp data for Montréal:

yelp <- read_csv("data/montreal.csv.gz")
token <- read_csv("data/montreal_token.csv.gz")

And then, store and plot the three clusters that appear in the PCA components of the TF matrix:

set.seed(5)
clusters <- token %>%
  cnlp_utils_tf(
    doc_set = unique(yelp$user_name),
    min_df = 0.001,
    max_df = 1.0,
    max_features = 10000,
    doc_var = "user_name",
    token_var = "token"
  ) %>%
  sm_tidy_pca(n = 2) %>%
  sm_kmeans(clusters = 3)

clusters %>%
  ggplot(aes(x = v1, y = v2)) +
    geom_point(aes(color = factor(cluster))) +
    geom_text_repel(
      aes(label = document),
      show.legend = FALSE,
      max.overlaps = 20,
      size = 2
    ) +
    labs(color = "Cluster Number") +
    scale_color_viridis_d() +
    theme_void()

Notice that there is a strong clustering here (you likely do not have anything as strong in the cities that I gave to use for class). Looking at the TF-IDF terms as a function of cluster sheds some light on what is going on:

token %>%
  filter(upos == "NOUN") %>%
  sm_text_tfidf(doc_var = "user_name", token_var = "lemma") %>%
  group_by(doc_id) %>%
  arrange(desc(tfidf)) %>%
  slice_head(n = 5) %>%
  summarize(tokens = paste(token, collapse = "; ")) %>%
  left_join(select(clusters, document, cluster), by = c("doc_id" = "document")) %>%
  arrange(cluster) %>%
  print.data.frame()
##          doc_id                                              tokens cluster
## 1          Hugo                  profiterole; une; un; boeuf; oeufs       1
## 2       Mathieu                            allé; payé; que; un; une       1
## 3      Audrey 1                  que; glacée; également; saveur; je       2
## 4      Caroline                 volonté; une; sympa; livraison; bon       2
## 5     Christine                     une; un; pour; pâtisserie; cela       2
## 6           Emi                   une; un; évidemment; propose; que       2
## 7          Gaby                     bref; que; je; fille; proximité       2
## 8       Jacques               facile; professionnel; fumée; une; un       2
## 9        Judith                     que; réservation; une; un; pour       2
## 10     Julien 1 déjeuner; copine; professionnel; gratuit; abordable       2
## 11     Julien 2          sont; bonne; moyenne; magasin; l'intérieur       2
## 12     Julien 3              également; offre; cependant; vrac; que       2
## 13          Luc               critique; correcte; offre; ici; fumée       2
## 14      Marie 1                            allée; que; qui; un; une       2
## 15      Marie 2                        que; parce; étudiant; un; je       2
## 16       Mariko                         copine; opté; que; je; avon       2
## 17     Matthieu             avouer; sympa; pense; relativement; que       2
## 18      Natalie                        une; un; mère; détour; allée       2
## 19      Patrice           que; relativement; vrac; également; bière       2
## 20       Pierre                   cela; niveau; que; revenir; sympa       2
## 21      Quentin                      clairement; que; une; sont; un       2
## 22        Sam 1                            un; avon; une; que; sont       2
## 23      Sarah 2                            bain; une; un; que; pour       2
## 24        Simon                         se; pareil; et; numéro; que       2
## 25      Valerie                copine; lieu; avon; avion; également       2
## 26      Vanessa                     épicerie; que; une; pas; saveur       2
## 27     Virginie                            que; qui; puis; une; pas       2
## 28        Aimee              rabbit; cranberry; recipe; flavor; fig       3
## 29         Alex                      roti; jerk; toilet; crap; news       3
## 30       Amanda                  cone; rabbit; bike; cosy; magazine       3
## 31        Amber                      lol; bird; candle; byow; berry       3
## 32          Ann                latté; artist; doughnut; hurry; crap       3
## 33     Audrey 2             dress; mojito; chat; accident; shawarma       3
## 34        Bobby                library; studio; yoga; walnut; model       3
## 35      Charles            locker; horse; computer; towel; register       3
## 36    Christina       decoration; boyfriend; driver; shack; mixture       3
## 37        Cindy             plating; beauty; fruity; tartar; garden       3
## 38        Clare            receptionist; hair; nail; truffle; aisle       3
## 39        Corey                    shore; pad; sink; sardine; steal       3
## 40       Daniel              wife; ravioli; buzz; whole; steakhouse       3
## 41      David 1                  jacket; lineup; aisle; layout; gas       3
## 42      David 2                    grub; risotto; slaw; disaster; e       3
## 43       Debbie                  calorie; poke; desert; cider; past       3
## 44       Denzil       gelato; setup; environment; burrito; mountain       3
## 45        Doris           boyfriend; bf; cappuccino; layer; balance       3
## 46      Ephraim                 shelf; slaw; jalapeno; knife; metal       3
## 47         Erik                 shower; root; warning; hotel; candy       3
## 48       Fatema            husband; interior; exterior; queue; cosy       3
## 49      Francis         waiting; daughter; clinic; register; barman       3
## 50    Gabrielle                 boyfriend; bf; rum; entree; arugula       3
## 51       Hannah                artist; cat; partner; reviewer; joke       3
## 52        Irwin               desk; cart; girlfriend; wallet; knife       3
## 53         Jack          partner; slaw; bibimbap; ambience; macaron       3
## 54         Jana                  daughter; poke; salon; nail; offer       3
## 55       Janine                        nail; ass; queue; bike; grub       3
## 56      Jason 1                   tag; cappuccino; spa; taouk; grub       3
## 57      Jason 2                    knife; yolk; veal; recipe; aroma       3
## 58         Jeff           respect; heck; sprout; department; liquid       3
## 59   Jennifer 1                 sister; char; basic; cat; companion       3
## 60   Jennifer 2              hotel; theme; washroom; church; flight       3
## 61          Jim             ayce; bison; receipt; register; theatre       3
## 62        Jimmy                wife; premium; classic; must; wallet       3
## 63         Jiro      daughter; element; tandoori; folk; perspective       3
## 64        Jonny                 serve; worker; everyday; pint; dill       3
## 65        Julia                 tennis; whole; gear; ricotta; serve       3
## 66      Justine                    ayce; mother; clue; supply; lock       3
## 67        Kandi                             u; lol; song; latté; bf       3
## 68     Katerina        colleague; cider; discovery; expert; verdict       3
## 69        Katya            vip; competitor; frame; shack; promotion       3
## 70        Kevin           security; community; airport; child; wife       3
## 71  Konstantina                shack; venue; boat; doughnut; entree       3
## 72        Leesa           daughter; supply; basement; record; noise       3
## 73           Lu                  nail; theatre; blend; lamp; master       3
## 74         Lucy               husband; mention; artist; puff; child       3
## 75         Marc                meatball; moist; supper; greek; tray       3
## 76         Mary             rabbit; entree; asparagus; fruity; byow       3
## 77      Matthew             lol; calmar; personality; buddy; mussel       3
## 78      Michael             yogourt; element; crunch; play; bourbon       3
## 79       Mike 1         song; souvlaki; disaster; import; cafeteria       3
## 80       Mike 2                     jerk; buddy; joy; lol; pleasure       3
## 81       Norine                 venue; purchase; yoga; studio; dosa       3
## 82     Patricia                 frill; mean; :); ambience; doughnut       3
## 83     Rajendra               chickpea; earth; shit; doughnut; roti       3
## 84        Rawan                 crab; macaron; bomb; nutella; tooth       3
## 85        Ricky                   u; pho; gnocchi; conclusion; crab       3
## 86         Risa                museum; gold; stretch; folk; history       3
## 87       Robert                   greek; fix; wife; daughter; sweet       3
## 88          Rod              doughnut; tire; manner; charcoal; wife       3
## 89      Sabrina             dress; boyfriend; entree; email; hotdog       3
## 90        Sam 2           quesadilla; membership; roti; mother; gym       3
## 91        Sam 3                      lol; garage; blast; wife; gyro       3
## 92      Sarah 1                   stall; cat; g; performance; stage       3
## 93        Serge                 value; crumb; loaf; butcher; worker       3
## 94      Shelvin            host; partner; brûlée; entry; steakhouse       3
## 95      Shirley                    bf; boyfriend; cupcake; cat; bbq       3
## 96       Steven          wife; byow; arrangement; margarita; sister       3
## 97       Tamara                tiramisu; dosa; favour; breast; fave       3
## 98        Tomer                 museum; blast; visitor; cider; load       3
## 99         Tony            aroma; leek; latté; receipt; appointment       3
## 100       Youri                   poke; warning; bike; burrito; pho       3

The reviews in cluster 2 are in French and those in cluster 3 are in English. Cluster 1 consists of only two people; the top TF-IDF words are in French, but what is actually going on? Looking at some example texts, Hugo kindly provides his reviews in both languages:

set.seed(1)
yelp %>%
  filter(user_name == "Hugo") %>%
  sample_n(size = 4) %>%
  use_series(text)
## [1] "Jeudi 24 octobre 2013 Une belle fin de journée, après ClasseTechno. On décide de se rendre au Pub Victoria pour se retrouver entre amis. En entrant, on reconnait le pub typique, un peu sombre, très très bruyant, plus ou moins occupé mais en plein remplissage du jeudi. Si vous ne savez pas trop quoi prendre, commencez par un bon cocktail... une limonade maison avec Vodka. Délicieux ! Votre drink sera compté comme une sangria BL ... ??? Si vous avez faim, pour vous ouvrir l'appétit, il vous en coûte 9,75 $ pour 10 ailes bien ordinaires, rien de comparable aux ailes de Casey's ! En gros, l'ambiance très très bruyante vous arrache la voix pour le reste de la soirée. On s'ennui du Royal Merchant qui a bien compris l'organisation des lieux. Thursday october 24th 2013 Nice afternoon and end of a good TechnoClass event. We decide to stop by the Victoria Pub. Coming in, nobody greats you in and you pick your place in a mildly dark but very very noise place, seems typical. If you don't know what to drink they can prepare a very good fresh made home lemonade with Vodka. It will be charge as a sangria BL ... ??? beats me !  Hungry ? if you get wing, it will cost you 9,75 $ for 10 ordinary wings with ordinary BBQ sauce. Nothing like the one's at Casey's ! In the end, the ambiance is very very noisy and strucks your throat with a nice voice loss at the end of the night. You start missing Royal Merchant very soon."                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
## [2] "Le magasin où on trouve pas mal tout ce dont on a besoin en matière de réno, travaux, jardin, etc... J'aime bien y aller pour voir les nouveautés en outillages ou même les derniers produits de rangement. Les prix ne sont pas toujours les meilleurs mais comme j'habite dans les environs, c'est plus proche ! It's the place where you'll find everything for reno, work, garden, etc... I like the hardware section, checking out all the new tools on the market or anything helping for organizing the house. Prices are not always the best but since I live in the surroundings, it's easier done there !"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
## [3] "Katz est un petit comptoir et un restaurant de plein pied, à l'intérieur de la Place Ville-Marie. J'y suis un occasionnel lorsque je veux un smoked meat sans avoir à me rendre sur St-Laurent, chez Schwartz. Comme Ben's est fermé depuis 2006 (snif snif !), c'est peut-être le seul déli du centre-ville immédiat qui existe encore. Deli 500, sur Sherbrooke, n'est pas meilleur non plus. Katz, c'est bon mais... ordinaire, sans plus. La salade de choux est un peu trop mouillée et servie dans des petits bocaux en papier. Les portions (grosseurs) de smoked meat sont, disons, moyennes à faibles. Le badigeonnage de moutarde est pauvre et le pain est moyen. J'ai vu mieux. J'en fais des meilleurs chez moi ! Malheureusement, il n'y a aucune différence véritable entre les diverses sortes de viandes proposées i.e. les différentes cuissons proposées... à l'ancienne, etc..... On peut espérer mieux côté assaisonnements. J'aimerais comparer avec le Katz New York, pour vraiment voir si c'est de la paresse culinaire ou si le constat se fait aussi à New York. On possède quand même les meilleurs Bagel à Montréal !!! Katz is a small food counter in the Place Ville-Marie food court. I'm an occasionnal client when I want some smoked meat but don't have time to run on St-Laurent, at Schwartz. Since Ben's closed down on 2006 (snif snif !), it might be the only Deli left downtown. Forget Deli 500, on Sherbrooke, it's not worth any trip. Katz is nice but it stops there, ordinary, nothing more. The slaw is served in tiny paper cups, too wet. Meat portions are, let's say, average to small. The mustard spread is almost none on average bread. I've seen much better. I make better ones at home ! Unfortunately, there is no difference between the choices of meat cookings offered on the menu, old fashioned, etc... Seasonnings should be better. I would like to compare with Katz New York and see if it's a general lazyness or just a local thing. Anyway, we (Montreal) have the best Bagel in America !!!"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
## [4] "6 janvier 2013 Retour chez Juliette et Chocolat. La dernière fois c'était pour des chocolats au comptoir. C'était très bien, les chocolats sont extraordinaires (5 ÉTOILES) mais comme ils ont voulu allier le concept service-resto et chocolaterie-pâtisserie, ils ont oublié de maîtriser les deux côtés. La succursale est superbement décorée dans un look très actuel, nouveau-post-industriel, ouverte depuis le 7 décembre 2012, ils ne font pas sur place les confections. C'est une usine, à l'extérieur, qui prépare le tout et qui transforme le chocolat initialement pour approvisionner les boutiques. Ils préparent, sur place, seulement les produits finaux destinés au concept resto ou les confections pour la partie pâtisserie.  J'ai pris, une galette de sarrasin savoyarde accompagnée d'une simple salade. Rien de particulier mais bon. Comme dessert, je les teste avec les profiteroles, simples pâtes à choux farcies à diverses sortes de crèmes glacées et décorées de chocolat et caramel. Très bonnes encore mais tout réside dans le service et la durée du service. Au début on se demande si c'est une question de clientèle trop abondante. Mais non. La boutique n'était pleine qu'à moitié avec un flux constant de circulation \"in vs out\". On vous demande 2 FOIS, par 2 PERSONNES DIFFÉRENTES, LA MÊME CHOSE ! Franchement ! On prend beaucoup de temps pour vous servir. C'est long 10-12 minutes pour des profiteroles !!! Je suis sorti de là après environ 1 heure. J'avais mangé une galette, une petite salade et 3 profiteroles. Oh ! C'est nettement en bas de mes attentes pour une deuxième visite. Le concept resto OBLIGE à avoir la cadence et l'organisation d'un café, sinon, on passe à côté de la cible COMPLÈTEMENT. On en sort avec 3 profiteroles à 5,99 $. La galette Savoyarde à 13,99 $ était assez impressionnante question grosseur. On est loin de la simple collation. Conclusion : on y retourne pour le concept chocolaterie-pour emporter. January 6th 2013 Returning at Juliette et Chocolat. Last time, I tried the chocolaterie concept at the counter. It was very nice, the chocolates were A1 (5 STARS) but they tried to link two concepts without mastering both of them. The place has been decorated in an actual look, new-post-industrial, opened since 7th of december 2012, they don't prepare the confections on site. A dedicated outside plant is doing all the work. They only distribute and re-prepare what is needed for the resto part. I chose a buckwheat galette Savoyarde style served with a simple small salad. Nothing incredible in terms of taste. As a dessert, I test them with profiteroles, simple choux pastry stuffed with diverse ice cream flavors and decorated with caramel and chocolate. It was good but everything resides in the service of the order and its length. At first you ask yourself if it's a client number reason. No. The place was half full and the \"in and out\" ration was constant. They ask you TWICE THE SAME THING by TWO DIFFERENT PEOPLE ! Come on people ! They take too long to serve you. 10-12 minutes for 3 profiteroles, it's too much !!! It took 1 hour to complete de meal which was ment to be a snack. I only ate a galette, a small salad and 3 profiteroles. For a second visit it's subpar. The resto concept IMPLICATES a coffee place tempo otherwise you miss the shot COMPLETELY. You get out of it 3 profiteroles for 5,99 $ and a large buckwheat galette Savoyarde for 13,99 $, it's for a snack, bring your apetite. In conclusion : return for the chocolaterie concept as takeout."

Whereas Mathieu switches between reviews (it’s not clear why, but would be a good deep dive to look into); in one case he also translates the review, but this is not as common.

set.seed(1)
yelp %>%
  filter(user_name == "Mathieu") %>%
  sample_n(size = 4) %>%
  use_series(text)
## [1] "Yup, 5 stars! That place is awesome, as some previous yelpers wrote, they have this 22$ meal (appetizer + main course) (and not 3 courses as mention in another post). It's quite a big place, not that easy to see it. You need to know where it is otherwise, you might pass in front without noticing. I went there in the evening to benefit of their amazing 22$ after 10pm promotion. This deal is unbeatable. You get such a great quality, great service. You don't notice the waiter/waitress during your meal, it is discrete and you do feel like they were there during the right moment. Nice wine, exceptional desert, and premium product quality, homemade fries (I'm a sucker for those) and short, direct menu with a great team of cooks. They're fast, efficient and professional. I had the Onglet de Boeuf au beurre Maitre d'Hotel (shive and white wine butter). Onglet is live Bavette, quite  tasteful and pretty rare to find it in a restaurant and at your regular supermaket. I also had the Homemade rilette with some crouton. The quantity is generous and even if French Bistro tends to have small portion, I was well fed after my 2 meal courses, and a nice dessert: Chocolate Mousse, separated by thin nut-waffle and chocolate . With a wine from Pays Basque, 77.50$ (with tip + wine + desert + 1 bottle of sprinkle water) really a great deal: I'm going back there for sure! PS: With the nice temperature, dont hesitate to seat on the nice patio that has a touch of intimacy. There was a lot of couple, so for a late night lunch for a couple; it can't go wrong!"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
## [2] "Je ne sais pas trop quoi dire de cet endroit.  La bouffe est extrêmement bonne! C'est excellent. Il s'agit d'un bar à vin avec des bières micros et locale pas cher. La clientèle est diverse. Un moment, c'est 25-30 ans et puis l'ambiance change et devient un bar de 35 ans et plus. C'est vraiment un spot à Cougar! Sans blague! sans être péjoratif ici, c'est objectif. C'était particulièrement occupé et la piste de danse devient très active vers 23h. LE vestiaire est obligatoire et gratuit avant 22h. C'est vraiment un endroit qui sort des sentiers battus. Ce n'est pas vraiment dans un coin très occupé avec beaucoup de bar. C'est donc un bar de quartier, pas dispendieux du tout.  Niveau bouffe, j'ai mangé une tourtière au lapin et de la joue de boeuf braisé avec une purée de pomme de terre. C'était délicieux."                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
## [3] "Je reviendrais sans réfléchir a Zéro 8. Le nom est original, c'est que les 8 principaux allergènes y sont banni! Le mot banni semble cruel? Bah! C'est simplement qu'on a tous des amis cher a nous qu'on doit faire des pieds et des mains pour invité a manger chez soi Éviter des pièges complexe. La beauté c'est qu'aujourd'hui ça arrive souvent d'avoir 2-3 amis allergiques. C'est pratique d'avoir un endroit où tout ces considérations là sont prise pour soi. Je pense que c'est un endroit idéal pour un 5 a 7 ou justement on n'a pas a penser a qui est allergique puisque Tout le menu évite la totalité des 8 principaux allergène. Concept unique, menu style bistro avec des classiques de la cuisine française re-vampé pour plaire au palet des difficiles. Il y a même des désserts.  Bon concept, belle cuisine, décor moderne et propre d'un bistro qui gagne à être connu. Bravo au chef qui a sur rendre ce qu'il y a 10-15 ans était médiocre. La cuisine moléculaire, l'accessibilité a des produits autrefois introuvable pour substitué des produits important dans une recette sont maintenant présents dans les restos."                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
## [4] "Wohoo, Sales! This is not the biggest strenght of MEC, of course, but when it happen, it's not that much advertised but if you're looking at the right place, at the right momen, you're golden! MEC is most likely one of my favorite place to shop. In my top 4 for sure. I like books,music, traveling, outdoors' activities, cooking and eating. There's at lest 2 things that this store will help me with: Traveling and outdoor: Buying the good gear makes your life easier. Plus I don't like spending my money in stuff that suck. So here I am, going in to try the Trail Glove Merrell Barefoot shoes - which fit my large feet, yes!!! - but i also found my Gregory Mywok 22 liter Gourd-Bag. Regular price: 115$ yeah I know, not cheap, but got it for 79$! One thing i've noticed since the last time I went is that the way the store is now, is a bit different from last time and that they have way more paleo supplement, dry food. The store is just so ridiculously big. It takes a big chunk of your day if you want to explore the store in full.  Tant mieux , des ventes! c'est pas la force de MEC, mais quand on regarde attentivement et qu'on cherche comme il faut on peut tomber sur de bonnes aubaines. C'est pas mal dans mes meilleures places pour magasiner. J'aime lire, la musique, le plein air et voyage, cuisiner et manger. Je peux m'équipé comme un chef pour avoir un quotidien plus facile et agréable. Je me suis acheté un sac-gourde Gregory qui vaut 115$ a 79$ méchante bonne aubaine! C'est vraiment un bon sac, 22 litres, avec gourde jusqu'a 3 litres. C'Est vraiment parce que j'n'avais pas de sac pour mettre mon lunch au début mais je dois admettre que ça a vraiment rendu le transport des bidules du quotidien plus agréable. Voyez-vous certains dudes sont du genre sacoche d'homme ou porte-feuille, moi c'est Sac-à-dos! Et y commence (enfin on vas espérer) à faire chaud, donc la gourde est primordial pour rester hydrater dans les chaudes journée d'étés!.  Ils ont un peu changé la structure du magasin vs la dernière fois où j'y suis allé mais c'est bien organiser. Ils ont beaucoup augmenter le stock de nourriture de camping aussi je trouve. Enfin, un must pour le magasin de plein air.  PS: Les mauvaises critiques sur le magasin ne justifie certainement pas d'avoir à faire du bashing sur la location. une personne a maltraité la location qui est au marché central. Soit, c'est nul y aller en bus ou à pied ou en métro, mais c'est loin d'être au milieu de nullepart."

Using the clusters we can see the relative popularity of each business type based on the clusters. Brasseries and cafés are particularly popular with Francophone reviewers; Burgers, Greek, and Chinese are popular with Anglophone reviewers. Interestingly, there are a lot of reviews for French restaurants, but these are evenly distributed between the two groups.

yelp %>%
  left_join(clusters, by = c("user_name" = "document")) %>%
  filter(biz_category != "Other") %>%
  group_by(biz_category, cluster) %>%
  summarize(n = n()) %>%
  ungroup() %>%
  pivot_wider(
    id_cols = c(biz_category),
    names_from = cluster,
    values_from = n,
    names_prefix = "cluster_",
    names_sort = TRUE
  ) %>%
  mutate(
    cluster_2 = cluster_2 / sum(cluster_2) * 100,
    cluster_3 = cluster_3 / sum(cluster_3) * 100
  ) %>%
  ggplot(aes(cluster_2, cluster_3)) +
    geom_abline(alpha = 0.5) +
    geom_point() +
    geom_text_repel(aes(label = biz_category)) +
    labs(x = "Francophone Reviewers (%)", y = "Anglophone Reviewers (%)")
## Warning: ggrepel: 14 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps