JENTIS - GA4 Data Comparison

library("googleAnalyticsR")

You can opt in to tracking of your use of googleAnalyticsR - see ?measurementProtocol::mp_trackme for details.

library("dplyr")

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

library("googleAuthR")

gar_auth(email = "mischa.partner@jentis.com")

ℹ 2025-04-15 16:57:11.269747 > Setting client.id from options(googleAuthR.client_id)

Data Setup

GTM / JTM GA4 and date range setting.

# Define your GA4 property ID
GTM_GA4_ID <- "349326047" #psd-nuernberg.de – GA4
JTM_GA4_ID <- "455778464" #psd-nuernberg.de - TEST - GA4

DATE_RANGE = c("2025-04-08", "2025-04-14")

# Fetch data from GA4
ga_data_GTM_host <- ga_data(
  GTM_GA4_ID,
  metrics = c("eventCount"),
  dimensions = c("hostName"),
  date_range = DATE_RANGE,
  limit = 100,
  dim_filters = ga_data_filter(eventName == "page_view")
  )

Auto-refreshing stale OAuth token.
ℹ 2025-04-15 16:57:20.946217 > Downloaded [ 7 ] of total [ 7 ] rows

# Fetch data for the second property
ga_data_JTM_host <- ga_data(
  JTM_GA4_ID,
  metrics = c("eventCount"),
  dimensions = c("hostName"),
  date_range = DATE_RANGE,
  limit = 100,
  dim_filters = ga_data_filter(eventName == "page_view")
  )

ℹ 2025-04-15 16:57:21.523208 > Downloaded [ 7 ] of total [ 7 ] rows

print(full_join(ga_data_GTM_host, ga_data_JTM_host, by = "hostName", suffix = c("_GTM", "_JTM")), n = nrow(ga_data_JTM_host))

Event Name Comparison

# Fetch data from GA4
ga_data_GTM_event <- ga_data(
  GTM_GA4_ID,
  metrics = c("eventCount"),
  dimensions = c("eventName"),
  date_range = DATE_RANGE,
  limit = 100,
  dim_filters = ga_data_filter(!(eventName %regex_partial% ".*(page|session|first|user).*"))
  )

ℹ 2025-04-15 16:57:24.671133 > Downloaded [ 65 ] of total [ 65 ] rows

# Fetch data for the second property
ga_data_JTM_event <- ga_data(
  JTM_GA4_ID,
  metrics = c("eventCount"),
  dimensions = c("eventName"),
  date_range = DATE_RANGE,
  limit = 100,
  dim_filters = ga_data_filter(!(eventName %regex_partial% ".*(page|session|first|user).*"))
  )

ℹ 2025-04-15 16:57:25.050283 > Downloaded [ 71 ] of total [ 71 ] rows

print(full_join(ga_data_GTM_event, ga_data_JTM_event, by = "eventName", suffix = c("_GTM", "_JTM")), n = 64)