Flair numbers in /r/rugbyunion

flair.R

# /r/rugbyunion flair numbers
library(tidyverse)

flair  <- read_csv('_r_rugbyunion_user_flair - Sheet1.csv')

flair

british_isles <- filter(flair, Flair_Code %in% c('england', 'ireland', 'wales', 'scotland'))

british_isles

all_brits <- filter(flair, Flair_Code %in% c('england', 'ireland', 'wales',
                                             'scotland', 'munster', 'leinster',
                                             'ulster', 'leicester',
                                             'harlequins', 'britis-irish-lions',
                                             'wasps', 'bath', 'saracens',
                                             'connacht', 'northampton',
                                             'glasgow', 'wrcsco', 'wrceng',
                                             'wrcire', 'exeter-chiefs',
                                             'ospreys', 'gloucester', 'sale',
                                             'london-irish',
                                             'llanelli-scarlets',
                                             'cardiff-blues',
                                             'wrcwal', 'edinburgh', 'newcastle',
                                             'worcester', 'newport', 'bristol',
                                             'bedford', 'london-welsh',
                                             'leeds', 'pontypridd'))

all_brits

summary(all_brits)

sum(all_brits$Count)

all_nz <- filter(flair, Flair_Code %in% c('taranaki', 'north-harbour',
                                          'southland', 'nzcant', 'manukau',
                                          'tasman-makos', 'waikato',
                                          'wellington', 'manawatu',
                                          'otago', 'auckland', 'blues',
                                          'highlanders', 'crusaders',
                                          'hurricanes', 'wrcnzl',
                                          'all-blacks'))

sum(all_nz$Count)

all_rsa <- filter(flair, Flair_Code %in% c('south-africa', 'sharks',
                                           'stormers', 'wrcrsa', 'lions',
                                           'bulls', 'cheetahs'))

sum(all_rsa$Count)