Überschriften präzisiert.

This commit is contained in:
daniel 2019-01-01 18:06:11 +01:00
parent 6b3df60e4c
commit 95842e5085

View File

@ -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)) +