-
Notifications
You must be signed in to change notification settings - Fork 1
/
AdobeAnalyticsSearchWordCloudExample.R
98 lines (80 loc) · 3.7 KB
/
AdobeAnalyticsSearchWordCloudExample.R
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
#---------Connecting to Adobe Analytics and creating Search Key Word's Word Cloud----------------------
#Author: Alice Daish (British Museum adaish@britishmuseum.org)
#January 2016
#https://github.com/BritishMuseum/RSearchWordCloud
#------------PACKAGE IN USE IS RSITECATALYST-----------------------------------------------------------
#https://github.com/randyzwitch/RSiteCatalyst
#------------INSTALL PACKAGES--------------------------------------------------------------------------
#install.packages("devtools")
library(devtools)
#install_github("randyzwitch/RSiteCatalyst", ref="master")
library(RSiteCatalyst)
#------Install dependant packages-----------------------------------------------------------------------
#install.packages("jsonlite")
#install.packages("plyr")
#install.packages("httr")
#install.packages("stringr")
#install.packages("digest")
#install.packages("base64enc")
#install.packages("RCurl")
library("jsonlite")
library("plyr")
library("httr")
library("stringr")
library("digest")
library("base64enc")
library("RCurl")
#-------Authentication----------------------------------------------------------------------------------
#Find web service credentials in User Managerment in the marketing cloud
#log in for adobe analytics
SCAuth("username:Company", "secretkey")
#----------Explore Report Suite and Metrics, Evars and Props--------------------------------------------
#Report Suites
report_suites <- GetReportSuites()
report_suites
#Find eVars
eVars<-GetEvars("ReportSuite")
eVars
eVars[which(eVars$id =="evar1-search term"),] #search Term = word
eVars[which(eVars$id =="evar2-search results"),] #search results = freq
eVars$name
#Find metrics
metrics<-GetMetrics("ReportSuiteName")
metrics$id #list of metric id available
#Find elements
elements <- GetElements("ReportSuiteName")
elements$id #list of elements id available
#GetSuccessEvents
events <- GetSuccessEvents("ReportSuiteName")
events <- GetSuccessEvents(report_suites$rsid)
events
#GetProps
props <- GetProps("ReportSuiteName")
props
#-------------- Finding Top search words----------------------------------------------------------------
#Find top 500 search grouped from start of analytics to today
searchdata<-QueueRanked("ReportSuiteName",
date.from="2015-07-08", #start date for example "2015-07-08" to
date.to="2016-06-19", #end date for example "2016-06-19"
metrics=c("event1"), #Search Results -"event" need DTM name provided
elements=c("evar2"), #Search Term -"evar" need DTM name provided
search=c("::unspecified::","PDF*"),search.type="not", #exclude unwanted words
top=500)
View(searchdata) #view data
#---------------Create a Search Wordcloud----------------------------------------------------------------
#-------General WORD CLOUD ----------MAKE A PICTURE FOR ALL SEARCH CONTENT
#install.packages("wordcloud")
library(wordcloud)
#TOP 500 KEYWORD SEARCH TERMS
png("wordcloudkeywords.png", width=700,height=700) #create a png
#-------------WORDCLOUD RANDOM COLOURS ---------------------------
wordcloud(searchdata$name,searchdata$event1,scale=c(8,.2),
min.freq=2, #minimum count of words results
max.words=Inf, #max count of words results
random.order=FALSE, #largest word in the middle
random.color=TRUE, #change to FALSE of non-random colours
rot.per=.35, #text rotation
colors=brewer.pal(8, "Dark2"), #Choose colour palette
)
dev.off() #close and create png
#---------------------------------------------end--------------------------------------------------------