R/ga_fb_ads_data.R

In neugelb/neugelbtools: Various small Neugelb tools

#' ga_fb_ads_data
#'
#' Join together Google Analytics data for pageviews and conversions
#' @param conversions_df Your conversions data from GA
#' @param pageviews_df Your pageview data from GA
#' @param pages_to_filer The pages you want to filter from the pageview data (needs to be a vector)
#' @export

ga_fb_ads_data <- function(conversions_df,pageviews_df,pages_to_filter) {

  require(tidyverse)
  require(scales)

pageviews_df <- pageviews_df %>%
  filter(page_path %in% pages_to_filter)

ga_all <- pageviews_df %>%
  inner_join(conversions_df,by='page_path') %>%
  rename(conversions =  total_events) %>%
  mutate(avg_time_on_page = round(avg_time_on_page / 60,digits=2),
         conversion_rate = percent(conversions / pageviews),
         bounce_rate = percent(bounce_rate / 100),
         returning_users = percent((users - new_users)/users))

return(ga_all)
}