diff --git a/shiny/app.R b/shiny/app.R
index 98b6f0e..3473c82 100644
--- a/shiny/app.R
+++ b/shiny/app.R
@@ -3,10 +3,6 @@
 library(highcharter)
 library(RKorAPClient)
 library(tidyverse)
-
-#library(devtools)
-#install_git("https://korap.ids-mannheim.de/gerrit/IDS-Mannheim/idsThemeR")
-
 library(idsThemeR)
 
 corpus=c("", "referTo ratskorpus-2023-1", "referTo drukola.20180909.1b_words")
@@ -182,7 +178,11 @@
       hc_add_series(type = "bar", data = df, hcaes(texttype, tokens, group=corpus)) %>%
       hc_xAxis(categories = df$texttype %>%
                  str_replace_all("Zz", "Z") %>%
-                 str_replace_all("[/.*)():^\\[\\]]", "") %>% str_replace_all("\\|", "/")) %>%
+                 str_replace_all("Rr", "R") %>%
+                 str_replace_all("z]", "") %>%
+                 str_replace_all("\\|\\$", "") %>%
+                 str_replace_all("[/.*)():^\\[\\]]", "") %>%
+                 str_replace_all("\\|", "/")) %>%
       hc_title(text="Texttyp")
     hc
   })