diff --git a/R/clean_journals_continents.R b/R/clean_journals_continents.R
index 4b3fbc8..9aad101 100644
--- a/R/clean_journals_continents.R
+++ b/R/clean_journals_continents.R
@@ -28,6 +28,7 @@ continent_order <- function(short = FALSE) {
 
 #' @noRd
 clean_journal_names <- function(journal) {
+  x <- gsub("&amp;", "&", journal, fixed = TRUE)
   x <- gsub(":.*", "", journal)
   x <- gsub("[(].*", "", x)
   x <- tools::toTitleCase(x)
diff --git a/data-raw/journal_field.R b/data-raw/journal_field.R
index bd51e4c..f75c388 100644
--- a/data-raw/journal_field.R
+++ b/data-raw/journal_field.R
@@ -61,7 +61,7 @@ economics <- c(
 )
 
 general <- c(
-  "Proceedings of the national academy of sciences",
+  "Proceedings of the National Academy of Sciences of the United States of America",
   "Science (New York, N.Y.)",
   "Nature",
   "Plos one"