From 8c92bf1f8814317bbf1bb5b047f35d4dcc6df83f Mon Sep 17 00:00:00 2001 From: Donatus Herre Date: Sun, 8 Dec 2024 19:57:11 +0100 Subject: [PATCH] Update mapping of publishers in DOAJ --- docs/index.Rmd | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/docs/index.Rmd b/docs/index.Rmd index 5dd104a..de1befb 100644 --- a/docs/index.Rmd +++ b/docs/index.Rmd @@ -26,11 +26,13 @@ doaj_journals_withdrawn <- readr::read_csv("data/doaj_changelog_withdrawn_list_e # Mapping by @MiWohlgemuth doaj_journals[grepl("Elsevier|KeAi Communications", doaj_journals$Publisher, ignore.case = TRUE), "Publisher"] <- "Elsevier" doaj_journals[grepl("Wiley|American Geophysical Union", doaj_journals$Publisher, ignore.case = TRUE), "Publisher"] <- "Wiley" -doaj_journals[grepl("BMC|Springer|Nature Publishing|Nature Portfolio", doaj_journals$Publisher, ignore.case = TRUE), "Publisher"] <- "SpringerNature" +doaj_journals[grepl("BMC|Springer|Nature Publishing|Nature Portfolio", doaj_journals$Publisher, ignore.case = TRUE), "Publisher"] <- "Springer Nature" doaj_journals[grepl("Taylor & Francis|F1000 Research|Dove Medical", doaj_journals$Publisher, ignore.case = TRUE), "Publisher"] <- "Taylor & Francis" doaj_journals[grepl("Wolters Kluwer", doaj_journals$Publisher, ignore.case = TRUE), "Publisher"] <- "Wolters Kluwer" doaj_journals[grepl("SAGE|Sage Publishing", doaj_journals$Publisher, ignore.case = FALSE), "Publisher"] <- "SAGE" doaj_journals[grepl("De Gruyter|Brill|Vandenhoeck|Sciendo", doaj_journals$Publisher, ignore.case = FALSE), "Publisher"] <- "De Gruyter Brill" +doaj_journals[grepl("MDPI", doaj_journals$Publisher, ignore.case = FALSE), "Publisher"] <- "MDPI" +doaj_journals[grepl("Frontiers Media", doaj_journals$Publisher, ignore.case = FALSE), "Publisher"] <- "Frontiers" ``` # Top 100 Publishers of Withdrawn Journals