-
Notifications
You must be signed in to change notification settings - Fork 0
/
README.Rmd
89 lines (75 loc) · 3 KB
/
README.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
---
output: github_document
always_allow_html: true
---
<!-- README.md is generated from README.Rmd. Please edit that file -->
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
collapse = TRUE,
warning = FALSE,
message = FALSE,
echo = FALSE,
fig.width = 6,
fig.asp = 0.618,
out.width = "70%",
fig.align = "center",
dpi = 300
)
```
<h1>Arbeitskreis Forum 13+</h1>
<div style="margin-top: 50px;">
Der **Arbeitskreis Forum 13+** ist ein unabhängiger Arbeitskreis von Expert*innen aus deutschen Bibliothekskonsortien als Akteuren der überregionalen Lizenzierung, von Open-Access-Infrastrukturprojekten, Hochschulbibliotheken, des Deutschen Bibliotheksverbandes (dbv) und der Deutschen Forschungsgemeinschaft (DFG).
Ziel der Aktivitäten ist der Austausch zu Fragen rund um die Modellierung und praktische Implementierung von Open-Access-Transformationsverträgen sowie die Koordination von Verhandlungen mit kleinen und mittelgroßen Verlagen bzw. Fachgesellschaften.
```{r, echo=FALSE,message=FALSE}
library(tidyverse)
library(ggiraph)
library(cowplot)
my_df <- tibble::tribble(
~publisher, ~type, ~prop,~colors,
"Springer Nature","DEAL",0.19,"#ff6900",
"Elsevier","other",0.19,"#abb8c3",
"Wiley","DEAL",0.1,"#ff6900",
"MPDI","OA-Verlag",0.04,"#ff6900",
"ACS","other",0.03,"#abb8c3",
"T&F","other",0.03,"#abb8c3",
"Frontiers","OA-Verlag",0.03,"#ff6900",
"RSC","other",0.03,"#abb8c3",
"OUP","other",0.03,"#abb8c3",
"APS","other",0.03,"#abb8c3",
"Thieme","other",0.02,"#abb8c3",
"IOP","other",0.02,"#abb8c3",
"Sonstige","other",0.26,"#e5e5e5"
)
p <- my_df %>%
mutate(publisher = forcats::fct_inorder(publisher)) %>%
ggplot(aes(x = "", y = prop, fill = type, group = publisher)) +
geom_bar_interactive(width = 1,
stat = "identity",
color = "white",
position = position_stack(reverse = FALSE),
alpha = 0.9,
aes(tooltip = paste0(publisher, " (", round(prop, 2) * 100, "%)"))) +
scale_fill_manual(NULL, values = c("DEAL" = "#B52141", "OA-Verlag" = "#0093c7", "other" = "grey60"), breaks= c("DEAL", "OA-Verlag")) +
scale_y_continuous(labels = scales::percent_format(), expand = expansion(mult = c(0, 0.05))) +
geom_text(aes(label = publisher),
position = position_stack(vjust = 0.5), size = 5.5,
color = "white") +
cowplot::theme_minimal_hgrid(font_size= 22, font_family = "Roboto") +
theme(plot.caption = element_text(hjust = 0, face= "italic"),
plot.title.position = "plot",
plot.caption.position = "plot",
plot.title = element_text(face = "plain")) +
theme(legend.position="top") +
theme(plot.title = element_text(size=30)) +
labs(x = NULL, y = NULL, title = "Wissenschaftliche Artikel\ndeutscher Einrichtungen\n2018-20",
caption = 'Quelle: https://open-access-monitor.de\n(Datenstand vom 26.01.2022)')
htmlwidgets::saveWidget(girafe(
ggobj = p,
width_svg = 6,
height_svg = 18*0.618
), "inst/pkgdown/oachart.html")
```
</div>