A lot more facts to have math some body: To be far more specific, we’re going to make the ratio of matches in order to swipes proper, parse one zeros about numerator or the denominator to just one (very important to promoting real-respected logarithms), and do the natural logarithm of well worth. Which fact in itself may not be such as for example interpretable, nevertheless relative total manner could well be.
bentinder = bentinder %>% mutate(swipe_right_rates = (likes / (likes+passes))) %>% mutate(match_speed = log( ifelse(matches==0,1,matches) / ifelse(likes==0,1,likes))) rates = bentinder %>% come across(big date,swipe_right_rate,match_rate) match_rate_plot = ggplot(rates) + geom_section(size=0.dos,alpha=0.5,aes(date,match_rate)) + geom_easy(aes(date,match_rate),color=tinder_pink,size=2,se=Not the case) + geom_vline(xintercept=date('2016-09-24'),color='blue',size=1) +geom_vline(xintercept=date('2019-08-01'),color='blue',size=1) + annotate('text',x=ymd('2016-01-01'),y=-0.5,label='Pittsburgh',color='blue',hjust=1) + annotate('text',x=ymd('2018-02-26'),y=-0.5,label='Philadelphia',color='blue',hjust=0.5) + annotate('text',x=ymd('2019-08-01'),y=-0.5,label='NYC',color='blue',hjust=-.4) + tinder_motif() + coord_cartesian(ylim = c(-2,-.4)) + ggtitle('Match Rate More Time') + ylab('') swipe_rate_plot = ggplot(rates) + geom_section(aes(date,swipe_right_rate),size=0.2,alpha=0.5) + geom_simple(aes(date,swipe_right_rate),color=tinder_pink,size=2,se=Not true) + geom_vline(xintercept=date('2016-09-24'),color='blue',size=1) +geom_vline(xintercept=date('2019-08-01'),color='blue',size=1) + annotate('text',x=ymd('2016-01-01'),y=. Continue Reading