Default to Slidy; minor fixes.

.gitignore

@@ -4,4 +4,6 @@
 .Ruserdata
 *.pdf
 *.html
+*.pptx
 *-figure/
+*-files/

vhk.Rmd

@@ -3,8 +3,8 @@ title: "Vorhofkatheter-Statistik"
 author: "Daniel Kraus"
 date: '2018-12-29'
 output:
-  ioslides_presentation: default
   slidy_presentation: default
+  ioslides_presentation: default
   beamer_presentation: default
 ---
 
@@ -55,6 +55,7 @@ raw_data %>% group_by(Year) %>% summarise(PercentFemale = sum(Sex == "weiblich")
 
 ## Katheterlokalisation
 Ist da ein Trend hin zu immer mehr Kathetern von links?!
+
 ```{r insertion_site}
 raw_data %>% mutate(Side = factor(Side, levels = c("rechts", "links"))) %>%
   ggplot(aes(x = Year)) +
@@ -65,6 +66,7 @@ raw_data %>% mutate(Side = factor(Side, levels = c("rechts", "links"))) %>%
 
 ## Anteil der Arztrollen
 Um 2014 herum haben einige die Facharztprüfung abgelegt, ist das der Grund für die Auffälligkeit 2015/2016?
+
 ```{r percent_residents}
 raw_data %>% group_by(Year) %>% 
   summarize(Assistenzarzt = sum(SurgeonRole == "Assistenzarzt") / n(),
@@ -103,6 +105,8 @@ raw_data %>% count(Surgeon) %>% arrange(n) %>% top_n(10, n) %>% mutate(Surgeon =
 ```
 
 ## Hitparade der Assistenten
+Einsame Spitze... Romana Ziegler!
+
 ```{r greatest_assistants}
 raw_data %>% count(Assistant) %>% arrange(n) %>% top_n(10, n) %>% mutate(Assistant = factor(Assistant, levels = Assistant)) %>%
   ggplot(aes(x = Assistant, y = n)) +