post: marburg u apc data 2022

OpenAPC · Jan 15, 2024 · 77c86db · 77c86db
1 parent 4cdb596
commit 77c86db
Show file tree

Hide file tree

Showing 5 changed files with 196 additions and 0 deletions.
diff --git a/Rmd/2024-01-15-marburg.Rmd b/Rmd/2024-01-15-marburg.Rmd
@@ -0,0 +1,114 @@
+---
+layout:     post
+author:     Julia Bartlewski
+author_lnk: https://github.com/jbartlewski
+title:      University of Marburg 2022 APC data integrated
+date:       2024-01-15 10: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 Forschungszentrum Jülich collects publication cost data from German institutions as part of the DFG programme "[Open Access Publication Funding](https://www.fz-juelich.de/en/zb/open-science/open-access/monitoring-dfg-oa-publication-funding)".
+
+When reporting their publication costs, the [University of Marburg](https://www.uni-marburg.de/en) had agreed to share the data with OpenAPC as well. This data has now been transferred and integrated.
+
+[Marburg University Library](https://www.uni-marburg.de/en/ub) is in charge of the [University's Open Access Publishing Fund](https://www.uni-marburg.de/en/ub/research/open-access/funds-for-publication), which receives support under the [DFG's Open Access Publication Funding Programme](https://www.dfg.de/en/research_funding/programmes/infrastructure/lis/open_access/infrastructure_funding/).
+
+Contact Person is [Margit L. Hartung](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[my.apc$institution == "Marburg U",]
+my.apc$publisher <- gsub("Association for Research in Vision and Ophthalmology \\(ARVO\\)", "ARVO", my.apc$publisher)
+my.apc <- droplevels(my.apc)
+my.apc_new <- my.apc[my.apc$period == 2022,]
+my.apc_new <- droplevels(my.apc_new)
+```
+
+The new data set covers publication fees for `r format(nrow(my.apc_new), big.mark =",")` articles. Total expenditure amounts to `r sum(my.apc_new$euro)`€ and the average fee is `r sum(my.apc_new$euro)/nrow(my.apc_new)`€.
+
+The following table provides an overview. 
+
+
+```{r}
+d_frame = data.frame(table(my.apc_new$publisher,  dnn="Publisher"))                 
+d_frame = d_frame[with(d_frame, order(-Freq, Publisher)), ]                                           
+                                    
+my.apc_new$publisher <- factor(my.apc_new$publisher, levels =  d_frame$Publisher)
+
+df.summary <-cbind(tapply(my.apc_new$euro, my.apc_new$publisher, length),
+             tapply(my.apc_new$euro, my.apc_new$publisher, sum),
+             tapply(my.apc_new$euro, my.apc_new$publisher, mean))
+
+colnames(df.summary) <- c("Articles", "Fees paid in EURO", "Mean Fee paid")
+
+knitr::kable(as.data.frame(df.summary), digits = 2)
+```
+
+## Overview
+
+With the recent contribution included, the overall APC data for Marburg now looks as follows:
+
+### Fees paid per publisher (in EURO)
+
+```{r tree_marburg_2024_01_15_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 year (in EURO)
+
+```{r box_marburg_2024_01_15_year_full, echo=FALSE, message = FALSE}
+require(ggplot2)
+q <- ggplot(my.apc, aes(factor(period), euro)) + geom_boxplot() + geom_point()
+q <- q +  ylab("Fees paid (in EURO)") + theme(legend.position="top") + theme_bw(base_size = 18)
+q + xlab("Funding period") + ylab("APC")
+```
+
+###  Average costs per publisher (in EURO)
+
+```{r box_marburg_2024_01_15_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 > 5])
+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 (> 5 articles)") + ylab("APC")
+```
diff --git a/_posts/2024-01-15-marburg.md b/_posts/2024-01-15-marburg.md
@@ -0,0 +1,82 @@
+---
+layout:     post
+author:     Julia Bartlewski
+author_lnk: https://github.com/jbartlewski
+title:      University of Marburg 2022 APC data integrated
+date:       2024-01-15 10:00:00
+summary:    
+categories: [general, openAPC]
+comments: true
+---
+
+
+
+
+The Forschungszentrum Jülich collects publication cost data from German institutions as part of the DFG programme "[Open Access Publication Funding](https://www.fz-juelich.de/en/zb/open-science/open-access/monitoring-dfg-oa-publication-funding)".
+
+When reporting their publication costs, the [University of Marburg](https://www.uni-marburg.de/en) had agreed to share the data with OpenAPC as well. This data has now been transferred and integrated.
+
+[Marburg University Library](https://www.uni-marburg.de/en/ub) is in charge of the [University's Open Access Publishing Fund](https://www.uni-marburg.de/en/ub/research/open-access/funds-for-publication), which receives support under the [DFG's Open Access Publication Funding Programme](https://www.dfg.de/en/research_funding/programmes/infrastructure/lis/open_access/infrastructure_funding/).
+
+Contact Person is [Margit L. Hartung](mailto:[email protected]).
+
+## Cost data
+
+
+
+The new data set covers publication fees for 255 articles. Total expenditure amounts to 632,452€ and the average fee is 2,480€.
+
+The following table provides an overview. 
+
+
+
+
+|                                                           | Articles| Fees paid in EURO| Mean Fee paid|
+|:----------------------------------------------------------|--------:|-----------------:|-------------:|
+|MDPI AG                                                    |       73|            146066|          2001|
+|Frontiers Media SA                                         |       55|            165281|          3005|
+|Springer Nature                                            |       38|            102414|          2695|
+|Elsevier BV                                                |       27|             76246|          2824|
+|Wiley-Blackwell                                            |       12|             29050|          2421|
+|Public Library of Science (PLoS)                           |        8|             15988|          1999|
+|Informa UK Limited                                         |        7|             19695|          2814|
+|Oxford University Press (OUP)                              |        5|             16536|          3307|
+|American Chemical Society (ACS)                            |        3|              7200|          2400|
+|BMJ                                                        |        3|              6058|          2019|
+|American Society for Microbiology                          |        2|              5904|          2952|
+|Ovid Technologies (Wolters Kluwer Health)                  |        2|              3378|          1689|
+|Royal Society of Chemistry (RSC)                           |        2|              3318|          1659|
+|SAGE Publications                                          |        2|              3040|          1520|
+|Society for Neuroscience                                   |        2|              5119|          2559|
+|AIP Publishing                                             |        1|              1540|          1540|
+|American Association for the Advancement of Science (AAAS) |        1|              2444|          2444|
+|American Physiological Society                             |        1|              3612|          3612|
+|Brill                                                      |        1|              2558|          2558|
+|Copernicus GmbH                                            |        1|              3209|          3209|
+|F1000 Research, Ltd.                                       |        1|              1436|          1436|
+|Georg Thieme Verlag KG                                     |        1|              1190|          1190|
+|Hindawi Publishing Corporation                             |        1|              2392|          2392|
+|Institution of Engineering and Technology (IET)            |        1|              1904|          1904|
+|International Wader Study Group                            |        1|               833|           833|
+|JCFCorp SG PTE LTD                                         |        1|              1176|          1176|
+|JMIR Publications Inc.                                     |        1|              2009|          2009|
+|Nova Southeastern University                               |        1|               472|           472|
+|The Royal Society                                          |        1|              2386|          2386|
+
+
+
+## Overview
+
+With the recent contribution included, the overall APC data for Marburg now looks as follows:
+
+### Fees paid per publisher (in EURO)
+
+![plot of chunk tree_marburg_2024_01_15_full](/figure/tree_marburg_2024_01_15_full-1.png)
+
+###  Average costs per year (in EURO)
+
+![plot of chunk box_marburg_2024_01_15_year_full](/figure/box_marburg_2024_01_15_year_full-1.png)
+
+###  Average costs per publisher (in EURO)
+
+![plot of chunk box_marburg_2024_01_15_publisher_full](/figure/box_marburg_2024_01_15_publisher_full-1.png)
diff --git a/figure/box_marburg_2024_01_15_publisher_full-1.png b/figure/box_marburg_2024_01_15_publisher_full-1.png
diff --git a/figure/box_marburg_2024_01_15_year_full-1.png b/figure/box_marburg_2024_01_15_year_full-1.png
diff --git a/figure/tree_marburg_2024_01_15_full-1.png b/figure/tree_marburg_2024_01_15_full-1.png