library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.1     ✔ stringr   1.5.2
## ✔ ggplot2   4.0.0     ✔ tibble    3.3.0
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.1
## ✔ purrr     1.1.0     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(readxl)
library(corrplot)
## corrplot 0.95 loaded
library(ggplot2)
library(knitr)
library(car)
## Warning: package 'car' was built under R version 4.5.2
## Loading required package: carData
## Warning: package 'carData' was built under R version 4.5.2
## 
## Attaching package: 'car'
## 
## The following object is masked from 'package:dplyr':
## 
##     recode
## 
## The following object is masked from 'package:purrr':
## 
##     some
library(lubridate)
library(knitr)

setwd("C:/Users/nika/Downloads/R/Other/csv")
All_Players <- read_excel("Top Players.xlsx")

List of names in order: Women, Beginner, Off Peak, Top 300

Part 1: Women

Top_Women <- All_Players|>
  mutate(date = make_date(as.numeric(`Session Date - Year`), match(`Session Date - Month`, month.name), as.numeric(`Session Date - Day`)))|>
  mutate(`Session Start Time` = format(`Session Start Time`, "%H:%M")) |>
  mutate(`Session End Time` = format(`Session End Time`, "%H:%M")) |>
  filter(!`Gender` %in% c("Male", "N/A", "No Info"))|>
  add_count(`Full Name`, name = "Frequency")|>
  distinct(`Full Name`, .keep_all = TRUE)|>
  arrange(desc(Frequency))|>
  select(`Full Name`, "Gender", `Age Range`, `Skill Level`, `Frequency`, `Email`)
Top_Women_100 <- Top_Women|>
  head(100)
print(Top_Women_100)|>
  kable()
## # A tibble: 100 × 6
##    `Full Name`         Gender `Age Range` `Skill Level` Frequency Email         
##    <chr>               <chr>  <chr>       <chr>             <int> <chr>         
##  1 Sophia Akbar        Female 10-19       Advanced             96 cidalia@mluis…
##  2 Heba El Torky       Female 30-39       Advanced             70 hebaeltorky91…
##  3 Daisy Hurowitz      Female 10-19       Beginner             57 amanda.hurowi…
##  4 Emily Scheck*       Female 30-39       Beginner             54 escheck@gwu.e…
##  5 Willa Haberl        Female 10-19       Advanced             44 heatherhaberl…
##  6 Carolina Valdiviezo Female 50-59       Beginner             43 hamuda28@gmai…
##  7 Katherine Nix       Female 40-49       Beginner             35 katherinejnix…
##  8 Jackie Zink         Female 10-19       Beginner             34 ali.t.zink@gm…
##  9 Sarah Davidson*     Female 50-59       Advanced             34 davidsonsarah…
## 10 Clare Hurowitz      Female 0-9         Beginner             31 glenn@mightye…
## # ℹ 90 more rows
Full Name Gender Age Range Skill Level Frequency Email
Sophia Akbar Female 10-19 Advanced 96
Heba El Torky Female 30-39 Advanced 70
Daisy Hurowitz Female 10-19 Beginner 57
Emily Scheck* Female 30-39 Beginner 54
Willa Haberl Female 10-19 Advanced 44
Carolina Valdiviezo Female 50-59 Beginner 43
Katherine Nix Female 40-49 Beginner 35
Jackie Zink Female 10-19 Beginner 34
Sarah Davidson* Female 50-59 Advanced 34
Clare Hurowitz Female 0-9 Beginner 31
Elizabeth Dupree Female 50-59 Advanced 30
Rachel Capps* Female 50-59 Beginner 28
Sarah Cryder* Female 40-49 Beginner 28
Ellie Aukamp Female 10-19 Beginner 26
Darcy Nauman Female 40-49 Beginner 23
Josephine Doussau de Bazignan Female 10-19 Beginner 23
Claire Lake Female 20-29 Beginner 22
Dhaval Patel Female 40-49 Beginner 22
Jane Moffat Female 40-49 Beginner 22
Christine Tezak* Female 50-59 Intermediate 21
Sally Pei* Female 30-39 Advanced 21
Delara Bakhtyari Female 10-19 Beginner 20
Lindsay Guthrie Female 40-49 Intermediate 20
Addison Phan Female 10-19 Beginner 19
AJ Copeland Female 60-69 Intermediate 19
Amy Raskin Female 50-59 Beginner 19
Ashley Baber Female 40-49 Beginner 19
Blaine Helleloid Female 20-29 Beginner 19
Madhu Jalan* Female 50-59 Intermediate 19
Sarah Birmingham Female 30-39 Beginner 19
Rosey Snell Female 0-9 Beginner 16
Sarah Loucks Female 30-39 Intermediate 16
Suncana Pavlic Female 20-29 Beginner 16
Eva Aleksenko Female 10-19 Beginner 15
Gillian Athey Female 40-49 Beginner 15
Inge Pakulski* Female 60-69 Beginner 15
Patricia Rivera Female 30-39 Beginner 15
Timothy Gerson Female 40-49 Beginner 15
Emma Zhou Female 0-9 Beginner 14
Faith Broderick Female 30-39 Beginner 14
Sonali Krishna Female 50-59 Beginner 14
Sophie Ritt Female 20-29 Beginner 14
Blair Curzi Female 30-39 Intermediate 13
Emma Lavoie Female 50-59 Beginner 13
Kary Romero Shapiro Female 30-39 Beginner 13
Kimberly Stephens Female 40-49 Beginner 13
Marietta Valerio Female 40-49 Beginner 13
Marjorie Betubiza Female 30-39 Beginner 13
Naomi Kihn Female 10-19 Beginner 13
VERENA RADULOVIC Female 40-49 Beginner 13
Amelia Schoenbeck Female 30-39 Beginner 12
Annie Patrick Female 40-49 Beginner 12
Ceci Gomez-Jacome Female 0-9 Beginner 12
Claire Dennis Female 30-39 Beginner 12
Sartaz Ahmed* Female 50-59 Intermediate 12
Susan Charnaux Female 50-59 Beginner 12
Charlotte Reid Female 10-19 Beginner 11
Deborah Phippard* Female 60-69 Advanced 11
Harmony Oliver Female 30-39 Intermediate 11
Kelsey Caldwell Female 20-29 Intermediate 11
Moulika Balaji Female 10-19 Beginner 11
Rahini Sharma Female 10-19 Beginner 11
Jacqueline Corrigan-Curay Female 60-69 Intermediate 10
Mimi Swiatek Female 0-9 Beginner 10
Neve Tudhope Female 0-9 Beginner 10
Olivia Napper* Female 30-39 Beginner 10
Patricia Schroeder Female 50-59 Intermediate 10
Petra Lanier Female 0-9 Beginner 10
Teddy Thomas Female 40-49 Intermediate 10
Violet Grayson Female 0-9 Beginner 10
Zoe Aleksenko Female 30-39 Beginner 10
Cindy Vojtech* Female 40-49 Intermediate 9
Ishani Khanna Female 20-29 Advanced 9
Josette Ramirez Female 50-59 Beginner 9
Jung Kim Female 20-29 Beginner 9
Leyi Wen Female 30-39 Beginner 9
Meng Kessel Female 30-39 Beginner 9
Tina George Female 50-59 Beginner 9
Alexis Kuppersmith Female 20-29 Beginner 8
Brittany Day Female 20-29 Intermediate 8
Elizabeth Jochum Female 40-49 Beginner 8
Maya Berengaut Female 10-19 Beginner 8
Mila Ranno Female 10-19 Intermediate 8
Praditi Singh Female 30-39 Beginner 8
Tate Garon Female 10-19 Beginner 8
Zhi Jiao Danielle Goh Female 20-29 Beginner 8
zoe persina Female 40-49 Beginner 8
Carla Noel-Mendez Female 50-59 Intermediate 7
Carter Clements Female 40-49 Beginner 7
Emily Xouris Female 30-39 Beginner 7
Genevieve “Gigi” Friend Female 0-9 Beginner 7
Jenelle Eli Female 40-49 Beginner 7
Justine Decker Female 20-29 Beginner 7
Kalina Bay Female 40-49 Beginner 7
Leeya Mehta Female 10-19 Beginner 7
Lesley Rabbitt Female 40-49 Beginner 7
Marie Han Female 30-39 Beginner 7
May Hassan Female 10-19 Beginner 7
Meg Murray Female 60-69 Beginner 7
Michelle C Female 50-59 Beginner 7

Part 2: Beginners

Top_Beginners <- All_Players|>
  mutate(date = make_date(as.numeric(`Session Date - Year`), match(`Session Date - Month`, month.name), as.numeric(`Session Date - Day`)))|>
  mutate(`Session Start Time` = format(`Session Start Time`, "%H:%M")) |>
  mutate(`Session End Time` = format(`Session End Time`, "%H:%M")) |>
  filter(!`Skill Level` %in% c("Advanced", "Intermediate"))|>
  add_count(`Full Name`, name = "Frequency")|>
  distinct(`Full Name`, .keep_all = TRUE)|>
  filter(!`Full Name` %in% Top_Women_100$`Full Name`)|>
  arrange(desc(Frequency))|>
  select(`Full Name`, "Gender", `Age Range`, `Skill Level`, `Frequency`, `Email`)
Top_Beginners_100 <- Top_Beginners|>
  head(100)
print(Top_Beginners_100)|>
  kable()
## # A tibble: 100 × 6
##    `Full Name`                  Gender `Age Range` `Skill Level` Frequency Email
##    <chr>                        <chr>  <chr>       <chr>             <int> <chr>
##  1 Ranji Eapen*                 Male   60-69       Beginner             74 rdea…
##  2 Raoul Engman                 Male   10-19       Beginner             70 teja…
##  3 Jack Forrester               Male   10-19       Beginner             52 Kath…
##  4 Carter  Wilson               Male   10-19       Beginner             48 cart…
##  5 Sachin Serrano               Male   20-29       Beginner             48 bser…
##  6 Dayton Campos                Male   30-39       Beginner             47 dcam…
##  7 Maximo Blazquez Alameddine*  Male   10-19       Beginner             44 maxi…
##  8 Haydee Jeronimides*          Male   10-19       Beginner             41 rose…
##  9 Oskar Brown*                 Male   10-19       Beginner             41 tbro…
## 10 Contact SOF (Front Desk Use) Male   20-29       Beginner             40 cont…
## # ℹ 90 more rows
Full Name Gender Age Range Skill Level Frequency Email
Ranji Eapen* Male 60-69 Beginner 74
Raoul Engman Male 10-19 Beginner 70
Jack Forrester Male 10-19 Beginner 52
Carter Wilson Male 10-19 Beginner 48
Sachin Serrano Male 20-29 Beginner 48
Dayton Campos Male 30-39 Beginner 47
Maximo Blazquez Alameddine* Male 10-19 Beginner 44
Haydee Jeronimides* Male 10-19 Beginner 41
Oskar Brown* Male 10-19 Beginner 41
Contact SOF (Front Desk Use) Male 20-29 Beginner 40
Markham Erickson Male 60-69 Beginner 39
Paul Browne* Male 60-69 Beginner 39
Yasha Traylor Male 10-19 Beginner 38
Oscar Palacios Male 30-39 Beginner 37
Pano Doxakis Male 10-19 Beginner 30
Jeffrey Nestler* Male 40-49 Beginner 28
Charlie Davant Male 10-19 Beginner 25
Jack Snell Male 0-9 Beginner 25
Logan Iwai Male 0-9 Beginner 25
Seth Perlow* Male 40-49 Beginner 25
Nico Gori Male 20-29 Beginner 24
Thomas De Jesus Male 10-19 Beginner 24
Thomas Green Male 70-79 Beginner 24
Cedar Grinberg Male 10-19 Beginner 23
Matt Maurer Male 50-59 Beginner 23
Nikhil Bhagwat Male 30-39 Beginner 23
Giacomo Salvadore Male 50-59 Beginner 22
Sudhir Sainani Male 40-49 Beginner 21
Christopher Delaney Male 20-29 Beginner 20
Emmett Zamore Male 20-29 Beginner 20
Paul Hughes* Male 50-59 Beginner 20
PAUL GRAYSON Male 40-49 Beginner 19
Jake O’Keeffe Male 20-29 Beginner 18
Nolan Iwai* Male 10-19 Beginner 18
Silas Morsink Male 20-29 Beginner 18
Simon Yates Male 0-9 Beginner 18
Laith Hajj Male 10-19 Beginner 17
Milo Hirsch Male 10-19 Beginner 17
Nick Jacobs Male 50-59 Beginner 17
Lucas Brillembourg Male 10-19 Beginner 16
Whit Pierce-Dorsey Male 10-19 Beginner 16
Alex Berndt Male 10-19 Beginner 15
Anthony de Jesus Male 0-9 Beginner 15
Danny Kazin Male 30-39 Beginner 15
Fabian Wright Male 30-39 Beginner 15
Paul Stephens Male 40-49 Beginner 15
Shengting Pan Male 50-59 Beginner 15
Zachary Steinberg Male 20-29 Beginner 15
Aarudh Balaji Male 10-19 Beginner 14
Avnish Singh Male 30-39 Beginner 14
Fitz Hudson Male 10-19 Beginner 14
Martin Dertz Male 40-49 Beginner 14
Matthew Heine Male 10-19 Beginner 14
Sandy Perkins Male 30-39 Beginner 14
Alex Kisling Male 40-49 Beginner 13
Andy Swiatek Male 10-19 Beginner 13
Charles Lancaster Male 50-59 Beginner 13
Jakob Rusinek Male 40-49 Beginner 13
Jeffrey Yapchanyk Male 20-29 Beginner 13
Kevin Carski* Male 40-49 Beginner 13
Max Bloom Male 30-39 Beginner 13
Rob Marshall Male 30-39 Beginner 13
Theo Saborowski Male 0-9 Beginner 13
Brett Forman Male 20-29 Beginner 12
David Phan Male 40-49 Beginner 12
Hibbard Brown Male 10-19 Beginner 12
Jorge Navarro Male 40-49 Beginner 12
Oumar D. Male 40-49 Beginner 12
Steiner Hudson Male 40-49 Beginner 12
Zach Newman Male 20-29 Beginner 12
Aaron Tessler Male 30-39 Beginner 11
Anubhav Sinha Male 20-29 Beginner 11
Ashan Kiridena Male 20-29 Beginner 11
Brian Clifford* Male 30-39 Beginner 11
Daniel Ahn Male 10-19 Beginner 11
Ed White Male 60-69 Beginner 11
Leon Ghoreishi Male 10-19 Beginner 11
Ben Glauber Male 30-39 Beginner 10
Ben Johns* Male 70-79 Beginner 10
Charlie Barnosky Male 10-19 Beginner 10
Cole Myers Male 0-9 Beginner 10
Jackson Ellis Male 30-39 Beginner 10
John Tuten Male 40-49 Beginner 10
Merrall Echezarreta Male 30-39 Beginner 10
Teddy Voorhees Male 40-49 Beginner 10
William Zoretic Male 0-9 Beginner 10
Adam Voiland Male 40-49 Beginner 9
Alex Hart Male 30-39 Beginner 9
Antonio Espirito Santo Male 20-29 Beginner 9
Arman Carter* Male 30-39 Beginner 9
Brian Hoyt Male 50-59 Beginner 9
Fran Remorino Male 40-49 Beginner 9
Jack Giraudo* Male 70-79 Beginner 9
Mahir Ahmed Male 20-29 Beginner 9
Manuel Vasconcelos Male 40-49 Beginner 9
Milo Roth Male 20-29 Beginner 9
Andrew Yochem Male 30-39 Beginner 8
Brian Schilling* Male 50-59 Beginner 8
Charlie Martel Male 20-29 Beginner 8
Dan George Male 40-49 Beginner 8

Part 3: Off Peak Hours

Off_Peak <- All_Players|>
  mutate(date = make_date(as.numeric(`Session Date - Year`), match(`Session Date - Month`, month.name), as.numeric(`Session Date - Day`)))|>
  mutate(`Session Start Time` = hour(`Session Start Time`) + minute(`Session Start Time`) / 60) |>
  mutate(`Session End Time` = hour(`Session End Time`) + minute(`Session End Time`) / 60) |>
  mutate(`Time Period` = paste(`Session Start Time`, "-", `Session End Time`))|>
  mutate(`Day of Week` = wday(date, label = TRUE), is_weekend = wday(date) %in% c(1, 7), `Day Type` = if_else(is_weekend, "Weekend", "Weekday"))|>
  mutate(`Peak Category` = case_when(
    `Day Type` == "Weekday" & `Session Start Time` >= 17.50 & `Session End Time` <= 19.50 ~ "Peak",
    `Day Type` == "Weekend" & `Session Start Time` >= 9.00 & `Session End Time` <= 11.50 ~ "Peak",
    `Day Type` == "Weekday" & `Session Start Time` >= 11.00 & `Session End Time` <= 14.00 ~ "Off Peak",
    `Day Type` == "Weekday" & `Session Start Time` >= 19.50 & `Session End Time` <= 22.00 ~ "Off Peak",
    `Day Type` == "Weekend" & `Session Start Time` >= 11.50 & `Session End Time` <= 14.00 ~ "Off Peak",
    `Day Type` == "Weekday" & `Session Start Time` >= 6.00 & `Session End Time` <= 7.00 ~ "Super Saver",
    `Day Type` == "Weekday" & `Session Start Time` >= 9.00 & `Session End Time` <= 11.00 ~ "Super Saver",
    `Day Type` == "Weekday" & `Session Start Time` >= 14.00 & `Session End Time` <= 14.50 ~ "Super Saver",
    `Day Type` == "Weekend" & `Session Start Time` >= 18.00 & `Session End Time` <= 20.00 ~ "Super Saver",
    TRUE ~ NA_character_))|>
  filter(!is.na(`Peak Category`))|>
  filter(!`Peak Category` %in% c("Peak", "Super Saver"))|>
  add_count(`Full Name`, name = "Frequency")|>
  distinct(`Full Name`, .keep_all = TRUE)|>
  filter(!`Full Name` %in% c(Top_Women_100$`Full Name`, Top_Beginners_100$`Full Name`))|>
  arrange(desc(Frequency))|>
  select(`Full Name`, "Gender", `Age Range`, `Skill Level`, `Frequency`, `Peak Category`, `Email`)
Off_Peak_50 <- Off_Peak|>
  head(50)
print(Off_Peak_50)|>
  kable()
## # A tibble: 50 × 7
##    `Full Name`  Gender `Age Range` `Skill Level` Frequency `Peak Category` Email
##    <chr>        <chr>  <chr>       <chr>             <int> <chr>           <chr>
##  1 Val Aleksen… Male   50-59       Advanced             62 Off Peak        v.al…
##  2 Andrew Glov… Male   40-49       Intermediate         49 Off Peak        andr…
##  3 Joseph Loft… Male   40-49       Intermediate         42 Off Peak        jrl3…
##  4 Dietrich Ja… Male   20-29       Advanced             31 Off Peak        daja…
##  5 Guest Hold … Male   30-39       Advanced             27 Off Peak        cont…
##  6 Islam Husse… Male   40-49       Intermediate         27 Off Peak        ihus…
##  7 William Egan Male   20-29       Advanced             23 Off Peak        wruf…
##  8 Carlos Pabo… Male   60-69       Intermediate         21 Off Peak        carl…
##  9 Dan Klodows… Male   40-49       Advanced             19 Off Peak        dan.…
## 10 Julien Vilq… Male   40-49       Intermediate         19 Off Peak        juli…
## # ℹ 40 more rows
Full Name Gender Age Range Skill Level Frequency Peak Category Email
Val Aleksenko* Male 50-59 Advanced 62 Off Peak
Andrew Glover* Male 40-49 Intermediate 49 Off Peak
Joseph Loftus Male 40-49 Intermediate 42 Off Peak
Dietrich Jacobs Male 20-29 Advanced 31 Off Peak
Guest Hold Coach SOF Male 30-39 Advanced 27 Off Peak
Islam Hussein Male 40-49 Intermediate 27 Off Peak
William Egan Male 20-29 Advanced 23 Off Peak
Carlos Pabon-Agudelo* Male 60-69 Intermediate 21 Off Peak
Dan Klodowski* Male 40-49 Advanced 19 Off Peak
Julien Vilquin Male 40-49 Intermediate 19 Off Peak
Julius Gwyer Male 50-59 Intermediate 18 Off Peak
Joseph Buccina Male 40-49 Intermediate 17 Off Peak
stephane carnot* Male 50-59 Advanced 17 Off Peak
Slava Z. Male 40-49 Intermediate 16 Off Peak
Doug Randall Male 40-49 Intermediate 15 Off Peak
Amir Tabdili Male 50-59 Intermediate 14 Off Peak
Zach Walter Male 0-9 Intermediate 14 Off Peak
Cory Capps* Male 50-59 Advanced 13 Off Peak
Jean Moret Male 40-49 Intermediate 13 Off Peak
Jeff Johnson Male 50-59 Advanced 13 Off Peak
Abir Ray* Male 40-49 Advanced 12 Off Peak
Andrew Solender Male 20-29 Intermediate 12 Off Peak
Michael Hart-Slattery* Male 40-49 Intermediate 12 Off Peak
Prathap Daniel Male 40-49 Intermediate 12 Off Peak
Barry Fisher* Male 60-69 Advanced 11 Off Peak
mehdi tabdiliazar Male 40-49 Intermediate 11 Off Peak
Pedro Pizano Male 40-49 Intermediate 11 Off Peak
Ronny Vlassaks Male 60-69 Advanced 11 Off Peak
David Sneed Male 30-39 Advanced 10 Off Peak
Ronny Vlassaks* Male 60-69 Advanced 10 Off Peak
Siddhant Gokhale Male 30-39 Intermediate 10 Off Peak
Bill Stewart Male 30-39 Intermediate 9 Off Peak
Itai Grinberg Male 50-59 Intermediate 9 Off Peak
philipp shishkin Male 40-49 Intermediate 9 Off Peak
Soumil Agarwal Male 20-29 Intermediate 9 Off Peak
Bruce Simons Morton* Male 80-89 Advanced 8 Off Peak
Hanlon Smith-Dorsey Male 40-49 Advanced 8 Off Peak
Kaiyu Xi Male 20-29 Advanced 8 Off Peak
Charlie Wilson Male 50-59 Intermediate 7 Off Peak
Dan Feitel Male 30-39 Intermediate 7 Off Peak
Ernesto Acevedo Male 50-59 Intermediate 7 Off Peak
Mark Shepardson Male 60-69 Intermediate 7 Off Peak
Parhum Moshki Male 30-39 Advanced 7 Off Peak
Sam Mohr Male 20-29 Intermediate 7 Off Peak
Adam Brooks* Male 30-39 Advanced 6 Off Peak
Alice Aleksenko Female 10-19 Beginner 6 Off Peak
Amr Shehata Male 40-49 Intermediate 6 Off Peak
Andre Nussenzweig* Male 60-69 Intermediate 6 Off Peak
Brian Liu Male 20-29 Advanced 6 Off Peak
Devin Hughes Male 30-39 Beginner 6 Off Peak

Part 4: Top Players

Top_Players <- All_Players|>
  mutate(date = make_date(as.numeric(`Session Date - Year`), match(`Session Date - Month`, month.name), as.numeric(`Session Date - Day`)))|>
  mutate(`Session Start Time` = format(`Session Start Time`, "%H:%M")) |>
  mutate(`Session End Time` = format(`Session End Time`, "%H:%M")) |>
  filter(!`Full Name` %in% c("Guest Hold Coach SOF"))|>
  add_count(`Full Name`, name = "Frequency")|>
  distinct(`Full Name`, .keep_all = TRUE)|>
  filter(!`Full Name` %in% c(Top_Women_100$`Full Name`, Top_Beginners_100$`Full Name`, Off_Peak_50$`Full Name`))|>
  arrange(desc(Frequency))|>
  select(`Full Name`, "Gender", `Age Range`, `Skill Level`, `Frequency`, `Email`)
Top_Players_300 <- Top_Players|>
  head(300)
print(Top_Players_300) |>
  kable()
## # A tibble: 300 × 6
##    `Full Name`            Gender `Age Range` `Skill Level` Frequency Email      
##    <chr>                  <chr>  <chr>       <chr>             <int> <chr>      
##  1 Juan Carlos Climent*   Male   50-59       Advanced             60 juancarlos…
##  2 Peter Wechsler*        Male   60-69       Advanced             53 pwechsler1…
##  3 Inigo Jordan           Male   10-19       Advanced             52 jordan.ini…
##  4 Ben Peoples            Male   40-49       Intermediate         51 cbenpeople…
##  5 Stuart Barr            Male   50-59       Intermediate         39 stuart28ba…
##  6 Glenn Hurowitz*        Male   40-49       Advanced             38 glenn.huro…
##  7 Hans Paris             Male   60-69       Intermediate         36 hans_paris…
##  8 Dacian Reece-Stremtan* Male   40-49       Advanced             30 dacianstre…
##  9 Bharet Malhotra        Male   50-59       Advanced             27 bmalhotra@…
## 10 Cam Tudhope            Male   40-49       Intermediate         27 clohr@me.c…
## # ℹ 290 more rows
Full Name Gender Age Range Skill Level Frequency Email
Juan Carlos Climent* Male 50-59 Advanced 60
Peter Wechsler* Male 60-69 Advanced 53
Inigo Jordan Male 10-19 Advanced 52
Ben Peoples Male 40-49 Intermediate 51
Stuart Barr Male 50-59 Intermediate 39
Glenn Hurowitz* Male 40-49 Advanced 38
Hans Paris Male 60-69 Intermediate 36
Dacian Reece-Stremtan* Male 40-49 Advanced 30
Bharet Malhotra Male 50-59 Advanced 27
Cam Tudhope Male 40-49 Intermediate 27
Alex Rankin* Male 20-29 Advanced 26
Andrew Stephen Leonard Male 30-39 Intermediate 26
Joshua Rocco Male 30-39 Intermediate 25
john peterson Male 30-39 Advanced 24
Luke Meisner* Male 40-49 Intermediate 24
Isaac Kardon Male 40-49 Advanced 23
Abid Mansur Male 30-39 Advanced 22
Nick Stoll* Male 30-39 Advanced 22
Arinze Haffner Male 10-19 Intermediate 21
Dima Danchanka Male 30-39 Intermediate 21
Shaun Agarwal* Male 50-59 Advanced 20
William Tobias Male 30-39 Advanced 20
Conner Ward Male 30-39 Advanced 19
Benjamin Dower* Male 40-49 Advanced 18
James Fitzgerald Male 50-59 Intermediate 18
Jason Everett* Male 30-39 Intermediate 18
Matthew Jaeger Male 10-19 Intermediate 18
Matthew1 Schwartz* Male 30-39 Advanced 18
Peter Dagher* Male 30-39 Advanced 18
Peter Holland Male 50-59 Intermediate 18
Rogan Zangari Male 20-29 Intermediate 18
Tim Garon Male 40-49 Intermediate 18
Xavier Urtubey* Male 50-59 Intermediate 18
Ahmed Elehwany Male 20-29 Intermediate 16
Gerry Holmes* Male 60-69 Intermediate 16
Jake Gober Male 30-39 Advanced 16
Tefft Smith* Male 80-89 Advanced 16
Louis Alpert Male 20-29 Advanced 15
Jeremy Sturchio Male 40-49 Intermediate 14
Jim Gordon Male 30-39 Intermediate 14
Lakmal Ekanayake Male 30-39 Advanced 14
Daniel Wu Male 20-29 Advanced 13
Derrick Moore* Male 40-49 Advanced 13
Emile Toscano* Male 30-39 Advanced 13
Jorge Klinnert Male 20-29 Intermediate 13
Julian Winkler Male 30-39 Intermediate 13
Abid Shah* Male 40-49 Intermediate 12
Dan Pawson* Male 40-49 Intermediate 12
Taylor Stockton Male 30-39 Intermediate 12
tom Oberdorfer Male 70-79 Intermediate 12
William Smith Male 20-29 Intermediate 12
Alan Perry* Male 30-39 Intermediate 11
Alejandro Cristiani Male 50-59 Advanced 11
Arturo Brillembourg Male 40-49 Intermediate 11
Chotoo Amn Male 20-29 Advanced 11
Chris Dopita Male 40-49 Intermediate 11
Daniel Arrázola Male 30-39 Intermediate 11
Daniel Ramirez Male 30-39 Intermediate 11
Harry Conaway* Male 70-79 Intermediate 11
Jed Nussdorf Male 40-49 Advanced 11
Marcelo DAgostino* Male 60-69 Intermediate 11
Oscar Valdes* Male 40-49 Intermediate 11
Peer Schulze Male 30-39 Intermediate 11
Peter Schechter Male 60-69 Intermediate 11
Alan Critchley Male 30-39 Intermediate 10
Alex Burness Male 30-39 Intermediate 10
Jeff Naft* Male 30-39 Intermediate 10
Paul Ellis Male 80+ Intermediate 10
Rob Rasmussen Male 30-39 Advanced 10
Alfonso Guzman Male 60-69 Intermediate 9
Anmol Vanamali Male 40-49 Intermediate 9
Dallan McManus* Male 50-59 Intermediate 9
Edward Malley* Male 20-29 Advanced 9
Gardiner Nardini Male 30-39 Intermediate 9
Ibrahim Masoud Male 10-19 Advanced 9
Jack Kagan Male 20-29 Advanced 9
James Walker Male 20-29 Beginner 9
Philip Santiago Male 40-49 Intermediate 9
Philipp Richter Male 20-29 Advanced 9
Sam Ehrlich* Male 30-39 Advanced 9
Stan Berenshtein Male 30-39 Advanced 9
Valerii Fedoruk Male 40-49 Advanced 9
Chris Lamond* Male 50-59 Intermediate 8
Corey Norton Male 50-59 Advanced 8
Francois Bertone Male 20-29 Beginner 8
Gustavo Zanabria Male 40-49 Beginner 8
Joao Morgado Male 30-39 Intermediate 8
John Chynoweth Male 50-59 Intermediate 8
Liam Watanabe Male 0-9 Beginner 8
Mikhail Christow Male 10-19 Beginner 8
Nishant Dahiya Male 40-49 Intermediate 8
Obi Lockwood Johnson Male 10-19 Beginner 8
Paul Crystal Male 50-59 Intermediate 8
Paul Snaith Male 60-69 Intermediate 8
Aaron Kaufman Male 30-39 Advanced 7
Abhimanyu Dadu Male 30-39 Advanced 7
Angus Worthing Male 50-59 Beginner 7
Austin Sanders* Male 40-49 Beginner 7
Ben Steinbock Male 50-59 Beginner 7
Billy Nix Male 40-49 Advanced 7
Brandon Ross Male 40-49 Beginner 7
Bryan Kessel Male 30-39 Intermediate 7
Daniel Smith Male 30-39 Intermediate 7
Francisco Serrano Male 40-49 Beginner 7
Gabriel Levin Konigsberg Male 30-39 Intermediate 7
James Athey Male 40-49 Beginner 7
John Picard Male 20-29 Intermediate 7
Joseph Kratz Male 20-29 Beginner 7
Josh Atwood Male 40-49 Intermediate 7
ludovic proutiere Male 50-59 Intermediate 7
MAXIMILIAN VAN PRAAG Male 30-39 Intermediate 7
Michael Mann Male 40-49 Beginner 7
Miguel Oliveira Male 50-59 Intermediate 7
Parakram Karnik Male 20-29 Intermediate 7
Peter Tolsdorf Male 40-49 Intermediate 7
PHILIP DECOLA Male 60-69 Advanced 7
Rachna Bhatt Female 40-49 Beginner 7
Rahul Joseph* Male 40-49 Intermediate 7
Ronnie Hammad* Male 50-59 Advanced 7
Ryan Klaff* Male 20-29 Intermediate 7
Sanchi Halper Female 10-19 Intermediate 7
Scott Spector Male 70-79 Intermediate 7
Stephen Saddler Male 60-69 Intermediate 7
Tad Koenigsbauer Male 20-29 Advanced 7
Zachary Wacker Male 20-29 Intermediate 7
Abby Moser Female 60-69 Advanced 6
Alexander Chang* Male 20-29 Beginner 6
Alexander Lele Male 20-29 Beginner 6
Benjamin Kuhn* Male 30-39 Beginner 6
Cameron Wilson* Male 30-39 Advanced 6
Claire Brainard Female 30-39 Beginner 6
Claire Huschle* Female 50-59 Beginner 6
Daniel Collings Male 40-49 Beginner 6
Eli Berengaut Male 0-9 Beginner 6
Emily Jones Female 50-59 Beginner 6
Ewelina Rudnicka Female 30-39 Beginner 6
Frank Brutski Male 20-29 Beginner 6
Fred Messner Male 30-39 Beginner 6
Gabe Contino Male 20-29 Intermediate 6
Hannah Kim Female 30-39 Beginner 6
Hardy Demeranville Male 20-29 Beginner 6
Harlow Voorhees Male 40-49 Advanced 6
Howard Traul* Male 40-49 Intermediate 6
John McCarthy Male 50-59 Intermediate 6
Juan Luis Salinas Male 30-39 Intermediate 6
Marie Overing Female 20-29 Beginner 6
Martin De Simone Male 30-39 Beginner 6
Michael McColpin Male 30-39 Beginner 6
Michael Starr Male 30-39 Intermediate 6
Migena Satyal Female 20-29 Beginner 6
Mike Keegan* Male 60-69 Advanced 6
Mikki Cottet* Female 60-69 Intermediate 6
Naila Fernandez-Fink Female 40-49 Beginner 6
Nolan Guthrie Male 40-49 Beginner 6
Oliver Holmes Male 10-19 Beginner 6
Pattie Kowalski Female 30-39 Intermediate 6
Phoebe Flint Female 30-39 Beginner 6
Scott Conkright Male 60-69 Intermediate 6
Scott Harris Male 60-69 Intermediate 6
Shela Halper Female 50-59 Beginner 6
Sohael Chowfla Male 30-39 Intermediate 6
Steven Drummond Male 60-69 Intermediate 6
Tamsin Gorvy Female 20-29 Intermediate 6
Tony Jawhar Male 40-49 Beginner 6
Zaid Jalil Male 20-29 Intermediate 6
Alejandro Hoyos Male 40-49 Intermediate 5
Alexander Sykes Male 30-39 Beginner 5
Amit Shashidharan Male 40-49 Intermediate 5
Andrew Sussman Male 60-69 Intermediate 5
Beatrice Cahill-Camden Female 30-39 Intermediate 5
Bernardo Becker Fontana Male 40-49 Beginner 5
Bianca Herlory* Female 20-29 Intermediate 5
Blair Corbin Male 30-39 Advanced 5
Bob Serrano* Male 40-49 Intermediate 5
Calum McCarty Male 30-39 Intermediate 5
Chad Smith Male 30-39 Advanced 5
Chris Hansell Male 30-39 Intermediate 5
Colm Roche Male 30-39 Beginner 5
Conor Hynes Male 20-29 Intermediate 5
Daniel Hanlon Male 40-49 Beginner 5
Dartagnan Rastogi Male 10-19 Advanced 5
David Ramirez Male 40-49 Beginner 5
David Hughes Male 60-69 Advanced 5
David Kasten Male 30-39 Intermediate 5
David Xie Male 20-29 Advanced 5
Dina Rosli Female 20-29 Advanced 5
don wallace* Male 80+ Beginner 5
Elliot Sadoff Male 20-29 Beginner 5
Eoin Healy Male 40-49 Beginner 5
Florent Antoine Male 40-49 Beginner 5
Hannah King Female 10-19 Intermediate 5
Henry Gunderson Male 20-29 Beginner 5
James Desio Male 30-39 Intermediate 5
James Kainth Male 20-29 Beginner 5
Jay Mitchell Male 30-39 Intermediate 5
Jennifer Feldman-Brillembourg Female 40-49 Intermediate 5
Jenny Mendino Female 40-49 Beginner 5
Jeremy Rubel Male 30-39 Intermediate 5
Jessica Weiss Female 40-49 Beginner 5
John Linden Male 40-49 Intermediate 5
Jonathan Kempner Male 70-79 Beginner 5
Joshua Taylor Male 30-39 Advanced 5
Julia Elliott Female 50-59 Intermediate 5
Julia Saravalle Female 0-9 Intermediate 5
Katherine Krudys Female 30-39 Beginner 5
Kaya Isik* Male 20-29 Intermediate 5
Keith Moellering Male 50-59 Beginner 5
Kenny Mendez* Male 60-69 Intermediate 5
Lauren Ghent Female 30-39 Beginner 5
Lauren Mariano Female 20-29 Intermediate 5
Mario Contreras* Male 40-49 Beginner 5
Matt Harcourt Male 50-59 Beginner 5
Matt Pettit Male 30-39 Beginner 5
Maureen Wylie Female 60-69 Beginner 5
Maya Ng-Yu Female 20-29 Beginner 5
Michael Oh Male 50-59 Advanced 5
Murray Fallis Male 30-39 Intermediate 5
Nadia Mounir* Female 40-49 Beginner 5
Natalie Pica Female 40-49 Beginner 5
Nicholas Varela Male 20-29 Beginner 5
Nicole Guo Female 30-39 Beginner 5
Nooni Reatig Female 40-49 Beginner 5
Sam G Male 40-49 Beginner 5
Stephanie Kielb Female 30-39 Beginner 5
Tatiana Cherry Santos* Female 20-29 Beginner 5
Thomas Price* Male 40-49 Advanced 5
tom carver* Male 60-69 Intermediate 5
Trevor Dycio Male 30-39 Beginner 5
Utkarsh Kumar Male 30-39 Advanced 5
Vanessa Baer Female 30-39 Beginner 5
Wendy Papakostandini Female 30-39 Beginner 5
Whit Rudder Male 20-29 Intermediate 5
Win Huffman Male 40-49 Beginner 5
Zachary Wood* Male 40-49 Beginner 5
Aaron Bielenberg* Male 50-59 Beginner 4
Aaron Ramirez Male 30-39 Beginner 4
Abigail McDonough Female 40-49 Intermediate 4
Adam Salzman Male 20-29 Advanced 4
Alex Hobbs Male 30-39 Intermediate 4
Alina Bhatt Female 10-19 Beginner 4
Alyssa Heminger Female 20-29 Beginner 4
Andrew Amorosi Male 10-19 Intermediate 4
Andy Byrne Male 40-49 Intermediate 4
Angad Sethi Male 20-29 Advanced 4
Anthony Maruca* Male 40-49 Advanced 4
Austin Coyle Male 20-29 Beginner 4
Bekhruz Abduholikov Male 30-39 Beginner 4
beran rose* Male 50-59 Beginner 4
Bijan Mehryar Male 30-39 Beginner 4
Brendan Knott Male 20-29 Beginner 4
Brian Madden* Male 30-39 Beginner 4
Campbell Herrington Male 20-29 Beginner 4
Carl Bell* Male 50-59 Advanced 4
carole grunberg* Female 70-79 Advanced 4
Casey Lipson* Male 0-9 Beginner 4
Chase Williams* Male 30-39 Beginner 4
Christian Potter Male 20-29 Beginner 4
Christian Sae Male 30-39 Beginner 4
Christine Keller Female 50-59 Beginner 4
Christopher Dawson Male 50-59 Beginner 4
Corbin Hartwig Male 20-29 Beginner 4
Cynthia Morton Female 50-59 Intermediate 4
Daniel Batlle* Male 50-59 Beginner 4
David Bantleon Male 30-39 Beginner 4
David Leshchiner Male 20-29 Advanced 4
David Redl Male 40-49 Beginner 4
Drew Mitnick Male 30-39 Beginner 4
Eleanor Wunderlich Female 0-9 Beginner 4
Elise Johnson Female 20-29 Intermediate 4
Eloise Nimoityn Female 20-29 Advanced 4
Emily Schmid Female 20-29 Beginner 4
Eric Getzinger Male 50-59 Intermediate 4
Ethan Yang Male 20-29 Beginner 4
Evan Carlson Male 40-49 Beginner 4
Fabrice Aissah Male 30-39 Intermediate 4
Finn Kenny* Male 40-49 Intermediate 4
Gordon Duncan Male 30-39 Beginner 4
Grace Tregidgo Female 30-39 Advanced 4
Harrison Powers Male 40-49 Beginner 4
Hillis Burns Male 20-29 Intermediate 4
J B Female 50-59 Intermediate 4
Jack Bitterli Male 20-29 Intermediate 4
Jack Carle Male 10-19 Beginner 4
Jacobus de Hoop Male 40-49 Beginner 4
Jaime RDA Male 20-29 Beginner 4
James Beaty Male 40-49 Beginner 4
Jeffrey Harvey* Male 60-69 Advanced 4
Jerry Dziecichowicz Male 40-49 Beginner 4
John Tomanio Male 50-59 Beginner 4
Jonas Peeters Male 30-39 Beginner 4
Jorn Wegter Male 40-49 Beginner 4
Joseph Ching Male 20-29 Beginner 4
Juan Sierra Male 40-49 Intermediate 4
Julien Carpe Male 40-49 Intermediate 4
Kang Zheng* Male 30-39 Advanced 4
Katie Leemaster Female 30-39 Beginner 4
Kelley Schiffman Female 30-39 Beginner 4
Kian Patnaik Male 20-29 Advanced 4
Kyle Boynton Male 40-49 Beginner 4
Laird Stewart Male 20-29 Intermediate 4

Part 5: Absent last month

Nov_Dec_names <- All_Players|>
  mutate(date = make_date(as.numeric(`Session Date - Year`), match(`Session Date - Month`, month.name), as.numeric(`Session Date - Day`)))|>
  filter(month(date) %in% c(11,12))|>
  select(`Full Name`, `Email`)|>
  distinct()

Jan_Feb_names <- All_Players|>
  mutate(date = make_date(as.numeric(`Session Date - Year`), match(`Session Date - Month`, month.name), as.numeric(`Session Date - Day`)))|>
  filter(month(date) %in% c(1,2))|>
  select(`Full Name`, `Email`)|>
  distinct()
Absent_Players <-
  setdiff(Nov_Dec_names, Jan_Feb_names)
print(Absent_Players)|>
  kable()
## # A tibble: 474 × 2
##    `Full Name`            Email                      
##    <chr>                  <chr>                      
##  1 A.J. Frey*             avalonfrey@gmail.com       
##  2 Aadi Mehta             aadimehta25@gmail.com      
##  3 Aaditya Dar            aadityadar@gmail.com       
##  4 Adam Schindler         adam.schindler@colliers.com
##  5 Adam Voiland           adam.voiland@gmail.com     
##  6 Adam Wenchel*          adam@wenchel.com           
##  7 Aidan Taplin-Patterson aidantp@me.com             
##  8 Ajay Sabherwal         ajaysabherwal1966@gmail.com
##  9 Alaan Javed            neval.pektas@gmail.com     
## 10 Alan Field             alanwfield@gmail.com       
## # ℹ 464 more rows
Full Name Email
A.J. Frey*
Aadi Mehta
Aaditya Dar
Adam Schindler
Adam Voiland
Adam Wenchel*
Aidan Taplin-Patterson
Ajay Sabherwal
Alaan Javed
Alan Field
Alejandra Duarte
Alex Berengaut
Alex H
Alex Hart
Alex Kaplan
Alex Matta
Alex Palmer
Alex Snider*
Alex Watson
Alexander Lawson
Alexandra Mooney
Ali Cumber
Ali Jafri
Alice Schoonejans
Alvaro Reyes
Alyssa Heminger
Amanda Makara
Amelia “Hammer” Keng*
Amit Sevak
Amit Shashidharan
Amrish Goyal
Ana Quintero
Andres Caceres
Andrew Han
Andrew Welz
Andy Han*
Anna Kirkorian
Anna So Youn Lee
Anne Castillo
Anthea Monmarche
Anthony Chammah
Antonio Marquez
Antonio Piraino
Arden Yang
Areo Nazari
Arnold Lau
Arpit Patel
Art Moran
Arthur Worthington
Ashraf Kadri
Austin Read
Avaneen Pinninti
Avery Marti
Aysha House*
Barbara Medrado
Barton Holmes
Bava Wadhwa
Becky Ling
Ben Gusse
Ben Wrobel
Benjamin Sacks*
Benjamin Selden
Bennett Mears
Blair Corbin
Blake Smith
Boris Shkuta
Boris Zemtzov
Bradley Harris
Brandon Royal
Brant Duber
Brendan McCarthy*
Brewster Lee
Brian Cunningham
brian oconnell*
Brian Piatelli
Brian Sull
Bridget Voglmayr
Brittiany Broadwater
Camille Toner
Camille Wilson
Carlos Lopez
carole grunberg*
Caroline D’Angelo
Carolyn Blanckmeister
Carter Hult
Casey Lipson*
Catherine Walsh
Charlee Johnson
Charles Carpenter*
Charles Lancaster*
Charlie Bourne
Charlie Hoffman*
chase hogle
Chase Williams*
chen cao
Chris Conrad
Christian Mehnert
Christian Potter
christian Worrell
Christine Burke
Christopher Adusei-Poku
Christopher Lydon
Christopher Mahler*
Christopher Sweet
Claire Huschle*
Colin Gilliland
Connor Williams
Courtney Vojdani
Curt Bliamptis
Curtis Stone
Cyril Morat
Damian Saccocio
Damjan Manchevski
Dan George
Dan Heffernan
Dan Nadratowski
Dan Todd
Danial Mcghie
Daniel Batlle*
Daniel Buck
Daniel Cutchin
Daniel Ganz
Daniel Kim
Daniel Schramm*
Daniel Spector
Daniel Weaver
David Alden
David Bantleon
David Dwyer
Deven Sweeney*
Diego Rojas
Divyam Garg
Dorothy Dougherty
Douglas Garcia
Dylan Kolhoff
Eben Carle
Edith Nagy
Eduardo Corona
Edward Herrington
Eila Priestap
Elizabeth Jochum
Emily Jones
Emily Watts
Emre Yener
Eric Gastfriend
Eric Russell
Erin Cleary*
Ernesto Acevedo
Ethan Arnheim
Eun Sook Kim
Eunwhan Lee
Eva Ross
Evan Williams*
Fabian Lopez
Fabian Schneider
Fabrice Aissah
Felix Fisher
Ferdinando Cinotto
Fino Essiam
Flavia Rizzini
Fran Remorino
Francisco Martin-Rayo
Francois Ferraro
Frank Webb
Frederic Reveiz
Friedrich Harris
Genevieve “Gigi” Friend
Genevieve Taft-Vazquez
George MacLeod
Gerald Andriole*
Gillian Gaeta
Gordon Duncan
Grace Doyle
Greg Wells
Gregory Watterson
Guillaume Deleplace
Gwenaelle Urtubey
Halie Craig
Hallie Lancaster
Hamza Kiyani
Hanna Lee
Hannah Davis
Hannah King
Hannah Labotka
Harith Khawaja
Harlen Valenzuela
Harper Jones
Harrison S Wallman
Harry Hoffman
Harvey Howarth
hayden E
Hayden Smith
Hisham Jalil
Ian Simmons
Ian Smith
Iris Zhou
Isaac Belfer*
Isaac Xie
Isabel Harrington
Ishani Khanna
Isidoro Garcia Urquieta
J. Page Lansdale
Jack Carle
Jack Donahue
Jack Giraudo*
jack hidary
Jackson Bierfeldt
Jacob Felicetty
Jacob Ney
Jaden Queen
Jaime Duván Reyes
Jake Gross*
Jake Spark
James Batchik
James Collins
James Garland
james kolakowski
James Walker
James Wolf
Jared Kronitz
Jasmine Lee
Jason McIntyre
Jay Cormier
Jay Korman
Jeffrey Bank
Jenelle Eli
Jennifer Feldman-Brillembourg
Jennifer Yim*
Jeremy Cohen
Jerry Dziecichowicz
Jesse Klempner
Jessica Falkowitz
Joanna Bose
Joe Buccina
Joe Condie
Joe Farrell
Joe Wornom
Joel Vengrin*
John Linden
John McCarthy
John McCarthy
John Rockefeller
John Schreder
John Williams
John Willingham
Jon Meadows
Jonathan Black
Jonathan Hale
Jordan Cohen
Jose Pereyo
Joseph Landau
Joseph Wood*
Josette Ramirez
Josh Goodman
Josh Tu
Josh Waterman
JOSHUA DELONG
Joshua Esquivel
Joshua Green
Joshua Hardman
Juan Blazquez*
Juan Sierra
Juan Fernando Ibagon Hernandez
Juan Vivas
Julia Lancaster
Julia Murphy
Justin Berlin
Kaiwen Jiang
Karen McKinstry
Kate Bradley
Katherine Goldstuck
Kathleen Donatiello*
Kathy Ales
Katie Kuhn
Kavish Narang
Kaya Isik*
Kelley Schiffman
Kelly King
Kelsey Reese*
Kert Putsepp
Kevin Eye
Kevin Holmes
Khaled Khalil
Khalil Ezzine
Kim Lassen
Kimberley Perez
Kimberly Stietz
Kris Pusok*
Kurt Johnson
Kyle McGregor
Lauren Mariano
Leanne Van Allen
Lennox Dutta-Wilder
Leonardo Valenzuela
Leonardo Vittori
Lillian Galun
Lincoln Leahy*
Lissy Dean
Lucero Vargas
Luis Paredes
Madhu Jalan*
Mahmoud Elsaman
Marco O
Marcos Crichigno
Marcus Goodwin
Marietta Valerio
Marilouise Avery
Mario Contreras*
Marissa Davila
Marko Durovic
Marlorie Stinfil
Martha Kumar*
Martin Jaramillo
Martin Manville
Martin Walsh
mary napier
Maseh Zarif
Matt Tanner
Matthew Axtell
Matthew Keegan
Matthias Ellenrieder
Max Kluger
Max Nardini
Max Novick
Max Peyra Grau
Maxime Vilquin
Maximilian Peters
May Goar
Maya Ng-Yu
Maya Saad
McKaye Darling
Medhavi Bhatia
Meg Ritcheson
Mel Yang
Merrall MacNeille
Meyers Li
Michael Caspani
Michael Friddle
Michael Galperin
Michael Janson
Michael Jerakis
Michael Jiang*
Michael Tierney
Michelle Hajdenberg
Michelle Infanzon
Migena Satyal
Mike Flynn
Mila Zayats
Miles Cooper
Mohab F. Murrar
Molly Pitegoff
Monnie Laughinghouse
Muskaan Kasliwal
Nancy Herman
Nathan Peereboom
NEAL L PRESANT
Nick Bird
Nick Chu
Nicole Fondots
Nicole Kruger
Nicole Shekhovtsova
Nidhi Patel
Obi Lockwood Johnson
Oliver Thomas
Oliver Wilson
Olivia Field
Omer Imtiazuddin
Omid Rajaei
ORJADA Y
Pamela Venzke
Parker Cole
Patrick Barry
Patrick Cleary
Patrick Shooltz
Paul Strauch
Perot Bissell
Peter Fitzgerald
Peter Prince
Peter Zern
Philip Chadwell
Philip Sopher
Pino Martin
Pratik Chougule
Rachel Sandhu
Raffaella Buccina
Rahul Das
Raj Iyengar
Ramsey Fahed
Ranji’s Guest
Reda Aboutajdine*
Reed Widdoes*
Rees B
Resham Chandra
Rheya Lakhmani
richard levine
Richard Taylor
Riya Saran
Robert Anolik
Robert Conner
Robert Day
Robert Gyenes*
Robin DEAN
Rose Naughton
Ruyan Zhang
Sabrina Siddiqui
Sai B
Sam Ricciardi
samer shehata
Samer Mina
Samm Fulton
Sartaz Ahmed*
Scott Phan
Scott Conkright
Scott Spector
Sean Sullivan
Shameer Zahid*
Shawn Traylor*
Shiv Sethi
Shuowen Chen
Simon C
Sina Prem
Sophie White
Stan Berenshtein
Stefan Kershow*
Stephan Schindler*
Stephanie Miceli
Stephen Saddler
Stewart Atkins
Suvia Yuan
syed shah
Tahseen Rabbani
Tara Barnett
Tarek Anandan
Tarik Lamech
Tate Valerio
Taylor Kulp-McDowall
Ted Sheehy
Teddy Parker*
Theo Schindler
Thomas Price
Tobias Abelmann
Toby Salisbury*
Tom Cymer*
Tom Haigh
Tony Jeffs
Tracy Mann
Travis Triplett
Trenor Gould
Tricia Jefferson
Tristan Brown
Upamanyu Lahiri
Utkarsh Kumar
Valentin Follet
Vandana (for Sohan) Kilaru
Varun Talwar
Vigo Plahin
Vinayak Lala
Wesley Brown de Colstoun
Will Mitchell
Will Newell
Will Pulsifer
Will Ruggiero
William Brown
Win Huffman
Xavier Brillembourg
Ximena Rodriguez Medina
Yash Shivani
Yasmine Ben Hamed
YU Fu
Zach Goodwin*
Zachary Carroll
Zeineddine Zuberi
Zhaohui Yang
Zoe Gutierrez-McDonald

#Part 6: All the names present in top players and other lists

Overlaping_Players <- Top_Players_300 %>%
  filter(`Full Name` %in% c(Top_Women_100$`Full Name`, Top_Beginners_100$`Full Name`, Off_Peak_50$`Full Name`))|>
  select(`Full Name`)|>
  mutate(Women = if_else(`Full Name` %in% Top_Women_100$`Full Name`, "Women", ""), Beginners = if_else(`Full Name` %in% Top_Beginners_100$`Full Name`, "Beginners", ""), Off_Peak = if_else(`Full Name` %in% Off_Peak_50$`Full Name`, "Off Peak", "")
  )|>
  mutate(appears_in = paste(Women, Beginners, Off_Peak, sep = " ") %>% str_trim() %>% str_squish()) %>%
  select(`Full Name`, appears_in)
print(Overlaping_Players)|>
  kable()
## # A tibble: 0 × 2
## # ℹ 2 variables: Full Name <chr>, appears_in <chr>
Full Name appears_in