rename 'transliterations' to 'keywords'
This commit is contained in:
11
keywords/analysis/output/top5_queries_per_term_per_date.csv
Normal file
11
keywords/analysis/output/top5_queries_per_term_per_date.csv
Normal file
@@ -0,0 +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-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
|
||||
|
36
keywords/analysis/related_searches_example.R
Normal file
36
keywords/analysis/related_searches_example.R
Normal file
@@ -0,0 +1,36 @@
|
||||
### COVID-19 Digital Observatory
|
||||
### 2020-03-28
|
||||
###
|
||||
### Minimal example analysis file using trending search data
|
||||
|
||||
### Import and cleanup data
|
||||
|
||||
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,
|
||||
head, 5)
|
||||
|
||||
## Might cleanup a bit for further analysis or visualization...
|
||||
top5.per.term.date$date <- as.Date(top5.per.term.date$date)
|
||||
|
||||
### Export
|
||||
write.table(top5.per.term.date,
|
||||
file="output/top5_queries_per_term_per_date.csv", sep=",",
|
||||
row.names=FALSE)
|
||||
|
||||
Reference in New Issue
Block a user