Article processing charges (APC's) for top 50 most expensive Nature journals

apc-cost-nature-journals.R

library(tidyverse)
library(rio)

xlsx_file <- "https://resource-cms.springernature.com/springer-cms/rest/v1/content/19770948/data/v8"

df <- import(xlsx_file, skip=3)

journal_apc <- df %>% 
  mutate(cost = as.integer(str_extract(`APC EUR '22`, "\\d+"))) %>% 
  select(journal = `Journal title`, cost)

journal_apc %>% 
  arrange(desc(cost)) %>% 
  head(50) %>% 
  ggplot(aes(cost, reorder(journal, cost))) + 
  geom_bar(stat="identity") +
  scale_x_continuous(expand = c(0, 0, .1, 0)) +
  labs(title = "Article processing charges (APC's) for top 50 most expensive Nature journals",
       subtitle = "Note: some journals only have their list prices on the website",
       x = "APC Cost (EUR)", 
       y = NULL)

journal_apc %>% 
  pull(cost) %>% 
  hist(main = "Histogram of cost")

Excel file found here:
https://www.springernature.com/gp/open-research/journals-books/journals