X-Git-Url: https://code.communitydata.science/covid19.git/blobdiff_plain/0fb8ac2ed9b10c75cc8a2e0a6ecb5f08d3604e08..05b8025e15fe3b6f37faf5d05c1ce6850bb0b836:/transliterations/analysis/related_searches_example.R diff --git a/transliterations/analysis/related_searches_example.R b/transliterations/analysis/related_searches_example.R index 2576d4a..e1197b6 100644 --- a/transliterations/analysis/related_searches_example.R +++ b/transliterations/analysis/related_searches_example.R @@ -3,16 +3,24 @@ ### ### Minimal example analysis file using trending search data -### Identify data source directory and file -DataDir <- ("../data/output/") -DataFile <- ("related_searches_top.csv") - ### Import and cleanup data -related.searches.top <- read.table(paste(DataDir,DataFile, - sep=""), + +DataURL <- + url("https://github.com/CommunityDataScienceCollective/COVID-19_Digital_Observatory/blob/master/transliterations/data/output/related_searches_top.csv") + +related.searches.top <- read.table(DataURL, sep=",", header=TRUE, stringsAsFactors=FALSE) +### Alternatively, uncomment and run if working locally with full git tree +### Identify data source directory and file +## DataDir <- ("../data/output/") +## DataFile <- ("related_searches_top.csv") + +## related.searches.top <- read.table(paste(DataDir,DataFile, sep=""), +## sep=",", header=TRUE, +## stringsAsFactors=FALSE) + ### Aggregate top 5 search queries by term/day top5.per.term.date <- aggregate(query ~ term + date, data=related.searches.top,