README.Rmd


```{r, echo = FALSE, warning = TRUE}

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 = 999, digits = 0, tibble.width = Inf, tibble.print_max = Inf)

knitr::knit_hooks$set(inline = function(x) {
  prettyNum(x, big.mark = ",")
})
```

```{r}
require(dplyr)
require(stringr)
require(ggplot2)
```

```{r, echo=FALSE, cache = FALSE}
my_apc <- readr::read_csv("data/apc_de.csv")
my_bpc <- readr::read_csv("data/bpc.csv")
```

## About

The aim of this repository is:

- to release data sets on fees paid for Open Access journal articles and monographs by Universities and Research Society Funds under an Open Database License
- to demonstrate how reporting on fee-based Open Access publishing can be made more transparent and reproducible across institutions.

At the moment this project provides the following cost data:

| Publication Type | Count           | Aggregated Sum (€)      | Contributing Institutions              |
|------------------|-----------------|-------------------------|----------------------------------------|
| Articles         |`r nrow(my_apc)` | `r sum(my_apc$euro)`    | `r length(unique(my_apc$institution))` |
| Monographs       |`r nrow(my_bpc)` | `r sum(my_bpc$euro)`    | `r length(unique(my_bpc$institution))` |

[![Build Status](https://api.travis-ci.com/OpenAPC/openapc-de.svg?branch=master)](https://travis-ci.com/OpenAPC/openapc-de)&nbsp;&nbsp;([What's this?](https://github.com/OpenAPC/openapc-de/wiki/Data-Integrity-Testing))

## How to access the data?

There are several options. You may simply download the the raw data sets in CSV format, query our [OLAP server](https://github.com/OpenAPC/openapc-olap/blob/master/HOWTO.md) or use our [Treemap site](https://treemaps.openapc.net/) for visual data exploration.

| Dataset         | CSV File                                                                                                                                                         | OLAP Cube                                                               | Treemap                                                               |
|-----------------|------------------------------------------------------------------------------------------------------------------------------------------------------------------|-------------------------------------------------------------------------|-----------------------------------------------------------------------|
| articles        | [APC file](https://github.com/OpenAPC/openapc-de/blob/master/data/apc_de.csv), [data schema](https://github.com/OpenAPC/openapc-de/wiki/schema#openapc-data-set) | [APC cube](https://olap.openapc.net/cube/openapc/aggregate)             | [APC treemap](https://treemaps.openapc.net/apcdata/openapc/)          |
| monographs      | [BPC file](https://github.com/OpenAPC/openapc-de/blob/master/data/bpc.csv), [data schema](https://github.com/OpenAPC/openapc-de/wiki/schema#bpc-data-set)        | [BPC cube](https://olap.openapc.net/cube/bpc/aggregate)                 | [BPC treemap](https://treemaps.openapc.net/apcdata/bpc/)              |


## How to contribute?

Any academic institution or research funder paying for Article Process Charges (APCs) or Book Processing Charges (BPCs) can contribute to OpenAPC, no formal registration is required.
This [page](https://github.com/OpenAPC/openapc-de/wiki/Data-Submission-Handout) ([German version](https://github.com/OpenAPC/openapc-de/wiki/Handreichung-Dateneingabe)) explains the details.

## Participating German Universities

So far, the following German universities have agreed to share information on paid author processing charges (APC):

- [Bayreuth University](http://www.ub.uni-bayreuth.de/en/digitale_bibliothek/open_access/index.html)
- [Bielefeld University](http://oa.uni-bielefeld.de/publikationsfonds.html)
- [Charité - Universitätsmedizin Berlin](https://bibliothek.charite.de/publizieren/open_access)
- [Christian-Albrechts-Universität zu Kiel](https://www.ub.uni-kiel.de/en/open-access-publishing/open-access)
- [Clausthal University of Technology](http://www.ub.tu-clausthal.de/en/angebote-fuer-wissenschaftlerinnen/elektronisches-publizieren/publikationsfonds/)
- [Freie Universität Berlin](http://www.fu-berlin.de/sites/open_access/finanzierung/publikationsfonds/index.html)
- [Friedrich-Alexander-Universität Erlangen-Nürnberg](https://ub.fau.de/schreiben-publizieren/open-access/dfg-gefoerderter-publikationsfonds/)
- [Goethe-Universität Frankfurt am Main](https://www.ub.uni-frankfurt.de/publizieren/publikationsfonds.html)
- [Hamburg University of Technology](https://www.tub.tu-harburg.de/publizieren/openaccess/)
- [Heidelberg University](http://www.ub.uni-heidelberg.de/Englisch/service/openaccess/publikationsfonds.html)
- [Hochschule Düsseldorf](https://bib.hs-duesseldorf.de/en)
- [Hochschule für Technik und Wirtschaft Dresden](https://www.htw-dresden.de/oa)
- [Humboldt-Universität zu Berlin](https://www.ub.hu-berlin.de/de/forschen-publizieren/open-access/foerdermoeglichkeiten/finanzierung/publikationsfonds?set_language=de)
- [Leibniz Universität Hannover](https://tib.eu/oafonds)
- [Leipzig University](https://www.ub.uni-leipzig.de/open-science/publikationsfonds/)
- [Ludwig-Maximilians-Universität München](http://www.en.ub.uni-muenchen.de/writing/open-access-publishing/funding/index.html)
- [Martin-Luther-Universität Halle-Wittenberg](http://bibliothek.uni-halle.de/dbib/openaccess/publikationsfonds/)
- [Philipps-Universität Marburg](https://www.uni-marburg.de/de/ub/forschen/open-access/publikationsfonds)
- [Medizinische Hochschule Brandenburg Theodor Fontane](https://www.mhb-fontane.de/open-access-publikationsfonds-482.html)
- [Münster University](https://www.uni-muenster.de/Publizieren/service/publikationsfonds/)
- [JGU Mainz](https://www.openaccess.uni-mainz.de/publikationsfonds-der-jgu/)
- [JLU Giessen](https://www.uni-giessen.de/ub/en/digitales-publizieren-en/openaccess-en/oafonds-en?set_language=en)
- [Osnabrück University](https://www.ub.uni-osnabrueck.de/publizieren_archivieren/open_access/publikationsfonds.html)
- [Otto-von-Guericke-Universität Magdeburg](https://www.ub.ovgu.de/en/Publication+_+Open+Access/Open+Access/Publication+Fund+for+Articles.html)
- [Rheinische Friedrich-Wilhelms-Universität Bonn](https://www.open-access.uni-bonn.de/de)
- [Ruhr Universität Bochum](http://www.ruhr-uni-bochum.de/oa/)
- [Saarland University](https://www.sulb.uni-saarland.de/lernen/open-access/open-access-publikationsfonds/)
- [Technische Hochschule Wildau](https://www.th-wildau.de/hochschule/zentrale-einrichtungen/hochschulbibliothek/open-access-und-publikationsdienste/publikationsfonds/)
- [Technische Universität Berlin](http://www.ub.tu-berlin.de/publikationsfonds/)
- [Technische Universität Braunschweig](https://ub.tu-braunschweig.de/publikationsfonds/englisch/index_en.php)
- [Technische Universität Chemnitz](https://www.tu-chemnitz.de/ub/publizieren/openaccess/index.html.en)
- [Technische Universität Darmstadt](https://www.ulb.tu-darmstadt.de/service/elektronisches_publizieren/oa_publikationsfond/index.en.jsp)
- [Technische Universität Dortmund](https://www.ub.tu-dortmund.de/open-access/index.html.en)
- [Technische Universität Dresden](https://www.slub-dresden.de/service/open-science-service/open-access/publikationsfonds/)
- [Technische Universität Ilmenau](https://www.tu-ilmenau.de/ilmedia/open-access/oa-publikationsfonds/)
- [Technische Universität München](https://www.ub.tum.de/en/publishing-fund)
- [University of Applied Sciences Bielefeld](https://www.fh-bielefeld.de/open-access/publikationsfonds)
- [University of Bamberg](http://www.uni-bamberg.de/en/ub/publishing/open-access-publishing/open-access-funds/)
- [University of Bremen](http://www.suub.uni-bremen.de/home-english/refworks-and-publishing/open-access-in-bremen-2/)
- [University of Duisburg-Essen](https://www.uni-due.de/ub/publikationsdienste/oa_foerderung.php)
- [University of Freiburg](https://www.ub.uni-freiburg.de/en/support/electronic-publishing/open-access/open-access-publication-fund/)
- [University of Göttingen](http://www.sub.uni-goettingen.de/en/electronic-publishing/open-access/open-access-publication-funding/)
- [University of Greifswald](https://ub.uni-greifswald.de/en/service/for-academics/open-access/finanzierung-von-publikationen/publication-fund/)
- [University of Kassel](http://www.uni-kassel.de/go/publikationsfonds)
- [University of Konstanz](https://www.kim.uni-konstanz.de/en/openscience/publishing-and-open-access/open-access-publication-fund/)
- [University of Mannheim](https://www.bib.uni-mannheim.de/en/open-access-publishing-fund/)
- [University of Oldenburg](https://uol.de/en/bis/teachingresearchingpublishing/open-access/open-access-publication-fund/)
- [University of Passau](https://www.ub.uni-passau.de/publizieren/open-access/publikationsfonds-der-ub-passau/)
- [University of Potsdam](https://publishup.uni-potsdam.de/home/index/help/content/publication_fund)
- [University of Regensburg](http://oa.uni-regensburg.de/)
- [University of Rostock](https://www.ub.uni-rostock.de/en/support-for-researchers/open-access/open-access-publizieren/)
- [University of Siegen](https://www.ub.uni-siegen.de/index.php?id=1510&L=1)
- [University of Stuttgart](https://oa.uni-stuttgart.de/publizieren/fonds/)
- [University of Trier](https://www.uni-trier.de/index.php?id=60802)
- [University of Tübingen](https://uni-tuebingen.de/en/facilities/university-library/publishing-research/open-access/open-access-publikationsfonds/)
- [University of Veterinary Medicine Hannover, Foundation (TiHo)](http://www.tiho-hannover.de/de/kliniken-institute/bibliothek/open-access/publikationsfonds-an-der-tiho/)
- [University of Würzburg](https://www.bibliothek.uni-wuerzburg.de/en/research-publishing/open-access/publication-fund/)
- [Ulm University](https://www.uni-ulm.de/en/einrichtungen/kiz/service-katalog/wid/publikationsmanagement/oap/open-access/)

## Participating German Research Organisations

### Fraunhofer Society

- [Fraunhofer Publishing Fund](https://www.openaccess.fraunhofer.de/en/open-access-strategy.html)

### Helmholtz Association

- [DLR - Deutsches Zentrum für Luft- und Raumfahrt](https://www.dlr.de/zb/en/desktopdefault.aspx/tabid-8234/)
- [Forschungszentrum Jülich](https://www.fz-juelich.de/zb/DE/Leistungen/Open_Access/publikationsfonds/publikationsfonds_node.html)
- [GEOMAR - Helmholtz Centre for Ocean Research Kiel](https://www.geomar.de/en/centre/central-facilities/library/)
- [Helmholtz-Zentrum Dresden-Rossendorf](http://www.hzdr.de/db/Cms?pNid=73)
- [Helmholtz-Zentrum für Umweltforschung - UFZ](https://www.ufz.de/index.php?en=36297)
- [GFZ German Research Centre for Geosciences](https://www.gfz-potsdam.de/en/home/) (data provided by the [Library Wissenschaftspark Albert Einstein](http://bib.telegrafenberg.de/en/publishing/open-access/))
- [KIT Karlsruhe](http://www.bibliothek.kit.edu/cms/kit-publikationsfonds.php)
- [Max Delbrück Center for Molecular Medicine (MDC)](https://www.mdc-berlin.de/about_the_mdc/structure/administration/library/oa?mdcbl%5B0%5D=/library&mdctl=0&mdcou=0&mdcot=0&mdcbv=nqe3t2xG8PGtPtxTs7kNhLVIaYkEwltgLl3DWBohxeI)

### Leibniz Association

- [DIPF | Leibniz Institute for Research and Information in Education](https://www.dipf.de/en/knowledge-resources/dipfdocs-open-access?set_language=en)
- [GIGA German Institute of Global and Area Studies](https://www.giga-hamburg.de/en/giga-open-access-guidelines)
- [IGB - Leibniz-Institute of Freshwater Ecology and Inland Fisheries](https://www.igb-berlin.de/en/library)
- [INM - Leibniz Institute for New Materials](https://www.ntnm-bib.de/research-publish/oa-finanzieren/?lang=en)
- [IPN - Leibniz Institute for Science and Mathematics Education](http://www.ipn.uni-kiel.de/en/the-ipn/library/open-access)
- [Leibniz Association's Open Access Publishing Fund](http://www.leibniz-gemeinschaft.de/en/infrastructures/open-access/open-access-publishing-fund/)
- [Paul-Drude-Institut für Festkörperelektronik](https://www.pdi-berlin.de/home/) 
- [Potsdam Institute for Climate Impact Research](https://www.pik-potsdam.de) (data provided by the [Library Wissenschaftspark Albert Einstein](http://bib.telegrafenberg.de/en/publishing/open-access/))
- [Technische Informationsbibliothek (TIB) - German National Library of Science and Technology](https://www.tib.eu/en/service/tib-open-access-policy/)
- [WIAS - Weierstrass Institute for Applied Analysis and Stochastics](https://www.wias-berlin.de/services/library/)

### Max Planck Society

- [Max Planck Digital Library](http://www.mpdl.mpg.de/21-specials/50-open-access-publishing.html)

The data content covers APCs as paid for by the central budget for the Max Planck Society (MPS). APCs funded locally by Max Planck Institutes are not part of the data. The MPS has a limited input tax reduction. The refund of input VAT for APC is 20%. Until the end of 2007 the MPS was VAT exempt.

## Other German Institutions

- [Institut für Arbeitsmarkt- und Berufsforschung (IAB)](https://www.iab.de/de/informationsservice/open-access-im-iab.aspx)
- [Knowledge Unlatched](https://www.knowledgeunlatched.org/)

## Participating Austrian Institutions

- [FWF - Austrian Science Fund](https://www.fwf.ac.at/en/research-funding/open-access-policy/)
- [Institute of Science and Technology Austria](https://ist.ac.at/en/research/library/publish-communicate/)
- [Johannes Kepler University Linz](https://www.jku.at/en/library/service/bibliometrics-and-publication-support/open-access-publishing/publication-fund/)
- [University of Salzburg](https://www.uni-salzburg.at/index.php?id=67089&L=1)
- [Technische Universität Wien](http://www.ub.tuwien.ac.at/eng/openaccess)

## Participating Swiss Institutions

- [SNSF - Swiss National Science Foundation](http://www.snf.ch/en/theSNSF/research-policies/open-access/Pages/default.aspx#OA%202020%20Policy)
- [Bern University of Applied Sciences](http://www.bfh.ch/)
- [University of Basel](https://www.unibas.ch/en/University/Administration-Services/Vice-President-for-Research/Grants-Office/Grants-Office-News/Grants-Office-Newsletter-2020-12/Open-Access.html)
- [University of Bern](https://www.unibe.ch/university/services/university_library/services/open_science/open_access/index_eng.html)
- [Eawag - Swiss Federal Institute of Aquatic Science and Technology](https://www.eawag.ch/en/) (via [Lib4RI](https://www.lib4ri.ch/services/open-access.html))
- [Empa - Swiss Federal Laboratories for Materials Science and Technology](https://www.empa.ch/) (via [Lib4RI](https://www.lib4ri.ch/services/open-access.html))
- [ETH Zurich](https://library.ethz.ch/en/publishing-and-archiving/publishing-and-registering/open-access-at-eth-zurich/eth-zurich-s-open-access-policy.html)
- [University of Zurich](https://www.uzh.ch/cmsssl/en/outreach/libraries/openaccess.html)
- [Lucerne University of Applied Sciences and Arts](https://www.hslu.ch/de-ch/hochschule-luzern/campus/bibliotheken/open-access-zugang-zu-wissenschaftlichen-arbeiten/)
- [Pädagogische Hochschule Zürich](https://phzh.ch/de/Forschung/grundsatze/open-access/)
- [PSI - Paul Scherrer Institute](https://www.psi.ch/en)
- [University of Teacher Education Lucerne](https://www.phlu.ch/)
- [University of Lucerne](https://www.unilu.ch/en/university/services/gs/research-information-system-fis/)
- [WSL - Swiss Federal Institute for Forest, Snow and Landscape Research](https://www.wsl.ch/en/index.html)
- [ZHAW Zurich University of Applied Sciences](https://www.zhaw.ch/en/library/writing-publishing/publishing-and-open-access/oa-at-the-zhaw/#c112481)
- [Zurich University of the Arts ZHdK](https://www.zhdk.ch/miz/miz-oa)

## Participating Italian Institutions

- [Free University of Bozen-Bolzano](https://www.unibz.it/en/services/library/publishing-at-unibz/unibz-open-access-publishing-fund/)
- [Università degli Studi di Milano](http://www.unimi.it/ENG/)
- [Veneto Institute of Oncology IOV IRCCS](https://www.ioveneto.it/ricerca/biblioteca/)

## Institutions from Norway:

- Akershus University Hospital
- BI Norwegian Business School
- Bergen University College
- Fridtjof Nansen Institute
- GenØk - Centre for Biosafety
- Harstad University College
- Innlandet Hospital Trust
- Institute of Marine Research
- Molde University College
- NILU - Norwegian Institute for Air Research
- Nansen Environmental and Remote Sensing Center
- Nord University
- Norwegian Center for Studies on Violence and Traumatic Stress
- Norwegian Institute for Agricultural and Environmental Research
- Norwegian Institute for Nature Research
- Norwegian Institute of Public Health
- Norwegian Institute of Water Research
- Norwegian School of Sport Sciences
- Norwegian University of Life Sciences
- Norwegian University of Science and Technology
- Oslo University Hospital
- Oslo and Akershus university college
- SINTEF (Foundation for Scientific and Industrial Research)
- Sørlandet Hospital Trust
- Uni Research
- University College of Southeast Norway
- University of Agder
- University of Bergen
- University of Oslo
- University of Stavanger
- University of Tromsø - The Arctic University of Norway
- Vestfold Hospital Trust
- Vestre Viken Hospital Trust

## Participating Spanish Institutions:

- [Universitat de Barcelona](http://crai.ub.edu/en/crai-services/open-access-ub)

## Institutions from Sweden (via [Open APC Sweden](https://github.com/Kungbib/openapc-se)):

- Chalmers University of Technology
- Dalarna University
- Swedish School of Sport and Health Sciences
- University of Gothenburg
- University of Borås
- University of Skövde
- University West
- Karlstad University
- Karolinska Institutet
- KTH Royal Institute of Technology
- Linköping University
- Linnaeus University
- Luleå University of Technology
- Lund University
- Malmö University
- Mälardalen University
- Örebro University
- Swedish University of Agricultural Sciences
- Södertörns University
- Stockholm School of Economics
- Stockholm University
- Umeå University
- Uppsala University


## Institutions from Finland (Some of them reported by the [CSC](https://www.csc.fi/en/-/virta-publication-information-service)):

- Aalto University
- Haaga-Helia University of Applied Sciences
- Häme University of Applied Sciences
- [Hanken School of Economics](https://www.hanken.fi/en)
- JAMK University of Applied Sciences
- [Laurea University of Applied Sciences](https://www.laurea.fi/en/)
- Natural Resources Institute Finland
- Satakunta University of Applied Sciences (SAMK)
- [Tampere University](https://libguides.tuni.fi/openaccess)
- University of Applied Sciences Savonia
- [University of Eastern Finland](https://www.uef.fi/en/etusivu)
- [University of Jyväskylä](https://openscience.jyu.fi/en/open-access-publishing)
- [University of Turku](https://utuguides.fi/openaccess)
- VTT Technical Research Centre of Finland Ltd

## Institutions from France

The [Couperin consortium](https://couperin.org) aggregates data on APC expenditures made by institutions in France:

- Agence nationale de sécurité du médicament et des produits de santé (ANSM)
- AgroParisTech
- Aix-Marseille Université
- Université d'Angers
- Université de Bordeaux
- Université de Bourgogne
- Université de Bretagne Occidentale
- Université de Bretagne-Sud
- Centre de coopération internationale en recherche agronomique pour le développement (CIRAD)
- Centre national de la recherche scientifique (CNRS)
- CHU de Rennes
- Commissariat à l'énergie atomique et aux énergies alternatives (CEA)
- Conservatoire national des arts et métiers
- Ecole centrale de Lyon
- École nationale du génie de l'eau et de l'environnement de Strasbourg (ENGEES)
- École nationale supérieure d'ingénieurs de Caen (ENSICAEN)
- Ecole normale supérieure de Paris
- École supérieure de physique et de chimie industrielles de la Ville de Paris (ESPCI)
- ENS de Lyon
- ENSTA Bretagne
- European Synchrotron Radiation Facility (ESRF)
- Hospices Civils de Lyon
- Université Grenoble Alpes
- IMT Atlantique
- INSA de Lyon
- INSA Strasbourg
- Institut de recherche pour le développement (IRD)
- Institut français des sciences et technologies des transports, de l'aménagement et des réseaux (IFSTTAR)
- Institut Français de Recherche pour l'Exploitation de la Mer (IFREMER)
- Institut Laue-Langevin
- Institut national de recherche en informatique et en automatique (INRIA)
- Institut national de la recherche agronomique (INRA)
- Institut national de recherche pour l'agriculture, l'alimentation et l'environnement (INRAE)
- Institut national de recherche en sciences et technologies pour l'environnement et l'agriculture (IRSTEA)
- Institut national de la santé et de la recherche médicale (INSERM)
- Institut national polytechnique de Toulouse (INPT)
- Institut supérieur d'agriculture Rhône-Alpes (ISARA)
- Institut Pasteur
- Laboratoire national d'essais (LNE)
- Le Mans Université
- MINES ParisTech
- Museum National d'Histoire Naturelle
- Office National d'Etudes et de Recherches Aérospatiales (ONERA)
- Paris 8 Vincennes - Saint-Denis
- Sciences Po Paris
- Sorbonne Université
- Université d'Avignon et des Pays de Vaucluse
- Université de Caen Normandie
- Université Claude Bernard Lyon 1
- Université Clermont Auvergne
- Université Technologique de Compiègne
- Université Evry Val-d'Essonne
- Université Gustave Eiffel
- Université de Franche-Comté
- Université de Haute-Alsace
- Université du Havre
- Université de La Rochelle
- Université Lille 1
- Université Lille 2
- Université de Lille
- Université de Montpellier
- Université de Lorraine
- Université de Nantes
- Université Nice-Sophia-Antipolis
- Université de Nouvelle Calédonie
- Université de Pau et des Pays de l'Adour
- Université de Perpignan - Via Domitia
- Université de Poitiers
- Université de Reims Champagne Ardenne
- Université de Rennes 1
- Université de La Réunion
- Université de Strasbourg
- Université de Toulon
- Université de Tours
- Université de Versailles-Saint-Quentin-en-Yvelines
- Université des Antilles
- Université du Littoral Côte d'Opale
- Université Toulouse III
- Université de technologie de Troyes
- Université Paris 1 Panthéon-Sorbonne
- Université Paris Descartes (Paris V)
- Université Paris-Est Marne-la-Vallée
- Université Paris Nanterre
- Université Pierre et Marie Curie (Paris VI)
- Université Paris Diderot (Paris VII)
- Université Polytechnique Hauts-de-France
- Université Savoie Mont Blanc

## Participating Institutions from the United Kingdom:

- [Wellcome Trust](https://wellcome.ac.uk/funding/managing-grant/open-access-policy)
- [JISC](https://www.jisc-collections.ac.uk/Jisc-Monitor/APC-data-collection/)

Jisc Collections released data on APC payments made by UK higher education institutions (HEIs):

- Aberystwyth University
- Aston University
- Bangor University
- Brunel University
- Cardiff University
- Cranfield University
- Edinburgh Napier University
- Glasgow Caledonian University
- Goldsmiths
- Heriot-Watt University
- Imperial College London
- Institute of Cancer Research (ICR)
- Keele University
- King's College London
- Leeds Beckett University
- Liverpool John Moores University
- Liverpool School of Tropical Medicine
- London School of Economics (LSE)
- London School of Hygiene & Tropical Medicine (LSHTM)
- Lancaster University
- Manchester Metropolitan University
- Northumbria University
- Plymouth University
- Queen Mary, University of London
- Queen's University Belfast
- Royal Holloway
- St George's, University of London
- Swansea University
- The Open University
- University College London (UCL)
- University of Aberdeen
- University of Bath
- University of Birmingham
- University of Bristol
- University of Cambridge
- University of Dundee
- University of Durham
- University of East Anglia
- University of Edinburgh
- University of Exeter
- University of Glasgow
- University of Huddersfield
- University of Hull
- University of Kent
- University of Leeds
- University of Leicester
- University of Liverpool
- University of Loughborough
- University of Manchester
- University of Newcastle
- University of Nottingham
- University of Oxford
- University of Portsmouth
- University of Reading
- University of Salford
- University of Sheffield
- University of Southampton
- University of St Andrews
- University of Strathclyde
- University of Surrey
- University of Sussex
- University of the West of England
- University of Ulster
- University of Warwick
- University of York

## Participating Institutions from the Czech Republic:

- [Charles University](https://cuni.cz/UKEN-1.html)
- [University of Chemistry and Technology, Prague](https://www.chemtk.cz/en/)
- [Technical University of Ostrava](https://www.vsb.cz/en)

## Participating Institutions from Hungary

- [University of Debrecen](https://unideb.hu/en)

## Participating Institutions from Serbia

- [University of Belgrade](http://bg.ac.rs/en/)

## Participating Institutions from Belgium

- [University of Liège](https://www.uliege.be/cms/c_8699436/en/uliege)

## Participating Institutions from the United States:

- [Bill & Melinda Gates Foundation](https://www.gatesfoundation.org/how-we-work/general-information/open-access-policy)
- [Harvard University](https://osc.hul.harvard.edu/programs/hope/)
- [Indiana University - Purdue University Indianapolis (IUPUI)](http://www.ulib.iupui.edu/digitalscholarship/openaccess/oafund)
- [University of Rhode Island](https://uri.libguides.com/oafund)
- [Thomas Jefferson University](https://library.jefferson.edu/pub/open_access.cfm)
- [Virginia Polytechnic Institute and State University](http://guides.lib.vt.edu/oa)

## Participating Canadian Institutions:

- [University of Calgary](http://library.ucalgary.ca/open-access-authors-fund)

## Participating Institutions from Qatar:

- [Qatar National Library](https://www.qnl.qa/en) 

## Supranational participants

- [OpenAIRE](https://www.openaire.eu/fp7-oapilot) (FP7 Post-Grant Open Access Pilot)

## Data sets

*Note: The following numbers and plots are always based on the [latest revision](https://github.com/OpenAPC/openapc-de/releases/latest) of the OpenAPC data set. The underlying code can be found in the associated [R Markdown template](README.Rmd).*

### Articles (APCs)

```{r, echo=FALSE}

fully_oa <- my_apc %>% filter(is_hybrid == FALSE)
hybrid <- my_apc %>% filter(is_hybrid == TRUE)

```

The article data set contains information on `r nrow(my_apc)` open access journal articles being published in fully and hybrid open access journal. Publication fees for these articles were supported financially by `r length(unique(my_apc$institution))` research performing institutions and research funders. 

In total, article publication fee spending covered by the OpenAPC initiative amounted to € `r sum(my_apc$euro)`. The average payment was € `r mean(my_apc$euro)` and the median was € `r median(my_apc$euro)`.

`r nrow(fully_oa)` articles in the data set were published in fully open access journals. Total spending on publication fees for these articles amounts to € `r sum(fully_oa$euro)`, including value-added tax; the average payment was € `r mean(fully_oa$euro)` (median =  € `r median(fully_oa$euro)`, SD = € `r sd(fully_oa$euro)`).

Hybrid open access journals rely on both publication fees and subscriptions as revenue source. `r nrow(hybrid)` articles in the data set were published in hybrid journals. Total expenditure amounts to `r sum(hybrid$euro)` €; the average fee was € `r mean(hybrid$euro)` (median =  € `r median(hybrid$euro)`, SD = € `r sd(hybrid$euro)`).

#### Spending distribution over fully and hybrid open access journals

```{r, echo=FALSE}
p <- my_apc %>%
  mutate(is_hybrid = ifelse(.$is_hybrid, "Hybrid OA journals", "Fully OA journals")) %>% 
  mutate(short_period = str_sub(period, 3 ,4)) %>%
  ggplot(aes(factor(short_period), euro)) +
  geom_boxplot(outlier.size = 0.5) +
  xlab("Year") +
  ylab("Publication fee paid in Euro") +
  scale_y_continuous(limits = c(0,8000)) + 
  facet_grid(~is_hybrid) +
  theme_bw()
  ggsave(p, path = "figure/", filename = "boxplot_oa.png", width=9, height=4.5, units="in", device = "png")
```

![](figure/boxplot_oa.png)

#### Spending distribution details

```{r, echo=FALSE, results='asis', message = FALSE}

oa_grouped <- my_apc %>%
    filter(is_hybrid == FALSE) %>%
    select(period, euro) %>%
    group_by(period) %>%
    summarise(
        n = n(),
        mean = mean(euro),
        median = median(euro),
        min = min(euro),
        max = max(euro)
    ) %>%
    mutate(n = format(n, big.mark=","), 
           mean = format(mean, big.mark=","),
           median = format(median, big.mark=","),
           min = format(min, big.mark=","),
           max = format(max, big.mark=","),
           minmax = str_c(min, " - ", max)
    ) %>%
    select(period, oa_n = n, oa_mean = mean, oa_median = median, oa_min_max = 'minmax')

hyb_grouped <- my_apc %>%
    filter(is_hybrid == TRUE) %>%
    select(period, euro) %>%
    group_by(period) %>%
    summarise(
        n = n(),
        mean = mean(euro),
        median = median(euro),
        min = min(euro),
        max = max(euro)
    ) %>%
    mutate(n = format(n, big.mark=","), 
           mean = format(mean, big.mark=","),
           median = format(median, big.mark=","),
           min = format(min, big.mark=","),
           max = format(max, big.mark=","),
           minmax = str_c(min, " - ", max)
    ) %>%
    select(period, hyb_n = n, hyb_mean = mean, hyb_median = median, hyb_min_max = 'minmax')

full_join(oa_grouped, hyb_grouped) %>%
knitr::kable(col.names = c("period", "OA articles", "OA mean", "OA median", "OA min - max", "Hybrid Articles", "Hybrid mean", "Hybrid median", "Hybrid min - max"), align = c("l","r", "r", "r", "r", "r", "r", "r", "r"))

```

### Books (BPCs)

The book data set contains information on `r nrow(my_bpc)` open access books. Publication fees were supported financially by `r length(unique(my_bpc$institution))` research performing institutions and funders. 

In total, book processing charges covered by the OpenAPC initiative amounted to € `r sum(my_bpc$euro)`. The average payment was € `r mean(my_bpc$euro)` and the median was € `r median(my_bpc$euro)`.

Books can be made Open Access right from the beginning ("frontlist") or only retroactively after having been published traditionally in the first place ("backlist"), which can have a big influence on the paid BPCs.

#### Spending distribution over frontlist and backlist OA books

```{r, echo=FALSE}
p <- my_bpc %>%
  mutate(backlist_oa = ifelse(.$backlist_oa, "Backlist OA", "Frontlist OA")) %>% 
  mutate(short_period = str_sub(period, 3 ,4)) %>%
  ggplot(aes(factor(short_period), euro)) +
  geom_boxplot(outlier.size = 0.5) +
  xlab("Year") +
  ylab("Publication fee paid in Euro") +
  scale_y_continuous(limits = c(0,12000)) + 
  facet_grid(~backlist_oa) +
  theme_bw()
  ggsave(p, path = "figure/", filename = "boxplot_bpcs.png", width=9, height=4.5, units="in", device = "png")
```

![](figure/boxplot_bpcs.png)

#### Spending distribution details

```{r, echo=FALSE, results='asis', message = FALSE}

frontlist_grouped <- my_bpc %>%
    filter(backlist_oa == FALSE) %>%
    select(period, euro) %>%
    group_by(period) %>%
    summarise(
        n = n(),
        mean = mean(euro),
        median = median(euro),
        min = min(euro),
        max = max(euro)
    ) %>%
    mutate(n = format(n, big.mark=","), 
           mean = format(mean, big.mark=","),
           median = format(median, big.mark=","),
           min = format(min, big.mark=","),
           max = format(max, big.mark=","),
           minmax = str_c(min, " - ", max)
    ) %>%
    select(period,frontlist_n = n,frontlist_mean = mean,frontlist_median = median,frontlist_min_max = minmax)

backlist_grouped <- my_bpc %>%
    filter(backlist_oa == TRUE) %>%
    select(period, euro) %>%
    group_by(period) %>%
   summarise(
        n = n(),
        mean = mean(euro),
        median = median(euro),
        min = min(euro),
        max = max(euro)
    ) %>%
    mutate(n = format(n, big.mark=","), 
           mean = format(mean, big.mark=","),
           median = format(median, big.mark=","),
           min = format(min, big.mark=","),
           max = format(max, big.mark=","),
           minmax = str_c(min, " - ", max)
    ) %>%
    select(period, backlist_n = n, backlist_mean = mean, backlist_median = median, backlist_min_max = minmax)

full_join(frontlist_grouped, backlist_grouped) %>%
knitr::kable(col.names = c("period", "Frontlist books", "mean BPC", "median BPC", "BPC min - max", "Backlist books", "mean BPC", "median BPC", "BPC min - max"), align = c("l","r", "r", "r", "r", "r", "r", "r", "r"))

```


## Use of external sources

Metadata representing publication titles or publisher names is obtained from Crossref in order to avoid extensive validation of records. Cases where we don't re-use information from Crossref to disambiguate the spending metadata are documented [here](python/test/test_apc_csv.py). Moreover, indexing coverage in Europe PMC and the Web of science is automatically checked.

### Articles 

|Source     |Variable  |Description                     |
|:--------------|:---------|:-----------------------------------------------|
|CrossRef   |`publisher` |Title of Publisher             |
|CrossRef   |`journal_full_title` |Full title of the journal  |
|CrossRef   |`issn` |International Standard Serial Numbers (collapsed) |
|CrossRef   |`issn_print` |ISSN print |
|CrossRef   |`issn_electronic`  |ISSN electronic        |
|CrossRef   |`license_ref`  |License of the article     |
|CrossRef   |`indexed_in_crossref`  |Is the article metadata registered with CrossRef? (logical)    |
|EuropePMC    |`pmid`  |PubMed ID                 |
|EuropePMC    |`pmcid` |PubMed Central ID         |
|Web of Science |`ut` |Web of Science record ID             |
|DOAJ           |`doaj` |Is the journal indexed in the DOAJ? (logical)    |

### Books

|Source     |Variable  |Description                     |
|:--------------|:---------|:-----------------------------------------------|
|CrossRef   |`publisher` |Title of Publisher             |
|CrossRef   |`book_title` |Full Title of a Book  |
|CrossRef   |`isbn` |International Standard Book Number |
|CrossRef   |`isbn_print` |ISBN print |
|CrossRef   |`isbn_electronic`  |ISBN electronic        |
|CrossRef   |`license_ref`  |License of the article     |
|CrossRef   |`indexed_in_crossref`  |Is the article metadata registered with CrossRef? (logical)    |
|DOAB           |`doab` |Is the book indexed in the DOAB? (logical)    |


```{r, echo=FALSE, cache = FALSE}

my.apc <- readr::read_csv("data/apc_de.csv")

my.apc_doi <- my.apc[!is.na(my.apc$doi), ]
my.apc_pmid <- my.apc[!is.na(my.apc$pmid), ]
my.apc_pmcid <- my.apc[!is.na(my.apc$pmcid), ]
my.apc_ut <- my.apc[!is.na(my.apc$ut), ]
```

Indexing coverage

|Identifier                 | Coverage                                                          |
|:--------------------------|:------------------------------------------------------------------|
|DOI                        |  `r format(nrow(my.apc_doi)*100/nrow(my.apc), digits = 4)`%       |
|PubMed ID                  |  `r format(nrow(my.apc_pmid)*100/nrow(my.apc), digits = 4)`%      |
|PubMed Central ID          |  `r format(nrow(my.apc_pmcid)*100/nrow(my.apc), digits = 4)`%     |
|Web of Science record ID   | `r format(nrow(my.apc_ut)*100/nrow(my.apc), digits = 4)`%      |





## License

The data sets are made available under the Open Database License: http://opendatacommons.org/licenses/odbl/1.0/. Any rights in individual contents of the database are licensed under the Database Contents License: http://opendatacommons.org/licenses/dbcl/1.0/

This work is licensed under the Creative Commons Attribution 4.0 Unported License.

## How to cite?

When citing this data set, please indicate the [release](https://github.com/OpenAPC/openapc-de/releases/) you are referring to. The releases also contain information on contributors relating to the respective release.

Please do not cite the master branch of the Github repository (https://github.com/OpenAPC/openapc-de/tree/master/), but use the release numbers/tags.

Bielefeld University Library archives a copy (including commit history). To cite:

{Contributors:} *Datasets on fee-based Open Access publishing across German Institutions*. Bielefeld University. [10.4119/UNIBI/UB.2014.18](http://dx.doi.org/10.4119/UNIBI/UB.2014.18)

## Acknowledgement

This project was set up in collaboration with the [DINI working group Electronic Publishing](http://dini.de/ag/e-pub1/). It follows [Wellcome Trust example to share data on paid APCs](http://blog.wellcome.ac.uk/2014/03/28/the-cost-of-open-access-publishing-a-progress-report/) and recognises efforts from [JISC](https://www.jisc-collections.ac.uk/News/Releasing-open-data-about-Total-Cost-of-Ownership/) and the [ESAC initative](http://esac-initiative.org/) to standardise APC reporting.

## Contributors

Jens Harald Aasheim, Sarah Abusaada, Benjamin Ahlborn, Chelsea Ambler, Magdalena Andrae, Jochen Apel, Myriam Bastin, Hans-Georg Becker, Roland Bertelmann, Daniel Beucke, Manuela Bielow, Peter Blume, Ute Blumtritt, Sabine Boccalini, Stefanie Bollin, Katrin Bosselmann, Valentina Bozzato, Kim Braun, Christoph Broschinski, Paolo Buoso, Cliff Buschhart, Dorothea Busjahn, Pablo de Castro, Ann-Kathrin Christann, Roberto Cozatl, Amanda Cullin, Patrick Danowski, Gernot Deinzer, Julia Dickel, Andrea Dorner, Stefan Drößler, Karin Eckert, Carsten Elsner, Clemens Engelhardt, Olli Eskola, Katrin Falkenstein-Feldhoff, Ashley Farley, Inken Feldsien-Sudhaus, Silke Frank, Fabian Franke, Claudia Frick, Marléne Friedrich, Paola Galimberti, Agnes Geißelmann, Kai Karin Geschuhn, Marianna Gnoato, Steffi Grimm, Birgit Hablizel, Christina Hemme, Ulrich Herb, Elfi Hesse, Larissa Gordon, Ute Grimmel-Holzwarth, Evgenia Grishina, Christian Gutknecht, Uli Hahn, Kristina Hanig, Margit L. Hartung, Dominik Hell, Eike Hentschel, Ulrich Herb, Stephanie Herzog, Kathrin Höhner, Christie Hurrell, Arto Ikonen, Doris Jaeger, Najko Jahn, Alexandra Jobmann, Daniela Jost, Juho Jussila, Nadja Kalinna, Mirjam Kant, Andreas Kennecke, Robert Kiley, Ilka Kleinod, Lydia Koglin, Nives Korrodi, Biljana Kosanovic, Stephanie Kroiß, Gerrit Kuehle, Stefanie Kutz, Anna Laakkonen, Ignasi Labastida i Juan, Gerald Langhanke, Inga Larres, Stuart Lawson, Sari Leppänen, Camilla Lindelöw, Jutta Lotz, Kathrin Lucht-Roussel, Susanne Luger, Jan Lüth, Frank Lützenkirchen, Steffen Malo, Anna Marini, Manuel Moch, Andrea Moritz, Max Mosterd, Marcel Nieme, Anja Oberländer, Jere Odell, Linda Ohrtmann, Vitali Peil, Gabriele Pendorf, Mikko Pennanen, Dirk Pieper, Tobias Pohlmann, Thomas Porquet, Markus Putnings, Andrée Rathemacher, Rainer Rees-Mertins, Edith Reschke, Katharina Rieck, Friedrich Riedel, Simone Rosenkranz, Florian Ruckelshausen, Ilka Rudolf, Pavla Rygelová, Annette Scheiner, Michael Schlachter, Birgit Schlegel, Andreas Schmid, Barbara Schmidt, Katharina Schulz, Stefanie Seeh, Barbara Senkbeil-Stoffels, Adriana Sikora, Tereza Simandlová, Stefanie Söhnitz, Lisa Spindler, Susanne Stemmler, Matti Stöhr, Eva Stopková, Marius Stricker, Kálmán Szőke, Linda Thomas, Anne Timm, Laura Tobler, Johanna Tönsing, Marco Tullney,  Milan Vasiljevic, Astrid Vieler, Lena Vinnemann, Viola Voß, Roland Wagner, Kerstin Werth, Martin Wimmer, Marco Winkler, Sabine Witt, Michael Wohlgemuth, Verena Wohlleben, Qingbo Xu, Philip Young, Esther Zaugg, Philipp Zumstein

## Contact

For bugs, feature requests and other issues, please submit an issue via [Github](https://github.com/OpenAPC/openapc-de/issues/new).

For general comments, email openapc at uni-bielefeld.de

## Disclaimer

People, who are looking for "Open Advanced Process Control Software" for automation, visualization and process control tasks from home control up to industrial automation, please follow <http://www.openapc.com> (2015-09-30)