diff --git a/dashboard.Rmd b/dashboard.Rmd
index ce34d41..e96e71f 100644
--- a/dashboard.Rmd
+++ b/dashboard.Rmd
@@ -27,6 +27,7 @@ library(echarts4r)
 # access to data
 hybrid_df <- readr::read_csv("data/hybrid_publications.csv") %>%
   mutate(license = fct_infreq(license)) %>%
+  mutate(publisher = fct_infreq(publisher)) %>%
   mutate(year = factor(issued, levels = c("2013", "2014", "2015","2016", "2017", "2018", "2019"))) %>% 
   mutate(hybrid_type = ifelse(hybrid_type == "SCOAP", "SCOAP<sup>3</sup>", hybrid_type)) %>%
   mutate(hybrid_type = factor(hybrid_type, levels = c("Open APC (TA)", "Open APC (Hybrid)", "SCOAP<sup>3</sup>"))) %>%
@@ -46,7 +47,7 @@ Inputs {.sidebar}
 ```{r}
 # from https://stackoverflow.com/questions/42148177/how-can-i-build-multiple-inputs-into-my-shiny-app-with-both-updating-and-multipl
 
-selectizeInput("publisherinput", "Publisher", c("All", unique(hybrid_df$publisher)), selected =
+selectizeInput("publisherinput", "Publisher", c("All", levels(hybrid_df$publisher)), selected =
               "All")
 selectizeInput("journalinput", "Journal", c("All", unique(hybrid_df$journal_title)), selected =
               "All", options = list(maxOptions = 5000))