replace Ü with unicode equivalent

2021-08-10 17:53:45 +02:00
parent d91403f0c8
commit b11289e093
3 changed files with 7 additions and 7 deletions
@@ -48,14 +48,14 @@ party_colors <- c(
  FDP="#FEEB34",
  "CDU/CSU"="#000000", 
  SPD="#DF0B25",
-  "BÜNDNIS 90/DIE GRÜNEN"="#4A932B",
+  "B\u00DCNDNIS 90/DIE GR\u00DCNEN"="#4A932B",
  "DIE LINKE"="#BC3475",
  "AfD&Fraktionslos"="#AAAAFF",
  Fraktionslos="#AAAAAA"
 )

 party_order <- factor(c("Fraktionslos", "AfD&Fraktionslos",
-                        "DIE LINKE", "BÜNDNIS 90/DIE GRÜNEN", "SPD", "CDU/CSU",
+                        "DIE LINKE", "B\u00DCNDNIS 90/DIE GR\u00DCNEN", "SPD", "CDU/CSU",
                        "FDP", "AfD", NA_character_))

 #' Bar chart visualizing fraction based data