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

Merge pull request #8 from aaronshaw/master

Browse Source 
Update to load data from github url and include 3/28 data in output
This commit is contained in:
Aaron Shaw 2020-03-28 17:38:20 -05:00 committed by GitHub
commit c0e50fe297
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 24 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
transliterations/analysis/output/top5_queries_per_term_per_date.csv
View File

@ -1,6 +1,11 @@
"term","date","query.1","query.2","query.3","query.4","query.5"
"coronavirus","2020-03-27",coronavirus update,corona,coronavirus symptoms,news coronavirus,coronavirus cases
"covid-19","2020-03-27",covid-19 coronavirus,coronavirus,covid,covid-19 cases,covid 19
"covid-19 pandemic","2020-03-27",coronavirus,covid-19 coronavirus pandemic,coronavirus pandemic,who,is covid-19 a pandemic
"covid19","2020-03-27",covid,covid 19,coronavirus covid19,coronavirus,covid19 cases
"sars-cov-2","2020-03-27",coronavirus,coronavirus sars-cov-2,covid-19,covid-19 sars-cov-2,sars
"coronavirus",2020-03-27,coronavirus update,corona,coronavirus symptoms,news coronavirus,coronavirus cases
"covid-19",2020-03-27,covid-19 coronavirus,coronavirus,covid,covid-19 cases,covid 19
"covid-19 pandemic",2020-03-27,coronavirus,covid-19 coronavirus pandemic,coronavirus pandemic,who,is covid-19 a pandemic
"covid19",2020-03-27,covid,covid 19,coronavirus covid19,coronavirus,covid19 cases
"sars-cov-2",2020-03-27,coronavirus,coronavirus sars-cov-2,covid-19,covid-19 sars-cov-2,sars
"coronavirus",2020-03-28,coronavirus update,corona,coronavirus symptoms,news coronavirus,coronavirus cases
"covid-19",2020-03-28,coronavirus,coronavirus covid-19,covid,covid-19 cases,covid 19
"covid-19 pandemic",2020-03-28,coronavirus pandemic,coronavirus,covid-19 coronavirus pandemic,is covid-19 a pandemic,who pandemic
"covid19",2020-03-28,covid,covid 19,coronavirus covid19,coronavirus,covid19 cases
"sars-cov-2",2020-03-28,coronavirus sars-cov-2,coronavirus,sars-cov-2 covid-19,covid-19,sars

1 term date query.1 query.2 query.3 query.4 query.5
2 coronavirus 2020-03-27 coronavirus update corona coronavirus symptoms news coronavirus coronavirus cases
3 covid-19 2020-03-27 covid-19 coronavirus coronavirus covid covid-19 cases covid 19
4 covid-19 pandemic 2020-03-27 coronavirus covid-19 coronavirus pandemic coronavirus pandemic who is covid-19 a pandemic
5 covid19 2020-03-27 covid covid 19 coronavirus covid19 coronavirus covid19 cases
6 sars-cov-2 2020-03-27 coronavirus coronavirus sars-cov-2 covid-19 covid-19 sars-cov-2 sars
7 coronavirus 2020-03-28 coronavirus update corona coronavirus symptoms news coronavirus coronavirus cases
8 covid-19 2020-03-28 coronavirus coronavirus covid-19 covid covid-19 cases covid 19
9 covid-19 pandemic 2020-03-28 coronavirus pandemic coronavirus covid-19 coronavirus pandemic is covid-19 a pandemic who pandemic
10 covid19 2020-03-28 covid covid 19 coronavirus covid19 coronavirus covid19 cases
11 sars-cov-2 2020-03-28 coronavirus sars-cov-2 coronavirus sars-cov-2 covid-19 covid-19 sars

20
transliterations/analysis/related_searches_example.R
View File

@ -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,