Generate a waffle plot made of country flags

Usage

waffle_country(data, citation, citation_size = NULL)

Arguments

data: The processed dataframe of data
citation: Optionally, a citation to add as a footer.
citation_size: Font size of the citation.

Examples

# \dontshow{
.old_wd <- setwd(tempdir())
# }
if (FALSE) {
pubmed_query_string <- paste(
  "passion [Title/Abstract]",
  "AND Dualistic Model of Passion [Text Word]"
)

save_process_pubmed_batch(
  pubmed_query_string,
  year_low = 2023,
  year_high = 2023
)
data <- read_bind_all_data()
waffle_country(data)
}
# \dontshow{
unlink("easyPubMed_data_01.txt")
unlink("articles_2023_2023.rds")
setwd(.old_wd)
# }