preprint_growth: Growth in the number of biology preprints posted Monthly...

In clauswilke/dviz.supp: Supporting materials for Claus Wilke's data visualization book

Description

Growth in the number of biology preprints posted

Monthly number of biology preprints posted in several widely used archives.

Usage

preprint_growth

Format

An object of class tbl_df (inherits from tbl, data.frame) with 1080 rows and 3 columns.

Source

Jordan Anaya, http://www.prepubmed.org/

Examples

preprint_growth %>% filter(archive %in% c("bioRxiv", "arXiv q-bio")) %>%
filter(count > 0) -> df_preprints

df_final <- filter(df_preprints, date == max(date))

ggplot(df_preprints, aes(date, count, color = archive)) + geom_line() +
  scale_y_log10(limits = c(30, 1600), breaks = c(30, 100, 300, 1000), expand = c(0, 0),
                name = "preprints / month",
                sec.axis = dup_axis(breaks = df_final$count, labels = df_final$archive,
                                    name = NULL)) + 
  scale_x_date(name = NULL, expand = c(0, 0)) +
  scale_color_manual(values = c("#D55E00", "#0072B2"), guide = "none") +
  labs(title = "Rapid growth of bioRxiv",
       subtitle = "After the introduction of bioRxiv, q-bio stopped growing",
       caption = "Data source: Jordan Anaya, http://www.prepubmed.org/") +
  theme_minimal_grid() +
  theme(plot.title = element_text(hjust = 0),
        plot.caption = element_text(size = 10))

clauswilke/dviz.supp documentation built on Aug. 25, 2020, 2:12 a.m.