Skip to content

March 26 #31

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
njahn82 merged 4 commits into from
Mar 19, 2026
Merged

March 26 #31

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
c314b23
Update to 2025
njahn82 Mar 16, 2026
318cc97
Update to 2025, use sidebar for page navigation and navigate esac dat…
njahn82 Mar 18, 2026
f206bfc
Update md table to 2026
njahn82 Mar 18, 2026
10b1487
Fix sloppy error
njahn82 Mar 19, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions .gitignore
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -9,3 +9,5 @@ oam/
/_freeze/
index_files/
.DS_Store

**/*.quarto_ipynb
12 changes: 10 additions & 2 deletions R/data_prep.R
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,13 @@
# data prep

# Patch missing esac_publisher for kar52025bibsam (Karger/BIBSAM) until fixed upstream in hoaddata
jct_hybrid_jns <- hoaddata::jct_hybrid_jns |>
dplyr::mutate(esac_publisher = dplyr::if_else(
esac_id == "kar52025bibsam" & is.na(esac_publisher),
"Karger",
esac_publisher
))

summarize_pubs <- function(...) {
pub_df_all <- summarise_oa_all(var_summary = ...)
pub_df_de <- summarise_oa_de(var_summary = ...)
Expand All @@ -12,7 +20,7 @@ summarise_oa_all <-
function(.data = hoaddata::jn_ind,
var_summary = NULL) {
pub_df <- .data |>
inner_join(hoaddata::jct_hybrid_jns, by = "issn_l", multiple = "all")
inner_join(jct_hybrid_jns, by = "issn_l", multiple = "all")
pub_all <- pub_df |>
distinct(across({{ var_summary }}), issn_l, cr_year, jn_all) |>
group_by(across({{ var_summary }})) |>
Expand All @@ -35,7 +43,7 @@ summarise_oa_de <-
function(.data = hoaddata::jn_aff,
var_summary = NULL) {
pub_df_de <- .data |>
inner_join(hoaddata::jct_hybrid_jns, by = "issn_l", multiple = "all") |>
inner_join(jct_hybrid_jns, by = "issn_l", multiple = "all") |>
filter(country_code == "DE") |>
mutate(cr_year = as.factor(cr_year))
pub_all_de <- pub_df_de |>
Expand Down
2 changes: 1 addition & 1 deletion R/journal_tbl.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@ venues <- hoaddata::jct_oalex_venues
venues_df <- venues |>
mutate(journal_name = case_when(
!is.na(homepage_url) ~ glue::glue('{display_name}<a href="{homepage_url}" target="_blank"><sup><small><i class="bi bi-box-arrow-up-right"></i></small></sup></a>'),
is.na(homepage_url) ~ display_name)
is.na(homepage_url) ~ as.character(display_name))
) |>
mutate(issn_link = glue::glue('ISSN-L: <a href="https://zdb-katalog.de/list.xhtml?t={issn_l}&key=iss&frm=O&asc=false" target="_blank">{issn_l}</a>')) |>
mutate(journal_display = glue::glue('<div><div style="font-weight:bold">{journal_name}</div><div style="font-size: 0.7rem">{issn_link}</div></div>'))
Expand Down
1 change: 1 addition & 0 deletions R/open_md.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -61,6 +61,7 @@ open_md_react <- function(...) {
`2023` = indicator_column(name = "2023"),
`2024` = indicator_column(name = "2024"),
`2025` = indicator_column(name = "2025"),
`2026` = indicator_column(name = "2026"),
cat = colDef(show = FALSE)
))

Expand Down
36 changes: 18 additions & 18 deletions R/teaser.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -25,20 +25,20 @@ all_publications <- cc_ind_global(jn_ind_df = jn_ind_df) |>
distinct(cr_year, jn_all) |>
pull(jn_all) |>
sum(na.rm = TRUE)
#' Publications 2024
all_publications_2024 <-
#' Publications 2025
all_publications_2025 <-
cc_ind_global(jn_ind_df = jn_ind_df) |>
distinct(cr_year, jn_all) |>
filter(cr_year == "2024") |>
filter(cr_year == "2025") |>
pull(jn_all) |>
sum(na.rm = TRUE)
#' CC publications 2017 -
cc_publications <- cc_ind_global(jn_ind_df = jn_ind_df) |>
pull(cc_total) |>
sum(na.rm = TRUE)
#' CC publications 2024
#' CC publications 2025
cc_publications_24 <- cc_ind_global(jn_ind_df = jn_ind_df) |>
filter(cr_year == "2024") |>
filter(cr_year == "2025") |>
pull(cc_total) |>
sum(na.rm = TRUE)

Expand Down Expand Up @@ -71,20 +71,20 @@ all_publications_de <- cc_ind_de(jn_aff_df = jn_aff_df) |>
distinct(cr_year, jn_all) |>
pull(jn_all) |>
sum(na.rm = TRUE)
#' Publications 2023
all_publications_2024_de <-
#' Publications 2025
all_publications_2025_de <-
cc_ind_de(jn_aff_df = jn_aff_df) |>
distinct(cr_year, jn_all) |>
filter(cr_year == "2024") |>
filter(cr_year == "2025") |>
pull(jn_all) |>
sum(na.rm = TRUE)
#' CC publications 2017 -
#' CC publications 2017 -
cc_publications_de <- cc_ind_de(jn_aff_df = jn_aff_df) |>
pull(cc_total) |>
sum(na.rm = TRUE)
#' CC publications 2024
#' CC publications 2025
cc_publications_24_de <- cc_ind_de(jn_aff_df = jn_aff_df) |>
filter(cr_year == "2024") |>
filter(cr_year == "2025") |>
pull(cc_total) |>
sum(na.rm = TRUE)

Expand All @@ -98,9 +98,9 @@ basic_stat <- function(...) {
all_publications_de = all_publications_de,
all_publications = all_publications,
cc_publications_24 = cc_publications_24,
all_publications_2024 = all_publications_2024,
all_publications_2025 = all_publications_2025,
cc_publications_24_de = cc_publications_24_de,
all_publications_2024_de = all_publications_2024_de
all_publications_2025_de = all_publications_2025_de
) |>
mutate(across(everything(), ~ case_when(
. < 1000 ~ as.character(.),
Expand Down Expand Up @@ -134,7 +134,7 @@ basic_stat <- function(...) {
</table>
</div>
<div class="g-col-lg-6 g-col-12">
<p style="text-align: center;" class="text-muted">2024</p>
<p style="text-align: center;" class="text-muted">2025</p>
<table style="margin:auto;padding:0;width:80%;text-align: center;">
<colgroup>
<col span="1" style="width: 50%;">
Expand All @@ -147,12 +147,12 @@ basic_stat <- function(...) {
<td colspan="1" style="border-top: 1px solid rgb(255, 255, 255); font-size: 100%; border-left: 1px solid rgb(26, 55, 113);">Germany*</td>
</tr>
<tr >
<td colspan="1" scope="row" style="font-size: 157%;">{round(cc_publications_24 / all_publications_2024 * 100, 1)}%</td>
<td colspan="1" style="font-size: 157%; border-left: 1px solid rgb(26, 55, 113);">{round(cc_publications_24_de / all_publications_2024_de * 100, 1)}%</td>
<td colspan="1" scope="row" style="font-size: 157%;">{round(cc_publications_24 / all_publications_2025 * 100, 1)}%</td>
<td colspan="1" style="font-size: 157%; border-left: 1px solid rgb(26, 55, 113);">{round(cc_publications_24_de / all_publications_2025_de * 100, 1)}%</td>
</tr>
<tr >
<td colspan="1" scope="row" style="border-top: 1px solid rgb(255, 255, 255); color: rgb(102, 102, 102); font-size: 91%;">{number_format$cc_publications_24} out of {number_format$all_publications_2024}</td>
<td colspan="1" style="border-top: 1px solid rgb(255, 255, 255); color: rgb(102, 102, 102); font-size: 91%; border-left: 1px solid rgb(26, 55, 113);">{number_format$cc_publications_24_de} out of {number_format$all_publications_2024_de}</td>
<td colspan="1" scope="row" style="border-top: 1px solid rgb(255, 255, 255); color: rgb(102, 102, 102); font-size: 91%;">{number_format$cc_publications_24} out of {number_format$all_publications_2025}</td>
<td colspan="1" style="border-top: 1px solid rgb(255, 255, 255); color: rgb(102, 102, 102); font-size: 91%; border-left: 1px solid rgb(26, 55, 113);">{number_format$cc_publications_24_de} out of {number_format$all_publications_2025_de}</td>
</tr>
</tbody>
</table>
Expand Down
21 changes: 11 additions & 10 deletions _jct_overview.qmd
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -137,7 +137,7 @@ export_files(.data = cc_df, .plot = cc_de_plot, width = 9, height = 6 * 0.618)

### Creative Commons licenses over time by publisher

Percentage of Open Access in hybrid journals included in transformative agreements by Creative Commons license types and Top 13 publishers in terms of total Open Access articles published in these journals between 2017 and 2025.
Percentage of Open Access in hybrid journals included in transformative agreements by Creative Commons license types and Top 13 publishers in terms of total Open Access articles published in these journals between 2017 and 2026.

```{r}
#| echo: false
Expand Down Expand Up @@ -272,7 +272,7 @@ my_df |>

### Market shares

Publisher market shares as measured by articles published between 2017 and 2025 in hybrid journals included in transformative agreements.
Publisher market shares as measured by articles published between 2017 and 2026 in hybrid journals included in transformative agreements.

```{r}
#| echo: FALSE
Expand Down Expand Up @@ -337,7 +337,7 @@ export_files(

This interactive table highlights the output of hybrid Open Access publishers by year, sorted by total annual publication volume. It shows the number and proportion of Open Access articles made available under a Creative Commons licence in hybrid journals included in transformative agreements. The table also shows the number of hybrid journals per portfolio and the corresponding percentage of hybrid journals with at least one OA article. You can filter by publisher, publication year and between a global and a country-specific view with respect to lead author publications from Germany.

::: column-body-outset
::: {.column-page-inset-right}

```{r publisher_league}
#| echo: false
Expand Down Expand Up @@ -404,7 +404,7 @@ export_files(
```{js, echo = FALSE}
/* https://stackoverflow.com/a/66216595 */
$(document).ready(function() {
document.getElementById("filter_year").getElementsByClassName("selectized")[0].selectize.setValue("2024", false);
document.getElementById("filter_year").getElementsByClassName("selectized")[0].selectize.setValue("2025", false);
document.getElementById("filter_input").getElementsByClassName("selectized")[0].selectize.setValue("Global", false);
});
```
Expand All @@ -416,9 +416,10 @@ This section shows how hybrid open access has been adopted in different parts of

### Open Access in hybrid journals by country

Open Access uptake in hybrid journals with a Creative Commons license per country. Shown are the Top 20 most productive countries in terms of articles published in hybrid journals included in transformative agreements between 2017 and 2025. The analysis is based on lead author country affiliations.
Open Access uptake in hybrid journals with a Creative Commons license per country. Shown are the Top 20 most productive countries in terms of articles published in hybrid journals included in transformative agreements between 2017 and 2026. The analysis is based on lead author country affiliations.

::: {.column-page-inset-right}

::: column-body-outset
```{r country_top_20}
#| echo: false
#| message: false
Expand Down Expand Up @@ -506,7 +507,7 @@ export_files(
```{js,echo = FALSE}
/* https://stackoverflow.com/a/66216595 */
$(document).ready(function() {
document.getElementById("filter_country_year").getElementsByClassName("selectized")[0].selectize.setValue("2024", false);
document.getElementById("filter_country_year").getElementsByClassName("selectized")[0].selectize.setValue("2025", false);
document.getElementById("filter_country_deal").getElementsByClassName("selectized")[0].selectize.setValue("All", false);
});
```
Expand Down Expand Up @@ -592,7 +593,7 @@ export_files(.data = shared_upw_cr_diff_year$data())
```{js, echo = FALSE}
/* https://stackoverflow.com/a/66216595 */
$(document).ready(function() {
document.getElementById("filter_cr_year").getElementsByClassName("selectized")[0].selectize.setValue("2024", false);
document.getElementById("filter_cr_year").getElementsByClassName("selectized")[0].selectize.setValue("2025", false);
document.getElementById("filter_cr_input").getElementsByClassName("selectized")[0].selectize.setValue("Global", false);
});
```
Expand Down Expand Up @@ -672,9 +673,9 @@ $(document).ready(function() {

## Journal table

This table presents the publication volume and Open Access share by journal between 2017 and 2025, comparing global metrics with metrics only for articles by lead authors based in Germany. Charts show the yearly Open Access share. You can search for journals or select a table header to sort by journal name or a metric.
This table presents the publication volume and Open Access share by journal between 2017 and 2026, comparing global metrics with metrics only for articles by lead authors based in Germany. Charts show the yearly Open Access share. You can search for journals or select a table header to sort by journal name or a metric.

::: column-body-outset
::: {.column-page-inset-right}


```{r}
Expand Down
20 changes: 10 additions & 10 deletions _oam_overview.qmd
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -138,7 +138,7 @@ export_files(.data = cc_ind_de(jn_aff_df = jn_aff_df), .plot = cc_de_plot, wid

### Creative Commons licenses over time by publisher

Percentage of Open Access in hybrid journals included in consortial transformative agreements in Germany by Creative Commons license types and Top 13 publishers in terms of total Open Access articles published in these journals between 2017 and 2024.
Percentage of Open Access in hybrid journals included in consortial transformative agreements in Germany by Creative Commons license types and Top 13 publishers in terms of total Open Access articles published in these journals between 2017 and 2026.

```{r}
#| echo: false
Expand Down Expand Up @@ -273,7 +273,7 @@ my_df |>

### Market shares

Publisher market shares as measured by articles published between 2017 and 2024 in hybrid journals included in consortial transformative agreements in Germany.
Publisher market shares as measured by articles published between 2017 and 2026 in hybrid journals included in consortial transformative agreements in Germany.

```{r}
#| echo: FALSE
Expand Down Expand Up @@ -338,7 +338,7 @@ export_files(

This interactive table highlights the output of hybrid Open Access publishers by year, sorted by total annual publication volume. It shows the number and proportion of Open Access articles made available under a Creative Commons licence in hybrid journals included in consortial transformative agreements in Germany. The table also shows the number of hybrid journals per portfolio and the corresponding percentage of hybrid journals with at least one OA article. You can filter by publisher, publication year and between a global and a country-specific view with respect to lead author publications from Germany.

::: column-body-outset
::: {.column-page-inset-right}

```{r publisher_league}
#| echo: false
Expand Down Expand Up @@ -421,7 +421,7 @@ export_files(
```{js, echo = FALSE}
/* https://stackoverflow.com/a/66216595 */
$(document).ready(function() {
document.getElementById("filter_year").getElementsByClassName("selectized")[0].selectize.setValue("2024", false);
document.getElementById("filter_year").getElementsByClassName("selectized")[0].selectize.setValue("2025", false);
document.getElementById("filter_input").getElementsByClassName("selectized")[0].selectize.setValue("Global", false);
});
```
Expand All @@ -433,9 +433,9 @@ This section shows how hybrid open access has been adopted in different parts of

### Open Access in hybrid journals by country

Open Access uptake in hybrid journals with a Creative Commons license per country. Shown are the Top 20 most productive countries in terms of articles published in hybrid journals included in consortial transformative agreements in Germany between 2017 and 2024. The analysis is based on lead author country affiliations.
Open Access uptake in hybrid journals with a Creative Commons license per country. Shown are the Top 20 most productive countries in terms of articles published in hybrid journals included in consortial transformative agreements in Germany between 2017 and 2026. The analysis is based on lead author country affiliations.

::: column-body-outset
::: {.column-page-inset-right}
```{r country_top_20}
#| echo: false
#| message: false
Expand Down Expand Up @@ -523,7 +523,7 @@ export_files(
```{js,echo = FALSE}
/* https://stackoverflow.com/a/66216595 */
$(document).ready(function() {
document.getElementById("filter_country_year").getElementsByClassName("selectized")[0].selectize.setValue("2024", false);
document.getElementById("filter_country_year").getElementsByClassName("selectized")[0].selectize.setValue("2025", false);
document.getElementById("filter_country_deal").getElementsByClassName("selectized")[0].selectize.setValue("All", false);
});
```
Expand Down Expand Up @@ -615,7 +615,7 @@ export_files(.data = shared_upw_cr_diff_year$data())
```{js, echo = FALSE}
/* https://stackoverflow.com/a/66216595 */
$(document).ready(function() {
document.getElementById("filter_cr_year").getElementsByClassName("selectized")[0].selectize.setValue("2024", false);
document.getElementById("filter_cr_year").getElementsByClassName("selectized")[0].selectize.setValue("2025", false);
document.getElementById("filter_cr_input").getElementsByClassName("selectized")[0].selectize.setValue("Global", false);
});
```
Expand Down Expand Up @@ -694,9 +694,9 @@ $(document).ready(function() {

## Journal table

This table presents the publication volume and Open Access share by hybrid journal included in consortial transformative agreements in Germany between 2017 and 2024, comparing global metrics with metrics only for articles by lead authors based in Germany. Charts show the yearly Open Access share. You can search for journals or select a table header to sort by journal name or a metric.
This table presents the publication volume and Open Access share by hybrid journal included in consortial transformative agreements in Germany between 2017 and 2026, comparing global metrics with metrics only for articles by lead authors based in Germany. Charts show the yearly Open Access share. You can search for journals or select a table header to sort by journal name or a metric.

::: column-body-outset
::: {.column-page-inset-right}


```{r}
Expand Down
10 changes: 6 additions & 4 deletions _portfolio_template.qmd
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -211,9 +211,11 @@ This section shows how hybrid open access has been adopted in different parts of

### Open Access in hybrid journals by country

Open Access uptake in hybrid journals with a Creative Commons license per country. Showing the Top 20 most productive countries in terms of articles published in `r ta_text` between 2017 and 2025. The analysis is based on lead author country affiliations.
Open Access uptake in hybrid journals with a Creative Commons license per country. Showing the Top 20 most productive countries in terms of articles published in `r ta_text` between 2017 and 2026. The analysis is based on lead author country affiliations.

::: {.column-page-inset-right}


::: column-body-outset
```{r country_top_20}
#| echo: false
#| message: false
Expand Down Expand Up @@ -294,7 +296,7 @@ export_files(
```{js,echo = FALSE}
/* https://stackoverflow.com/a/66216595 */
$(document).ready(function() {
document.getElementById("filter_country_year").getElementsByClassName("selectized")[0].selectize.setValue("2024", false);
document.getElementById("filter_country_year").getElementsByClassName("selectized")[0].selectize.setValue("2025", false);
});
```

Expand Down Expand Up @@ -433,7 +435,7 @@ $(document).ready(function() {

**`r params$publisher`**: This table presents the publication volume and Open Access share by hybrid journal between 2017 and 2025, comparing global metrics with metrics only for articles by lead authors based in Germany. Charts show the yearly Open Access share. You can search for journals or select a table header to sort by journal name or a metric.

::: column-body-outset
::: {.column-page-inset-right}


```{r}
Expand Down
Loading
Loading