From 95842e50850ac31dc8499cf802692479c7807d24 Mon Sep 17 00:00:00 2001 From: Daniel Kraus Date: Tue, 1 Jan 2019 18:06:11 +0100 Subject: [PATCH] =?UTF-8?q?=C3=9Cberschriften=20pr=C3=A4zisiert.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- vhk.Rmd | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) +