diff --git a/R/analyze.R b/R/analyze.R
index 14ec9d6..1c406d5 100644
--- a/R/analyze.R
+++ b/R/analyze.R
@@ -33,7 +33,7 @@ bar_plot_fraktionen <- function(tb, variable, fill, title=NULL, xlab = "Fraction
         ylab(ylab) +
         labs(fill = filllab) +
         ggtitle(title) +
-        geom_bar(stat = "identity")
+        geom_bar(stat = "identity") + coord_flip()
 }
 
 # Counts how many talks do match a given pattern and summarises by date
diff --git a/README.md b/README.md
index 4e5ed98..4c30ea2 100644
--- a/README.md
+++ b/README.md
@@ -8,6 +8,11 @@ library(devtools)
 
 # neu laden aller paket funktionen
 load_all()
+
+#In CSV-files schreiben, um das laden zu beschleunigen
+tables <- read_all()
+tables <- repair(tables)
+write_to_csv(tables)
 ```
 Wir verwenden NIEMALS source, etc.! Außerdem NIEMALD library(...) verwenden, sondern
 um neue pakete hinzuzufuegen (als dependency), verwende: