diff --git a/Rmd/2024-06-26-sns.Rmd b/Rmd/2024-06-26-sns.Rmd new file mode 100644 index 0000000..842c14a --- /dev/null +++ b/Rmd/2024-06-26-sns.Rmd @@ -0,0 +1,111 @@ +--- +layout: post +author: Julia Bartlewski +author_lnk: https://github.com/jbartlewski +title: Scuola Normale Superiore reports its 2022 APC and TA data +date: 2024-06-26 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 [Scuola Normale Superiore](https://www.sns.it/en) (SNS) has updated its APC expenditures, the latest contribution provides data for the 2022 period as well as articles published under transformative agreements in 2022. + +The [SNS Open Access Publishing Fund](https://www.sns.it/en/guida/how-publish-open-access-scuola-normale) supports and partially funds OA publishing at the institution. + +Contact Person is [Donatella Tamagno](mailto:svr@sns.it). + +## 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 == "Scuola Normale Superiore",] +my.apc <- droplevels(my.apc) +my.apc_new <- download_apc(c("https://raw.githubusercontent.com/OpenAPC/openapc-de/master/data/sns/Scuola_Norma_Superiore_APC_2022_enriched.csv")) +my.apc_new <- my.apc_new[my.apc_new$institution == "Scuola Normale Superiore",] +my.apc_new <- droplevels(my.apc_new) +``` + +The new data 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 under transformative agreements are not included in this list, as they are aggregated in OpenAPC’s [transformative agreements data set](https://github.com/OpenAPC/openapc-de/tree/master/data/transformative_agreements). + +The following table provides an overview of the new data: + +```{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 + +A detailed analysis of the contributed data provides the following overview: + +### Fees paid per publisher (in EURO) + +```{r tree_sns_2024_06_26_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_sns_2024_06_26_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_sns_2024_06_26_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 > 2]) +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 (> 2 articles)") + ylab("APC") +``` diff --git a/_posts/2024-06-26-sns.md b/_posts/2024-06-26-sns.md new file mode 100644 index 0000000..97067c8 --- /dev/null +++ b/_posts/2024-06-26-sns.md @@ -0,0 +1,60 @@ +--- +layout: post +author: Julia Bartlewski +author_lnk: https://github.com/jbartlewski +title: Scuola Normale Superiore reports its 2022 APC and TA data +date: 2024-06-26 10:00:00 +summary: +categories: [general, openAPC] +comments: true +--- + + + + +The [Scuola Normale Superiore](https://www.sns.it/en) (SNS) has updated its APC expenditures, the latest contribution provides data for the 2022 period as well as articles published under transformative agreements in 2022. + +The [SNS Open Access Publishing Fund](https://www.sns.it/en/guida/how-publish-open-access-scuola-normale) supports and partially funds OA publishing at the institution. + +Contact Person is [Donatella Tamagno](mailto:svr@sns.it). + +## Cost Data + + + +The new data covers publication fees for 22 articles. Total expenditure amounts to 53,843€ and the average fee is 2,447€. Please note that articles published under transformative agreements are not included in this list, as they are aggregated in OpenAPC’s [transformative agreements data set](https://github.com/OpenAPC/openapc-de/tree/master/data/transformative_agreements). + +The following table provides an overview of the new data: + + + +| | Articles| Fees paid in EURO| Mean Fee paid| +|:--------------------------------|--------:|-----------------:|-------------:| +|Springer Nature | 6| 15394| 2566| +|MDPI AG | 4| 8859| 2215| +|Frontiers Media SA | 3| 7480| 2493| +|Oxford University Press (OUP) | 2| 6666| 3333| +|Royal Society of Chemistry (RSC) | 2| 4443| 2222| +|American Astronomical Society | 1| 476| 476| +|American Chemical Society (ACS) | 1| 1382| 1382| +|Elsevier BV | 1| 5490| 5490| +|Hindawi Publishing Corporation | 1| 1104| 1104| +|Informa UK Limited | 1| 2550| 2550| + + + +## Overview + +A detailed analysis of the contributed data provides the following overview: + +### Fees paid per publisher (in EURO) + +![plot of chunk tree_sns_2024_06_26_full](/figure/tree_sns_2024_06_26_full-1.png) + +### Average costs per year (in EURO) + +![plot of chunk box_sns_2024_06_26_year_full](/figure/box_sns_2024_06_26_year_full-1.png) + +### Average costs per publisher (in EURO) + +![plot of chunk box_sns_2024_06_26_publisher_full](/figure/box_sns_2024_06_26_publisher_full-1.png) diff --git a/figure/box_sns_2024_06_26_publisher_full-1.png b/figure/box_sns_2024_06_26_publisher_full-1.png new file mode 100644 index 0000000..49c8bc2 Binary files /dev/null and b/figure/box_sns_2024_06_26_publisher_full-1.png differ diff --git a/figure/box_sns_2024_06_26_year_full-1.png b/figure/box_sns_2024_06_26_year_full-1.png new file mode 100644 index 0000000..874e66c Binary files /dev/null and b/figure/box_sns_2024_06_26_year_full-1.png differ diff --git a/figure/tree_sns_2024_06_26_full-1.png b/figure/tree_sns_2024_06_26_full-1.png new file mode 100644 index 0000000..f851d98 Binary files /dev/null and b/figure/tree_sns_2024_06_26_full-1.png differ