if (FALSE) {
library(googleAnalyticsR)
## authenticate,
## or use the RStudio Addin "Google API Auth" with analytics scopes set
ga_auth()
## get your accounts
account_list <- google_analytics_account_list()
## pick a profile with data to query
ga_id <- account_list[23,'viewId']
## first make a cohort group
cohort4 <- make_cohort_group(list("cohort 1" = c("2015-08-01", "2015-08-01"),
"cohort 2" = c("2015-07-01","2015-07-01")))
## then call cohort report. No date_range and must include metrics and dimensions
## from the cohort list
cohort_example <- google_analytics(ga_id,
dimensions=c('cohort'),
cohort = cohort4,
metrics = c('cohortTotalUsers'))
### Lifetime Value report - just a variation of the cohort report
# with lifetimeValue = TRUE
### and ltv specific metrics
### The view MUST be an app view at the moment
## make a cohort group with lifetimeValue = TRUE
cohort_ltv <- make_cohort_group(list("cohort 1" = c("2018-12-01", "2018-12-31"),
"cohort 2" = c("2019-01-01", "2019-01-31")),
lifetimeValue = TRUE)
## call a cohort report with ltv metrics
ltv_example <- google_analytics(ga_id,
dimensions = c('cohort', "acquisitionTrafficChannel"),
cohorts = cohort_ltv,
metrics = c("cohortGoalCompletionsPerUserWithLifetimeCriteria"))
}
Run the code above in your browser using DataLab