diff --git a/Rmd/2025-01-22-augsburg.Rmd b/Rmd/2025-01-22-augsburg.Rmd new file mode 100644 index 0000000..036bd89 --- /dev/null +++ b/Rmd/2025-01-22-augsburg.Rmd @@ -0,0 +1,118 @@ +--- +layout: post +author: Julia Bartlewski +author_lnk: https://github.com/jbartlewski +title: University of Augsburg 2023 OAPK data integrated +date: 2025-01-22 13: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 Augsburg](https://www.uni-augsburg.de/en/) had agreed to share the data with OpenAPC as well. This data has now been transferred and integrated. + +Contact person for Augsburg is [Sonja Härkönen](mailto:openaccess@bibliothek.uni-augsburg.de). + + +## 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 == "Augsburg 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 <- download_apc(c("https://raw.githubusercontent.com/OpenAPC/openapc-de/refs/tags/v4.140.2-2-0/data/uniaugsburg/oapk_2023_augsburg_u_enriched.csv")) +my.apc_new <- my.apc_new[my.apc_new$institution == "Augsburg U",] +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)`€. Please note that articles published in **hybrid** journals under the DEAL agreements are not included in this list, as they are aggregated in OpenAPC's [transformative agreements](https://github.com/OpenAPC/openapc-de/tree/master/data/transformative_agreements) data set. + +The following table provides an overview of the reported APCs: + + +```{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 Augsburg now looks as follows: + +### Fees paid per publisher (in EURO) + +```{r tree_augsburg_2025_01_22_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_augsburg_2025_01_22_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_augsburg_2025_01_22_publisher_full, echo = FALSE, message = FALSE} +require(ggplot2) +require(tidyverse) +my.apc <- my.apc %>% + mutate(publisher = str_replace(publisher, ".+\\((\\w+)\\)", "\\1")) +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 > 1]) +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 (> 1 article)") + ylab("APC") +``` diff --git a/_posts/2025-01-22-augsburg.md b/_posts/2025-01-22-augsburg.md new file mode 100644 index 0000000..cacde6e --- /dev/null +++ b/_posts/2025-01-22-augsburg.md @@ -0,0 +1,67 @@ +--- +layout: post +author: Julia Bartlewski +author_lnk: https://github.com/jbartlewski +title: University of Augsburg 2023 OAPK data integrated +date: 2025-01-22 13: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 Augsburg](https://www.uni-augsburg.de/en/) had agreed to share the data with OpenAPC as well. This data has now been transferred and integrated. + +Contact person for Augsburg is [Sonja Härkönen](mailto:openaccess@bibliothek.uni-augsburg.de). + + +## Cost data + + + +The new data set covers publication fees for 46 articles, total expenditure amounts to 123,489€ and the average fee is 2,685€. Please note that articles published in **hybrid** journals under the DEAL agreements are not included in this list, as they are aggregated in OpenAPC's [transformative agreements](https://github.com/OpenAPC/openapc-de/tree/master/data/transformative_agreements) data set. + +The following table provides an overview of the reported APCs: + + + + +| | Articles| Fees paid in EURO| Mean Fee paid| +|:------------------------------------------------------|--------:|-----------------:|-------------:| +|Springer Nature | 16| 42120| 2632| +|MDPI AG | 6| 16640| 2773| +|Frontiers Media SA | 5| 15312| 3062| +|Elsevier BV | 4| 14055| 3514| +|American Meteorological Society | 2| 4831| 2415| +|BMJ | 2| 6652| 3326| +|Institute of Electrical & Electronics Engineers (IEEE) | 2| 4647| 2323| +|Ovid Technologies (Wolters Kluwer Health) | 2| 5643| 2822| +|American Geophysical Union (AGU) | 1| 1618| 1618| +|Berghahn Books | 1| 1312| 1312| +|JMIR Publications Inc. | 1| 2681| 2681| +|MIT Press - Journals | 1| 1749| 1749| +|Österreichische Akademie der Wissenschaften | 1| 357| 357| +|Oxford University Press (OUP) | 1| 4045| 4045| +|Wiley-Blackwell | 1| 1828| 1828| + + + +## Overview + +With the recent contribution included, the overall APC data for Augsburg now looks as follows: + +### Fees paid per publisher (in EURO) + +![plot of chunk tree_augsburg_2025_01_22_full](/figure/tree_augsburg_2025_01_22_full-1.png) + +### Average costs per year (in EURO) + +![plot of chunk box_augsburg_2025_01_22_year_full](/figure/box_augsburg_2025_01_22_year_full-1.png) + +### Average costs per publisher (in EURO) + +![plot of chunk box_augsburg_2025_01_22_publisher_full](/figure/box_augsburg_2025_01_22_publisher_full-1.png) diff --git a/figure/box_augsburg_2025_01_22_publisher_full-1.png b/figure/box_augsburg_2025_01_22_publisher_full-1.png new file mode 100644 index 0000000..4e7ef0b Binary files /dev/null and b/figure/box_augsburg_2025_01_22_publisher_full-1.png differ diff --git a/figure/box_augsburg_2025_01_22_year_full-1.png b/figure/box_augsburg_2025_01_22_year_full-1.png new file mode 100644 index 0000000..76d2d48 Binary files /dev/null and b/figure/box_augsburg_2025_01_22_year_full-1.png differ diff --git a/figure/tree_augsburg_2025_01_22_full-1.png b/figure/tree_augsburg_2025_01_22_full-1.png new file mode 100644 index 0000000..ba38a78 Binary files /dev/null and b/figure/tree_augsburg_2025_01_22_full-1.png differ