post: sns apc data 2022

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:[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 == "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")
+```

_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:[email protected]).
+
+## 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)