Überschriften präzisiert.

vhk.Rmd

@@ -154,7 +154,7 @@ raw_data %>% filter(!is.na(RemovalDate)) %>%
 -->
 
 
-## Alter der Patienten
+## Alter der Patienten bei Implantation
 ```{r patient_age}
 raw_data %>%
   ggplot(aes(group = Year, x = Year, y = Age)) +
@@ -165,7 +165,7 @@ raw_data %>%
   labs(x = NULL, y = "Jahre")
 ```
 
-## Geschlecht der Patienten
+## Geschlecht der Patienten bei Implantation
 ```{r patient_sex}
 raw_data %>% group_by(Year) %>% summarise(PercentFemale = sum(Sex == "weiblich") / n()) %>%
   ggplot(aes(x = Year, y = PercentFemale)) +