Update mapping of publishers in DOAJ

slub · Dec 8, 2024 · 8c92bf1 · 8c92bf1
1 parent def2fbf
commit 8c92bf1
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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