Skip to content

Commit

Permalink
post: unimib joins openapc
Browse files Browse the repository at this point in the history
  • Loading branch information
@cbroschinski
cbroschinski committed Oct 25, 2024
1 parent ea5f5f6 commit 29b9993
Show file tree
Hide file tree
Showing 4 changed files with 214 additions and 0 deletions.
111 changes: 111 additions & 0 deletions Rmd/2024-10-25-unimib.Rmd
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,111 @@
---
layout: post
author: Christoph Broschinski
author_lnk: https://github.com/cbroschinski
title: UNIMIB joins OpenAPC
date: 2024-10-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 = 12,
fig.height = 8
)
options(scipen = 999, digits = 2)
knitr::knit_hooks$set(inline = function(x) {
prettyNum(x, big.mark=",")
})
```

We welcome the [University of Milano-Bicocca](https://en.unimib.it/) as new contributing institution!

An initial data set on on APCs covering the years 2020 - 2023 has been kindly made available to OpenAPC.

Contact Person is [Elena D'Alessandro](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 =",")
}
download_bpc <- function(path = NULL, dir = "tmp", file = "bpc.csv"){
if(is.null(path)) {
path <- c("https://raw.githubusercontent.com/OpenAPC/openapc-de/master/data/bpc.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 == "University of Milano-Bicocca",]
my.apc <- droplevels(my.apc)
```

The initial data sets provided by the University of Milano-Bicocca cover 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 following tables and plots provide a more detailed overview:


```{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)
```

## Overview

### Fees paid per publisher (in EURO)

```{r tree_unimib_2024_10_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_unimib_2024_10_25_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 > 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")
```
103 changes: 103 additions & 0 deletions _posts/2024-10-25-unimib.md
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,103 @@
---
layout: post
author: Christoph Broschinski
author_lnk: https://github.com/cbroschinski
title: UNIMIB joins OpenAPC
date: 2024-10-25 12:00:00
summary:
categories: [general, openAPC]
comments: true
---




We welcome the [University of Milano-Bicocca](https://en.unimib.it/) as new contributing institution!

An initial data set on on APCs covering the years 2020 - 2023 has been kindly made available to OpenAPC.

Contact Person is [Elena D'Alessandro](mailto:[email protected]).

## Cost data



The initial data sets provided by the University of Milano-Bicocca cover publication fees for 648 articles, total expenditure amounts to 1,337,443€ and the average fee is 2,064€. The following tables and plots provide a more detailed overview:




| | Articles| Fees paid in EURO| Mean Fee paid|
|:---------------------------------------------------------------------|--------:|-----------------:|-------------:|
|MDPI AG | 205| 388281| 1894|
|Frontiers Media SA | 102| 252123| 2472|
|Springer Nature | 83| 214030| 2579|
|Elsevier BV | 63| 127808| 2029|
|Oxford University Press (OUP) | 22| 47226| 2147|
|Wiley-Blackwell | 21| 51073| 2432|
|Public Library of Science (PLoS) | 15| 30772| 2051|
|Institute of Electrical & Electronics Engineers (IEEE) | 13| 17381| 1337|
|S. Karger AG | 11| 19413| 1765|
|Informa UK Limited | 10| 24086| 2409|
|Ovid Technologies (Wolters Kluwer Health) | 10| 15990| 1599|
|BMJ | 6| 14644| 2441|
|Copernicus GmbH | 6| 9338| 1556|
|IOS Press | 6| 4929| 821|
|Royal Society of Chemistry (RSC) | 6| 9342| 1557|
|American Astronomical Society | 5| 9121| 1824|
|American Thoracic Society | 5| 4675| 935|
|SAGE Publications | 5| 7615| 1523|
|American Chemical Society (ACS) | 3| 6544| 2181|
|Jaypee Brothers Medical Publishing | 3| 1707| 569|
|World Scientific Pub Co Pte Lt | 3| 6032| 2011|
|Acta Scientific Publications Pvt. Ltd. | 2| 803| 402|
|European Respiratory Society (ERS) | 2| 964| 482|
|IOP Publishing | 2| 3596| 1798|
|Mary Ann Liebert Inc | 2| 4488| 2244|
|Optica Publishing Group | 2| 3492| 1746|
|Scientific Scholar | 2| 616| 308|
|The Endocrine Society | 2| 4497| 2248|
|AIP Publishing | 1| 1550| 1550|
|AME Publishing Company | 1| 1596| 1596|
|American Geophysical Union (AGU) | 1| 3096| 3096|
|American Medical Association (AMA) | 1| 3048| 3048|
|American Meteorological Society | 1| 2797| 2797|
|American Physiological Society | 1| 1010| 1010|
|American Society for Pharmacology & Experimental Therapeutics (ASPET) | 1| 2447| 2447|
|Association for Research in Vision and Ophthalmology (ARVO) | 1| 1864| 1864|
|Baishideng Publishing Group Inc. | 1| 2844| 2844|
|Bentham Science Publishers Ltd. | 1| 3840| 3840|
|Corpus Publishers | 1| 1906| 1906|
|FapUNIFESP (SciELO) | 1| 802| 802|
|Future Medicine Ltd | 1| 3416| 3416|
|Future Science, LTD | 1| 1409| 1409|
|Georg Thieme Verlag KG | 1| 2171| 2171|
|Institution of Engineering and Technology (IET) | 1| 2440| 2440|
|Inter-Research Science Center | 1| 1830| 1830|
|JMIR Publications Inc. | 1| 2391| 2391|
|MIT Press - Journals | 1| 891| 891|
|OMICS Publishing Group | 1| 2219| 2219|
|PAGEPress Publications | 1| 624| 624|
|Portland Press Ltd. | 1| 3160| 3160|
|Proceedings of the National Academy of Sciences | 1| 704| 704|
|Remedy Publications | 1| 531| 531|
|Rockefeller University Press | 1| 2014| 2014|
|Science Publishing Group | 1| 939| 939|
|Society for Imaging Science & Technology | 1| 302| 302|
|The Econometric Society | 1| 516| 516|
|University of California Press | 1| 1100| 1100|
|VM Media SP. zo.o VM Group SK | 1| 958| 958|
|Walter de Gruyter GmbH | 1| 2440| 2440|



## Overview

### Fees paid per publisher (in EURO)

![plot of chunk tree_unimib_2024_10_25_full](/figure/tree_unimib_2024_10_25_full-1.png)


### Average costs per publisher (in EURO)

![plot of chunk box_unimib_2024_10_25_publisher_full](/figure/box_unimib_2024_10_25_publisher_full-1.png)
Binary file added figure/box_unimib_2024_10_25_publisher_full-1.png
View file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added figure/tree_unimib_2024_10_25_full-1.png
View file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.

0 comments on commit 29b9993

Please sign in to comment.