create_topchart: Plot the top elements for a specific series on the epitweetr dashboard

Description

Generates a bar plot of most popular elements in tweets, for one topic. Top elements among ("topwords", "hashtags", "entities", "contexts", "urls")

Usage

create_topchart(
  topic,
  serie,
  country_codes = c(),
  date_min = "1900-01-01",
  date_max = "2100-01-01",
  with_retweets = FALSE,
  location_type = "tweet",
  top = 25
)

Value

A named list containing two elements: 'chart' with the ggplot2 figure and 'data' containing the data frame that was used to build the map.

Arguments

topic: Character(1) containing the topic to use for the report
serie: Character(1) name of the series to be used for the report. It should be one of ("topwords", "hashtags", "entities", "contexts", "urls")
country_codes: Character vector containing the ISO 3166-1 alpha-2 countries to plot, default: c()
date_min: Date indicating start of the reporting period, default: "1900-01-01"
date_max: Date indicating end of the reporting period, default: "2100-01-01"
with_retweets: Logical value indicating whether to include retweets in the time series, default: FALSE
location_type: Character(1) this parameter is currently being IGNORED since this report shows only tweet location and cannot show user or both locations for performance reasons, default: 'tweet'
top: numeric(1) Parameter indicating the number of words to show, default: 25

Details

Produces a bar chart showing the occurrences of the most popular words in the collected tweets based on the provided parameters. For performance reasons on tweet aggregation, this report only shows tweet location and ignores the location_type parameter

This functions requires that search_loop and detect_loop have already been run successfully to show results.

Examples

Run this code

if(FALSE){
   message('Please choose the epitweetr data directory')
   setup_config(file.choose())
   #Getting topword chart for dengue for France, Chile, Australia for last 30 days
   create_topchart(
     topic = "dengue", 
     serie = "topwords", 
     country_codes = c("FR", "CL", "AU"),
     date_min = as.Date(Sys.time())-30, 
     date_max=as.Date(Sys.time())
   ) 
 }