(very) short presentation about Santa believers

This is part of JHU-DS #9 course (Developping Data Product) 3rd assignment.

The data comes from this web blog*:
http://www.pewforum.org/2013/12/18/celebrating-christmas-and-the-holidays-then-and-now

* I was not very fan of the ‘colour’ separation so I aggregated them

df <- data.frame(religion=c('Protestant', 'Protestant', 'Catholic', 'Catholic', 'Unaffiliated'),
                 branch=c('Evangelical','Main branch','Roman','Hispanic', 'Unaffiliated'),
                 percentage=c(13,19.5,12,47,18))

Percentage of parents have beleivers’ kids