Saddling up; getting on the hoRse for the first time

[This article was first published on Mango Solutions, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Laura Swales, Marketing and Events Assistant

This year at Mango we’re proudly sponsoring the Bath Cats & Dogs
. 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 people_list.
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)

##   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 people_list names.

assign <- data.frame(horses_list, sample(people_list))

Free Rein

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
visit here.

To leave a comment for the author, please follow the link and comment on their blog: Mango Solutions. offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)