daniel/VHK
1
0
Fork 0
Code Issues Pull Requests Activity

Default to Slidy; minor fixes.

Browse Source
This commit is contained in:
daniel 2018-12-29 09:54:29 +01:00
parent 0e76645882
commit 4974a2a45b
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitignore vendored
View File

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

6
vhk.Rmd
View File

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