apc_mean.md

All

	2007	2008	2009	2010	2011	2012	2013	2014	2015
Fees paid in EURO	51494	84376	109461	132661	148970	524543	1298171	1224172	11335
Articles	40	76	109	122	125	432	1046	968	8
Mean Fee paid	1287	1110	1004	1087	1192	1214	1241	1265	1417

Institution

Mean APC

Group.1	2007	2008	2009	2010	2011	2012	2013	2014	2015
Bamberg U	NA	NA	NA	NA	NA	NA	912	1135	NA
Bayreuth U	NA	NA	NA	NA	NA	1615	1004	1206	NA
Bielefeld U	NA	NA	NA	NA	NA	1098	1233	1160	NA
Duisburg-Essen U	NA	NA	NA	NA	NA	NA	1157	1142	NA
FU Berlin	NA	NA	NA	NA	NA	NA	NA	1246	NA
FZJ - ZB	NA	NA	NA	NA	NA	NA	NA	1185	1554
GFZ-Potsdam	NA	NA	NA	NA	NA	NA	975	1359	NA
Goettingen U	NA	NA	NA	NA	NA	NA	1263	NA	NA
Hamburg TUHH	NA	NA	NA	NA	NA	NA	NA	1191	NA
Hannover U	NA	NA	NA	NA	NA	NA	1157	1300	1497
Heidelberg U	NA	NA	NA	NA	NA	NA	NA	1352	NA
INM - Leibniz-Institut für Neue Materialien	NA	NA	NA	NA	NA	NA	862	1679	NA
KIT	NA	NA	NA	NA	NA	1156	1200	1191	NA
Konstanz U	NA	NA	NA	NA	NA	1234	1292	1209	NA
Leipzig U	NA	NA	NA	NA	NA	NA	NA	1336	800
MPG	1287	1126	1069	1196	1189	1294	1294	1316	NA
Muenchen LMU	NA	929	900	946	1196	1331	1428	1478	NA
Regensburg U	NA	NA	NA	NA	NA	1110	1129	1274	NA
TU Clausthal	NA	NA	NA	NA	NA	NA	943	NA	NA

Paid articles

Group.1	2007	2008	2009	2010	2011	2012	2013	2014	2015
Bamberg U	NA	NA	NA	NA	NA	NA	10	6	NA
Bayreuth U	NA	NA	NA	NA	NA	1	23	33	NA
Bielefeld U	NA	NA	NA	NA	NA	38	55	67	NA
Duisburg-Essen U	NA	NA	NA	NA	NA	NA	55	59	NA
FU Berlin	NA	NA	NA	NA	NA	NA	NA	45	NA
FZJ - ZB	NA	NA	NA	NA	NA	NA	NA	75	1
GFZ-Potsdam	NA	NA	NA	NA	NA	NA	31	29	NA
Goettingen U	NA	NA	NA	NA	NA	NA	126	NA	NA
Hamburg TUHH	NA	NA	NA	NA	NA	NA	NA	10	NA
Hannover U	NA	NA	NA	NA	NA	NA	16	28	6
Heidelberg U	NA	NA	NA	NA	NA	NA	NA	83	NA
INM - Leibniz-Institut für Neue Materialien	NA	NA	NA	NA	NA	NA	3	1	NA
KIT	NA	NA	NA	NA	NA	95	99	102	NA
Konstanz U	NA	NA	NA	NA	NA	35	50	46	NA
Leipzig U	NA	NA	NA	NA	NA	NA	NA	59	1
MPG	40	70	67	69	74	137	425	164	NA
Muenchen LMU	NA	6	42	53	51	50	62	44	NA
Regensburg U	NA	NA	NA	NA	NA	76	87	117	NA
TU Clausthal	NA	NA	NA	NA	NA	NA	4	NA	NA

Paid fees in EURO

Group.1	2007	2008	2009	2010	2011	2012	2013	2014	2015
Bamberg U	NA	NA	NA	NA	NA	NA	9121	6811	NA
Bayreuth U	NA	NA	NA	NA	NA	1615	23090	39814	NA
Bielefeld U	NA	NA	NA	NA	NA	41726	67841	77729	NA
Duisburg-Essen U	NA	NA	NA	NA	NA	NA	63627	67362	NA
FU Berlin	NA	NA	NA	NA	NA	NA	NA	56074	NA
FZJ - ZB	NA	NA	NA	NA	NA	NA	NA	88857	1554
GFZ-Potsdam	NA	NA	NA	NA	NA	NA	30211	39415	NA
Goettingen U	NA	NA	NA	NA	NA	NA	159186	NA	NA
Hamburg TUHH	NA	NA	NA	NA	NA	NA	NA	11911	NA
Hannover U	NA	NA	NA	NA	NA	NA	18516	36411	8981
Heidelberg U	NA	NA	NA	NA	NA	NA	NA	112238	NA
INM - Leibniz-Institut für Neue Materialien	NA	NA	NA	NA	NA	NA	2587	1679	NA
KIT	NA	NA	NA	NA	NA	109800	118826	121488	NA
Konstanz U	NA	NA	NA	NA	NA	43197	64579	55598	NA
Leipzig U	NA	NA	NA	NA	NA	NA	NA	78803	800
MPG	51494	78800	71645	82497	87999	177280	550061	215838	NA
Muenchen LMU	NA	5576	37816	50164	60971	66554	88517	65036	NA
Regensburg U	NA	NA	NA	NA	NA	84371	98239	149108	NA
TU Clausthal	NA	NA	NA	NA	NA	NA	3771	NA	NA

apc_mean.Rmd

---
title: "Mean APC per Institution"
author: "Najko Jahn"
date: "28. April 2015"
output: html_document
---

```{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 = 0, digits = 2)
knitr::knit_hooks$set(inline = function(x) {
  prettyNum(x, big.mark=".")
})
```

# All

```{r}
apc_de <- read.csv("../data/apc_de.csv", header = T, sep =",")


df.summary <-rbind(tapply(apc_de$EURO, apc_de$Period, sum),
  tapply(apc_de$EURO, apc_de$Period, length),
  tapply(apc_de$EURO, apc_de$Period, mean))

rownames(df.summary) <- c("Fees paid in EURO", "Articles", "Mean Fee paid")

knitr::kable(df.summary)
```

#  Institution

## Mean APC

```{r}
apc_de <- read.csv("../data/apc_de.csv", header = T, sep =",")

tt <- aggregate(apc_de$EURO, by = list(apc_de$Institution, apc_de$Period), mean)
mean_apc <- reshape::cast(tt, Group.1 ~ Group.2, value = "x")

knitr::kable(mean_apc)
```

## Paid articles 

```{r}
apc_de <- read.csv("../data/apc_de.csv", header = T, sep =",")

tt <- aggregate(apc_de$EURO, by = list(apc_de$Institution, apc_de$Period), length)
length_apc <- reshape::cast(tt, Group.1 ~ Group.2, value = "x")

knitr::kable(length_apc)
```

## Paid fees in EURO

```{r}
apc_de <- read.csv("../data/apc_de.csv", header = T, sep =",")

tt <- aggregate(apc_de$EURO, by = list(apc_de$Institution, apc_de$Period), sum)
sum_apc <- reshape::cast(tt, Group.1 ~ Group.2, value = "x")

knitr::kable(sum_apc)
```{r}