post: sweden data update

OpenAPC · Mar 25, 2024 · 4b59bad · 4b59bad
1 parent 3a80220
commit 4b59bad
Show file tree

Hide file tree

Showing 4 changed files with 227 additions and 0 deletions.
diff --git a/Rmd/2024-03-25-sweden.Rmd b/Rmd/2024-03-25-sweden.Rmd
@@ -0,0 +1,112 @@
+---
+layout:     post
+author:     Julia Bartlewski
+author_lnk: https://github.com/jbartlewski
+title:      The National Library of Sweden provides APC data for 6 institutions
+date:       2024-03-25 12:00:00
+summary:    
+categories: [general, openAPC]
+comments: true
+---
+
+
+```{r, echo = FALSE}
+knitr::opts_knit$set(base.url = "/")
+knitr::opts_chunk$set(
+  comment = "#>",
+  collapse = TRUE,
+  warning = FALSE, 
+  message = FALSE,
+  echo = FALSE,
+  fig.width = 9,
+  fig.height = 6
+)
+options(scipen = 1, digits = 2)
+knitr::knit_hooks$set(inline = function(x) {
+  prettyNum(x, big.mark=" ")
+})
+```
+The [National Library of Sweden](https://www.kb.se/in-english.html) collects data on APC expenditures from universities and other research institutions in Sweden. 
+
+APC expenditures for 6 different institutions have now been made available to OpenAPC.
+
+Contact person for the National Library is [Johan Fröberg](mailto:[email protected]).
+
+## Cost data
+
+```{r, cache.lazy = TRUE}
+#' Download APC spreadsheet from github which requires to Curl installed
+
+download_apc <- function(path = NULL, dir = "tmp", file = "apc_de.csv"){
+  if(is.null(path)) {
+    path <- c("https://raw.githubusercontent.com/OpenAPC/openapc-de/master/data/apc_de.csv")
+    } 
+  dir.create(dir) 
+  download.file(url = path, destfile = paste(dir, file, sep = "/"), method = "curl")
+  read.csv(paste(dir, file, sep = "/"), header = T,sep =",")
+}
+
+my.apc <- download_apc()
+my.apc <- my.apc[208076:208507,]
+
+my.apc$publisher <- gsub("Institute of Electrical & Electronics Engineers \\(IEEE\\)", "IEEE", my.apc$publisher)
+my.apc$publisher <- gsub("American Association for the Advancement of Science \\(AAAS\\)", "AAAS", my.apc$publisher)
+my.apc <- my.apc[my.apc$institution != "",]
+my.apc <- droplevels(my.apc)
+```
+
+The new data set provided by the National Library covers publication fees for `r format(nrow(my.apc), big.mark =",")` articles. Total expenditure amounts to `r sum(my.apc$euro)`€ and the average fee is `r sum(my.apc$euro)/nrow(my.apc)`€.
+
+The data originates from the following institutions:
+
+- BTH Blekinge Institute of Technology
+- Swedish University of Agricultural Sciences
+- University of Borås
+- Halmstad University
+- Södertörns University
+- Stockholm University
+
+
+## Overview
+
+A detailed analysis of the contributed data sets provides the following overview:
+
+### Breakdown by publisher
+
+```{r}
+d_frame = data.frame(table(my.apc$publisher,  dnn="Publisher"))                 
+d_frame = d_frame[with(d_frame, order(-Freq, Publisher)), ]                                           
+                                    
+my.apc$publisher <- factor(my.apc$publisher, levels =  d_frame$Publisher)
+
+df.summary <-cbind(tapply(my.apc$euro, my.apc$publisher, length),
+             tapply(my.apc$euro, my.apc$publisher, sum),
+             tapply(my.apc$euro, my.apc$publisher, mean))
+
+colnames(df.summary) <- c("Articles", "Fees paid in EURO", "Mean Fee paid")
+
+knitr::kable(as.data.frame(df.summary), digits = 2)
+```
+
+### Fees paid per publisher (in EURO)
+
+```{r tree_natlibswe_2024_03_25_full}
+tt <- aggregate(my.apc$euro, by = list(my.apc$publisher), sum)
+colnames(tt) <- c("Publisher", "Euro")
+treemap::treemap(tt, index = c("Publisher"), vSize = "Euro", palette = "Paired")
+```
+
+###  Average costs per publisher (in EURO)
+
+```{r box_natlibswe_2024_03_25_publisher_full, echo = FALSE, message = FALSE}
+require(ggplot2)
+d_frame = data.frame(table(my.apc$publisher,  dnn="Publisher"))                 
+d_frame = d_frame[with(d_frame, order(-Freq, Publisher)), ]
+publishers = as.character(d_frame$Publisher[d_frame$Freq > 3])
+my.apc_reduced = my.apc[my.apc$publisher %in% publishers,]
+
+  
+q <- ggplot(my.apc_reduced, aes(publisher, euro)) + geom_boxplot() + geom_point()
+q <- q +  ylab("Fees paid (in EURO)") + theme(legend.position="top") + theme_bw(base_size = 18) + coord_flip()
+q + xlab("Publisher (> 3 articles) ") + ylab("APC")
+```
diff --git a/_posts/2024-03-25-sweden.md b/_posts/2024-03-25-sweden.md
@@ -0,0 +1,115 @@
+---
+layout:     post
+author:     Julia Bartlewski
+author_lnk: https://github.com/jbartlewski
+title:      The National Library of Sweden provides APC data for 6 institutions
+date:       2024-03-25 12:00:00
+summary:    
+categories: [general, openAPC]
+comments: true
+---
+
+
+
+The [National Library of Sweden](https://www.kb.se/in-english.html) collects data on APC expenditures from universities and other research institutions in Sweden. 
+
+APC expenditures for 6 different institutions have now been made available to OpenAPC.
+
+Contact person for the National Library is [Johan Fröberg](mailto:[email protected]).
+
+## Cost data
+
+
+
+The new data set provided by the National Library covers publication fees for 432 articles. Total expenditure amounts to 827 848€ and the average fee is 1 916€.
+
+The data originates from the following institutions:
+
+- BTH Blekinge Institute of Technology
+- Swedish University of Agricultural Sciences
+- University of Borås
+- Halmstad University
+- Södertörns University
+- Stockholm University
+
+
+## Overview
+
+A detailed analysis of the contributed data sets provides the following overview:
+
+### Breakdown by publisher
+
+
+
+|                                                                  | Articles| Fees paid in EURO| Mean Fee paid|
+|:-----------------------------------------------------------------|--------:|-----------------:|-------------:|
+|MDPI AG                                                           |      151|            260847|          1727|
+|Frontiers Media SA                                                |       96|            213628|          2225|
+|Copernicus GmbH                                                   |       25|             33464|          1339|
+|American Dairy Science Association                                |       10|             15901|          1590|
+|Elsevier BV                                                       |       10|             29645|          2964|
+|IEEE                                                              |       10|             17907|          1791|
+|Stockholm University Press                                        |       10|              9764|           976|
+|Public Library of Science (PLoS)                                  |        8|             13588|          1699|
+|SAGE Publications                                                 |        8|              7586|           948|
+|JMIR Publications Inc.                                            |        7|             17905|          2558|
+|Wiley-Blackwell                                                   |        6|             10436|          1739|
+|American Astronomical Society                                     |        5|             10796|          2159|
+|American Physical Society (APS)                                   |        5|             12016|          2403|
+|BMJ                                                               |        4|             13283|          3321|
+|Informa UK Limited                                                |        4|             12136|          3034|
+|Springer Nature                                                   |        4|              7387|          1847|
+|The Royal Society                                                 |        4|              5035|          1259|
+|Wageningen Academic Publishers                                    |        4|              7395|          1849|
+|AAAS                                                              |        3|             12294|          4098|
+|American Society for Horticultural Science                        |        3|              7050|          2350|
+|American Society for Microbiology                                 |        3|              8743|          2914|
+|eLife Sciences Publications, Ltd                                  |        3|              8506|          2835|
+|Proceedings of the National Academy of Sciences                   |        3|             11812|          3937|
+|Resilience Alliance, Inc.                                         |        3|              3201|          1067|
+|American Chemical Society (ACS)                                   |        2|              6936|          3468|
+|American Medical Association (AMA)                                |        2|              5441|          2721|
+|Canadian Science Publishing                                       |        2|              6240|          3120|
+|Cogitatio                                                         |        2|              1140|           570|
+|Mary Ann Liebert Inc                                              |        2|              7025|          3513|
+|Ubiquity Press, Ltd.                                              |        2|              1299|           649|
+|Walter de Gruyter GmbH                                            |        2|              2685|          1342|
+|American Geophysical Union (AGU)                                  |        1|              2505|          2505|
+|American Mathematical Society (AMS)                               |        1|               688|           688|
+|American Meteorological Society                                   |        1|               999|           999|
+|American Physiological Society                                    |        1|              2739|          2739|
+|American Psychological Association (APA)                          |        1|              2721|          2721|
+|American Society of Agricultural and Biological Engineers (ASABE) |        1|              1109|          1109|
+|Bristol University Press                                          |        1|              1636|          1636|
+|CABI Publishing                                                   |        1|              2069|          2069|
+|Cappelen Damm AS - Cappelen Damm Akademisk                        |        1|              1051|          1051|
+|Cold Spring Harbor Laboratory Press                               |        1|              3337|          3337|
+|Common Ground Research Networks                                   |        1|               628|           628|
+|CSIRO Publishing                                                  |        1|              2566|          2566|
+|Emerald                                                           |        1|              1667|          1667|
+|Hindawi Publishing Corporation                                    |        1|              1362|          1362|
+|Human Kinetics                                                    |        1|              1814|          1814|
+|IMR Press                                                         |        1|              2517|          2517|
+|International Food and Agribusiness Management Association        |        1|              1146|          1146|
+|International Society for Gerontechnology (ISG)                   |        1|               608|           608|
+|IWA Publishing                                                    |        1|              1853|          1853|
+|Japan Society for Occupational Health                             |        1|               575|           575|
+|MIT Press - Journals                                              |        1|              1045|          1045|
+|Oxford University Press (OUP)                                     |        1|              1829|          1829|
+|PeerJ                                                             |        1|              1592|          1592|
+|Retorikforlaget AB                                                |        1|                78|            78|
+|Royal Society of Chemistry (RSC)                                  |        1|              1596|          1596|
+|Scandinavian Journal of Work, Environment and Health              |        1|              1926|          1926|
+|Scientific Research Publishing, Inc.                              |        1|               568|           568|
+|Scientific Societies                                              |        1|              2773|          2773|
+|University of California Press                                    |        1|              1765|          1765|
+
+
+
+### Fees paid per publisher (in EURO)
+
+![plot of chunk tree_natlibswe_2024_03_25_full](/figure/tree_natlibswe_2024_03_25_full-1.png)
+
+###  Average costs per publisher (in EURO)
+
+![plot of chunk box_natlibswe_2024_03_25_publisher_full](/figure/box_natlibswe_2024_03_25_publisher_full-1.png)
diff --git a/figure/box_natlibswe_2024_03_25_publisher_full-1.png b/figure/box_natlibswe_2024_03_25_publisher_full-1.png
diff --git a/figure/tree_natlibswe_2024_03_25_full-1.png b/figure/tree_natlibswe_2024_03_25_full-1.png