Refactor top 100 publishers

slub · Dec 7, 2024 · af30ff7 · af30ff7
1 parent 61bcd30
commit af30ff7
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 39 deletions.
diff --git a/docs/index.Rmd b/docs/index.Rmd
@@ -24,16 +24,31 @@ doaj_journals_withdrawn <- readr::read_csv("data/doaj_changelog_withdrawn_list_e
 
 # Top 100 Publishers of Withdrawn Journals
 
-```{r doaj-publishers-withdrawn, rownames.print=F}
-doaj_publishers_withdrawn <- dplyr::count(doaj_journals_withdrawn, `publisher`, sort = TRUE, name = "Journal Count")
-doaj_publishers_withdrawn <- doaj_publishers_withdrawn[!is.na(doaj_publishers_withdrawn$publisher), ]
-dplyr::rename(doaj_publishers_withdrawn, `Publisher` = `publisher`)[1:100, ]
+```{r doaj-publishers-withdrawn}
+doaj_publishers_withdrawn <- setNames(
+  as.data.frame(
+    table(doaj_journals_withdrawn$publisher), stringsAsFactors = FALSE
+  )[order(table(doaj_journals_withdrawn$publisher), decreasing = TRUE), ],
+  c("Publisher", "Journal Count")
+)
+```
+
+```{r doaj-publishers-withdrawn-display, rownames.print=F}
+doaj_publishers_withdrawn[1:100, ]
 ```
 
 # Top 100 Publishers of Indexed Journals
 
 ```{r doaj-publishers-indexed, rownames.print=F}
-doaj_publishers <- dplyr::count(doaj_journals, `Publisher`, sort = TRUE, name = "Journal Count")
+doaj_publishers <- setNames(
+  as.data.frame(
+    table(doaj_journals$Publisher), stringsAsFactors = FALSE
+  )[order(table(doaj_journals$Publisher), decreasing = TRUE), ],
+  c("Publisher", "Journal Count")
+)
+```
+
+```{r doaj-publishers-indexed-display, rownames.print=F}
 doaj_publishers[1:100, ]
 ```
 

diff --git a/renv.lock b/renv.lock
@@ -140,29 +140,6 @@
       ],
       "Hash": "33698c4b3127fc9f506654607fb73676"
     },
-    "dplyr": {
-      "Package": "dplyr",
-      "Version": "1.1.4",
-      "Source": "Repository",
-      "Repository": "CRAN",
-      "Requirements": [
-        "R",
-        "R6",
-        "cli",
-        "generics",
-        "glue",
-        "lifecycle",
-        "magrittr",
-        "methods",
-        "pillar",
-        "rlang",
-        "tibble",
-        "tidyselect",
-        "utils",
-        "vctrs"
-      ],
-      "Hash": "fedd9d00c2944ff00a0e2696ccf048ec"
-    },
     "evaluate": {
       "Package": "evaluate",
       "Version": "1.0.1",
@@ -215,17 +192,6 @@
       ],
       "Hash": "7f48af39fa27711ea5fbd183b399920d"
     },
-    "generics": {
-      "Package": "generics",
-      "Version": "0.1.3",
-      "Source": "Repository",
-      "Repository": "CRAN",
-      "Requirements": [
-        "R",
-        "methods"
-      ],
-      "Hash": "15e9634c0fcd294799e9b2e929ed1b86"
-    },
     "glue": {
       "Package": "glue",
       "Version": "1.8.0",