Let’s take a look at some basic budgetting and see what we can make for visualisation (data is FUN)

LRCBooks[is.na(LRCBooks)] <- 0
LRCBooks$pExpense <- LRCBooks$Expense/sum(LRCBooks$Expense, na.rm=TRUE)

ggplot(data = LRCBooks, aes(1, y=pExpense)) +
  geom_bar(aes(fill= Item), stat = "identity", position = position_stack())

Soooo that’s obviously not very informative - lets do some summarising and clean that up (less divisions)

LRCSum1 <- aggregate(Expense ~ Category, data= LRCBooks, sum)
LRCSum1B <- aggregate(Revenue ~ Category, data= LRCBooks, sum)

LRCSum1$Revenue <- LRCSum1B$Revenue

LRCSum1M <- melt(LRCSum1,
                     variable.name = "Type",
                     value.name = "Total",
                    id.variable = "Category")
## Using Category as id variables
LRCSum1M$Type <- factor(LRCSum1M$Type, levels = c("Expense", "Revenue"))

ggplot(data = LRCSum1M, aes(Type, y=Total)) +
  geom_bar(aes(fill= Category), stat = "identity", position = position_stack()) +
  labs(x='', y= "Dollar Total")+
  ggtitle("Budgeted Revenues and Expenses - Lethbridge Rugby Club 2018") +
  theme_alan() +
  scale_y_continuous(limits = c(0,100000), breaks = c(0,25000,50000,75000,100000), expand = c(0,0)) +
  facet_grid(~ Type, scales = "free", space = "free", switch = 'x') +
  theme(axis.text.x = element_blank()) +
  scale_fill_manual(values = BridgeColors2)

Here you can see that the social parts of the club (bar, events, feeding, hosting) pretty much even out - this is mostly because we make money on the bar

Rugby also balances out - the total that we collect for the club in registration fees covers equipment, our payment to the CRU, coaching and development, etc.

This leave fundraising as a revenue stream to cover Advertising and Outreach; Fees, Licenses, and Bills; and Site Infrastructure and Maintenance.

We have 3 main sources of Fundraising Revenue- Bingos, Casinos, and Corporate Sponsorship, with Bingos making up half of this total on a yearly basis

Without bingos we thus require $22,000 in revenue from somewhere else.

Across all levels (Men’s, Women’s, Minis, Juniors) we currently collect 12,100 in dues (excluding those that are paid to the CRU) - without bingo we would need to collect 34,100 in dues

If spread out proportionally across all levels (Minis = 33.1%, Juniors = 5%, Seniors = 62%), individual player dues would increase from 50.00 to 140.91 (Minis), 25.00 to 70.45 (Juniors), and from 125.00 to 352.27 (Seniors).

We don’t (currently) however expect Mini or Jr. players (or their parents) to participate in Bingo shifts to fundraise for the club (although we can all agree that it would be nice if they did), nor do we want to substantially raise fees for younger players, who we see as the future of the sport. Thus, Senior players shoulder the bingo collectively, which would require LRC Senior player dues to be raised from 125.00 to 491.67.

Thus, if you are willing to pay full dues of 741.67 (250 to CRU, 491.67 to the club), we will consider you exempt from participation in bingos and all other volunteering.