R:Google Analytics/Параметры и измерения - История изменений

Артём Клевцов: /* Таблица данных */

2014-12-17T02:32:43Z

‎Таблица данных

Внесённые изменения

Артём Клевцов в 02:31, 17 декабря 2014

2014-12-17T02:31:42Z

Артём Клевцов в 02:30, 17 декабря 2014

2014-12-17T02:30:50Z

Артём Клевцов: /* Таблица данных */

2014-07-01T14:22:06Z

‎Таблица данных

Внесённые изменения

Артём Клевцов в 09:52, 17 мая 2014

2014-05-17T09:52:56Z

Артём Клевцов в 10:33, 30 апреля 2014

2014-04-30T10:33:15Z

Артём Клевцов: /* Таблица данных */

2014-04-27T14:52:39Z

‎Таблица данных

Артём Клевцов: /* Таблица данных */

2014-04-27T14:51:22Z

‎Таблица данных

Артём Клевцов в 14:24, 27 апреля 2014

2014-04-27T14:24:27Z

Артём Клевцов в 03:41, 23 апреля 2014

2014-04-23T03:41:25Z

@@ Строка 3: / Строка 3: @@
 Ниже приведена таблица со всеми показателями и измерениями в Google Analytics. За основу таблицы взяты данные из [https://developers.google.com/analytics/devguides/reporting/core/dimsmets официального руководства] по API Google Analytics. Данная таблица была получена с помощью следующего R-кода:
-{{r-code|code=<nowiki>library(httr)
+{{r-code|code=<nowiki># Request URL
 # Request URL
 url <- "https://www.googleapis.com/analytics/v3/metadata/ga/columns"
 # Get JSON data

@@ Строка 4: / Строка 4: @@
 {{r-code|code=<nowiki>library(httr)
-library(jsonlite)
+# Request URL
 url <- "https://www.googleapis.com/analytics/v3/metadata/ga/columns"
-url <- "https://www.googleapis.com/analytics/v3/metadata/ga/columns?fields=items"
+# Get JSON data
-ids <- fromJSON(paste0(url, "/id"))$items
+data_json <- jsonlite::fromJSON(url)
-attrs <- fromJSON(paste0(url, "/attributes"))$items
+# Subsettings
-ga.metadata <- cbind(ids, attrs$attributes)</nowiki>}}
+data_r <- .subset2(data_json, "items")
 Переменная <code>ga.metadata</code> содержит следующую информацию:

@@ Строка 3: / Строка 3: @@
 Ниже приведена таблица со всеми показателями и измерениями в Google Analytics. За основу таблицы взяты данные из [https://developers.google.com/analytics/devguides/reporting/core/dimsmets официального руководства] по API Google Analytics. Данная таблица была получена с помощью следующего R-кода:
-{{r-code|code=<nowiki>library(RCurl)
+{{r-code|code=<nowiki>library(httr)
 library(jsonlite)
 url <- "https://www.googleapis.com/analytics/v3/metadata/ga/columns?fields=items"
-id <- fromJSON(getURL(paste0(url, "/id")))$items
+ids <- fromJSON(paste0(url, "/id"))$items
-attrs <- fromJSON(getURL(paste0(url, "/attributes")))$items
+attrs <- fromJSON(paste0(url, "/attributes"))$items
-ga.metadata <- cbind(id, attrs$attributes)</nowiki>}}
+ga.metadata <- cbind(ids, attrs$attributes)</nowiki>}}
 Переменная <code>ga.metadata</code> содержит следующую информацию:

@@ Строка 9: / Строка 9: @@
 id <- fromJSON(getURL(paste0(url, "/id")))$items
 attrs <- fromJSON(getURL(paste0(url, "/attributes")))$items
-ga.metadata <- data.frame(id, attrs$attributes)</nowiki>}}
+ga.metadata <- cbind(id, attrs$attributes)</nowiki>}}
 Переменная <code>ga.metadata</code> содержит следующую информацию:

@@ Строка 35: / Строка 35: @@
 Нижеприведённая таблица была сгенерирована с помощью следующего кода:
-{{r-code|code=<nowiki>wiki.table <- ga.metadata[ga.metadata$status == "PUBLIC", c("group", "uiName", "id", "type", "dataType", "allowedInSegments", "calculation", "description")]
+{{r-code|code=<nowiki>wiki.table <- subset(ga.metadata, status == "PUBLIC", c(group, uiName, id, type, dataType, allowedInSegments, calculation, description))
 wiki.table <- c("{| class=\"wide wikitable sortable\"", "\n",
                  "! ", paste(names(wiki.table), collapse = " !! "),

@@ Строка 4: / Строка 4: @@
 {{r-code|code=<nowiki>library(RCurl)
-library(rjson)
+library(jsonlite)
-library(data.table)
 url <- "https://www.googleapis.com/analytics/v3/metadata/ga/columns?fields=items"
 id <- fromJSON(getURL(paste0(url, "/id")))$items
 attrs <- fromJSON(getURL(paste0(url, "/attributes")))$items
+ga.metadata <- data.frame(id, attrs$attributes)</nowiki>}}
-id <- sapply(id, "[[", 1)
-attrs <- sapply(attrs, function(x) unlist(x[[1]]))
-attrs.names <- unique(unlist(lapply(attrs, names)))
-attrs <- sapply(attrs.names, function(name) sapply(attrs, "[", name))
-ga.metadata <- data.table(id, attrs)</nowiki>}}
 Переменная <code>ga.metadata</code> содержит следующую информацию:
@@ Строка 29: / Строка 23: @@
 В качестве примера использования таблицы приведём вывод всех ID параметров (метрик), имеющих актуальный статус (не устаревшие) и относящиеся к группе "User":
-{{r-code|code=<nowiki>> ga.metadata[status != "DEPRECATED" & type == "METRIC" & group == "User", id]
+{{r-code|code=<nowiki>> subset(ga.metadata, status != "DEPRECATED" & type == "METRIC" & group == "User", id)
-[1] "ga:users"              "ga:newUsers"           "ga:percentNewSessions"</nowiki>}}
+                      id
 Подробнее о синтаксисе при работе объектами класса <code>data.table</code> смотрите соответствующую документацию к пакету {{r-package|data.table}}.