Skip to contents

Generate a waffle chart of journal paper percentages, by continent (each square = 1% of data)

Usage

waffle_country_journal(
  data,
  citation,
  citation_size = NULL,
  journal_abbreviation = TRUE
)

Arguments

data

The processed dataframe of data

citation

Optionally, a citation to add as a footer.

citation_size

Font size of the citation.

journal_abbreviation

Logical, whether to use the journal abbreviation to fit the entire plot, otherwise some journal names can be quite long and accordingly be cropped.

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_journal(data)
}
# \dontshow{
unlink("easyPubMed_data_01.txt")
setwd(.old_wd)
# }