In kguidonimartins/minimalTemplate: A minimal template for scientific manuscripts

Modified from: https://github.com/leeper/references

# knitr
if (!require("tidyverse", quietly = TRUE)) install.packages("tidyverse")
if (!require("fs", quietly = TRUE)) install.packages("fs")
if (!require("knitr", quietly = TRUE)) install.packages("knitr")
if (!require("ggplot2", quietly = TRUE)) install.packages("ggplot2")
if (!require("bib2df", quietly = TRUE)) install.packages("bib2df")
if (!require("igraph", quietly = TRUE)) install.packages("igraph")
if (!require("gender", quietly = TRUE)) install.packages("gender")
if (!require("ggraph", quietly = TRUE)) install.packages("ggraph")
if (!require("networkD3", quietly = TRUE)) install.packages("networkD3")
if (!require("here", quietly = TRUE)) install.packages("here")

opts_chunk$set(fig.width=8, fig.height=5, cache=FALSE)

theme_set(theme_minimal())

License: Public Domain (CC-0)

This is the bibtex (.bib) file containing all of my bibliographic references. Figured I'd share it publicly.

This README was last updated on r Sys.Date().

dat <- 
  here("inst", "template","full","manuscript", "sources") %>% 
  dir_ls(regexp = "\\.bib") %>% 
  map_dfr(bib2df, .id = "source_file") %>% 
  mutate(source_file = basename(source_file)) %>% 
  rename_all(str_to_lower)

The database contains r nrow(dat) references. What follows are some basic statistics on its contents.

Citation Types

Reference types in the database:

dat %>% 
  ggplot(aes(x = category)) +
  geom_bar() +
  xlab("Count") +
  ylab("Citation Type") +
  coord_flip()

Journals

Most common 50 journals:

dat %>% 
  group_by(journal, category) %>% 
  count() %>% 
  ungroup() %>% 
  mutate(journal = fct_reorder(journal, n)) %>% 
  ggplot(aes(x = journal, y = n)) +
  geom_bar(stat = "identity") +
  ylab("Count") +
  xlab("Journal") +
  coord_flip()

Book Publishers

Most common 25 journals:

Authors

Number of coauthors per publication (excluding some recent extreme outliers):

dat %>%
  mutate(author = length(author)) %>% 
  ggplot(aes(x = year, y = author)) +
  geom_point(alpha=0.1, fill="black", colour="black") +
  geom_smooth(method = "gam", colour = "red") +
  xlab("Publication Year") +
  ylab("Coauthors per Publication")

Most common 50 authors:

dat %>% 
  select(author) %>% 
  unnest(cols = author) %>% 
  group_by(author) %>% 
  count() %>% 
  ungroup() %>% 
  mutate(author = fct_reorder(author, n)) %>% 
  ggplot(aes(x = author, y = n)) +
  geom_bar(stat = "identity") +
  ylab("Count") +
  xlab("Author Name") +
  coord_flip()