Pyramid chart in R using Google Analytics API plus demographic data [age and gender]

pyramid_chart in r prog.r

#source R script
#https://thomas-neitmann.github.io/ggcharts/reference/pyramid_chart.html
library(googleAnalyticsR)
#pull data from GA API
library(googleAnalyticsR)
#change location of json service key
ga_auth(json_file = "C:\\secret-folder\\service-key.json")
account_list$viewId
#change view id
viewID <- 12345678
data <- google_analytics(
  viewID,
  date_range = c("2020-01-01","2021-06-09"),
  dimensions = c("ga:userAgeBracket",
                 "ga:userGender"),
  metrics = c("sessions"),
  anti_sample = TRUE
)
#SO thread on age + gender in GA API
#https://stackoverflow.com/questions/37488470/obtain-demographic-data-with-google-analytics-api
summary(data)
str(data)
View(data)

library(ggplot2)

pyramid_chart(data, userAgeBracket, 
sessions, userGender, bar_colors = c("pink","lightblue"))