mgaughan/covid19
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Loading data directly from github URL. Commenting out commands that assume cloned repository.

Browse Source
This commit is contained in:
aaronshaw 2020-03-28 17:30:37 -05:00
parent 033149776c
commit 9e0c92242e
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
transliterations/analysis/related_searches_example.R
View File

@ -3,16 +3,24 @@
### ###
### Minimal example analysis file using trending search data ### 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 ### 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, sep=",", header=TRUE,
stringsAsFactors=FALSE) 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 ### Aggregate top 5 search queries by term/day
top5.per.term.date <- aggregate(query ~ term + date, top5.per.term.date <- aggregate(query ~ term + date,
data=related.searches.top, data=related.searches.top,