]> code.communitydata.science - covid19.git/blob - keywords/example_analysis/related_searches_tidyverse_example.R
Merge pull request #20 from makoshark/master
[covid19.git] / keywords / example_analysis / related_searches_tidyverse_example.R
1 ### COVID-19 Digital Observatory
2 ### 2020-03-28
3 ### 
4 ### Minimal example analysis file using trending search data
5
6 library(tidyverse)
7
8 ### Import and cleanup data
9
10
11 related.searches.top = read_csv("https://github.com/CommunityDataScienceCollective/COVID-19_Digital_Observatory/raw/master/keywords/output/intermediate/related_searches_top.csv")
12
13
14 ## Plot how often the top 10 queries appear in the top 10 suggested list each day
15
16 plot <- related.searches.top %>% 
17   group_by(term, date) %>% # Group by term and date
18   arrange(-value) %>% # Sort by value (this should already be done anyway)
19   top_n(10) %>% # Get the top 10 queries for each term-day pair
20   group_by(query) %>% # Group by again, this time for each query
21   summarize(appearances = n()) %>% # Count how often this query appears in the top 10 (which is how many Google displays)
22   arrange(-appearances) %>% # Sort by appearances
23   top_n(10) %>% # And get the top 10 queries
24   ggplot(aes(x=reorder(query, appearances), y=appearances)) + # Plot the number of appearances, ordered by appearances
25   geom_bar(stat = 'identity') + # Tell R that we want to use the values of `appearances` as the counts
26   coord_flip() + # Flip the plot
27   xlab("Query") + 
28   ylab("Number of appearances in top 10 suggested queries") +
29   theme_minimal() # And make it minimal
30
31 ggsave('./output/top_queries_plot.png', plot)

Community Data Science Collective || Want to submit a patch?