Laura Swales, Marketing and Events Assistant
This year at Mango we’re proudly sponsoring the Bath Cats & Dogs
Home. To start our fundraising
for them, we decided to run a sweepstake on the Grand National. We asked
for £2 per horse, which would go to the cats and dogs home and the
winner was promised a bottle of wine for their charitable efforts.
Working in a Data Science company I knew that I couldn’t simply pick
names out of a hat for the sweepstake, ‘That’s not truly random!’ they
would cry. So in my hour of need, I turned to our two university
placement students Owen and Caroline to help me randomise the names in
To use an appropriate horse-based metaphor, I would class myself as a
‘non-starter’ in R – I’m not even near the actual race! My knowledge is
practically non-existent (‘Do you just type alot of random letters?’)
and up until this blog I didn’t even have RStudio on my laptop.
The first hurdle
We began by creating a list of the people who had entered the
sweepstake. With some people betting on more than one horse their name
was entered as many times as needed to correlate to how many bets they
had laid down.
people_list <- c("Matt Glover", "Matt Glover", "Ed Gash", "Ed Gash", "Ed Gash", "Lisa S", "Toby", "Jen", "Jen", "Liz", "Liz", "Andrew M", "Nikki", "Chris James", "Yvi", "Yvi", "Yvi", "Beany", "Karina", "Chrissy", "Enrique", "Pete", "Karis", "Laura", "Ryan", "Ryan", "Ryan", "Ryan", "Ryan", "Owen", "Rich", "Rich", "Matt A", "Matt A", "Matt A", "Matt A", "Matt A", "Matt A", "Matt A", "Matt A")
I had now associated all the names with the object called
Next I created an object that contained numbers 1-40 to represent each
horses_list <- 1:40
With the two sets of values ready to go, I wanted to display them in a
table format to make it easier to match names and numbers.
assign <- data.frame(Runners = horses_list, People = people_list) head(assign) ## Runners People ## 1 1 Matt Glover ## 2 2 Matt Glover ## 3 3 Ed Gash ## 4 4 Ed Gash ## 5 5 Ed Gash ## 6 6 Lisa S
Now the data appeared in a table, but had not been randomised. To do
this I used the
sample function to jumble up the
assign <- data.frame(horses_list, sample(people_list))
Success! I had a list of numbers (1-40) representing the horses and a
randomly jumbled up list of those taking part in the sweepstake.
At the time of writing (In RMarkdown!), unfortunately fate had randomly
selected me the favourite to win. As you can imagine, this is something
that will not make you popular in the office.
My First Trot
I hope you enjoyed my first attempt in R. I will definitely use it again
to randomise our next sweepstake, though under intense supervision. I
can still hear the cries of ‘FIX!’ around the office. It’s always an
awkward moment when you win your own sweepstake…
Despite the controversy, it was fun to try out R in an accessible way
and it helped me understand some of the basic functions available.
Perhaps I’ll sit in on the next LondonR
workshop and learn some more!
If you’d like to find out more about the Bath Cats & Dogs Home please