View source: R/Overview_SourceAnalysis.R
1 | sourceAnalysis(ClientID, ClientSecret, ViewID, StartDate, EndDate, SplitDaywise = T)
|
ClientID |
|
ClientSecret |
|
ViewID |
|
StartDate |
|
EndDate |
|
SplitDaywise |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (ClientID, ClientSecret, ViewID, StartDate, EndDate,
SplitDaywise = T)
{
checkPackages("RGoogleAnalytics", "httpuv", "ggplot2", "scales",
"sqldf")
library(httpuv)
library(ggplot2)
library(RGoogleAnalytics)
library(scales)
library(sqldf)
token <- Auth(ClientID, ClientSecret)
ValidateToken(token)
query.list <- Init(start.date = StartDate, end.date = EndDate,
dimensions = "ga:sourceMedium,ga:userType", metrics = "ga:users,ga:avgPageLoadTime,ga:bounceRate,ga:pageviewsPerSession,ga:searchSessions,ga:goalConversionRateAll,ga:goalCompletionsAll",
max.results = 100, sort = "-ga:users", table.id = ViewID)
ga.query <- QueryBuilder(query.list)
ga.data <- GetReportData(ga.query, token, split_daywise = SplitDaywise)
ga.data.top <- sqldf("select sourceMedium, SUM(users) as users from [ga.data] group by sourceMedium order by users desc LIMIT 20")
ga.data.graph <- sqldf("select * from [ga.data.top] as t Inner join [ga.data] as d on t.sourceMedium = d.sourceMedium")
p1 <- ggplot(data = ga.data.graph, aes(x = sourceMedium,
y = users, fill = userType)) + geom_bar(stat = "identity") +
coord_flip()
print(p1)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.