diff --git a/vhk.Rmd b/vhk.Rmd index 9ee6f3b..364ba63 100644 --- a/vhk.Rmd +++ b/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)) +