R Notebook

Here is my Friends birthdate analysis. 1- Export Data from facebook and added to Google calender 2- Then exported Google calendar to CSV file

library(ggplot2)
ggplot(aes(x=Day),data=My_friends)+geom_histogram(binwidth = 0.1,col='red')+ggtitle('Histogram Of days')+facet_wrap(~Month,,scales="free_y")+scale_y_continuous(breaks=c(1:31))+theme_minimal()

ggplot(aes(x=Month),data=My_friends)+geom_histogram(binwidth = 1,col='Blue')+theme_bw() +scale_x_continuous(breaks = c(1,2,3,4,5,6,7,8,9,10,11,12))

#Number of bdays in each month
table(My_friends$Month)

 1  2  3  4  5  6  7  8  9 10 11 12 
28 30 26 28 25 27 50 35 24 31 44 31 

#My Monthly income 
my_income=1000
#I want to spend 10% friends gift
gift_limit=my_income*10/100
gift_limit

[1] 100

#How much I can spend on each Friend for each month
gift_limit/table(My_friends$Month)

       1        2        3        4        5        6        7        8        9 
3.571429 3.333333 3.846154 3.571429 4.000000 3.703704 2.000000 2.857143 4.166667 
      10       11       12 
3.225806 2.272727 3.225806 

plot(gift_limit/table(My_friends$Month),col='red')

You will be very lucky if your birthday is in the September month as I have more fund for you in that particular month.??????