table(respostas$Residente)
##
## Caroline Chandler Pedrozo Daniel Machado Pereira
## 2 8
## Diogo Santos de Oliveira Eliana Lora Schneider
## 6 16
## Elimar Teixeira Ricardo Gabriel Curubeto Lona de Miranda
## 12 1
## Guilherme Zaffari Ian Maia
## 30 1
## Juliano Danelon Laura Zaparoli Zanrosso
## 3 6
## Lucas Toresan Maria Luisa Barrufi Adib
## 4 8
## Marion Trombetta Nayara Monteiro Pinheiro
## 16 41
## Osmar Colleoni Ubirajara Amaral Vinholes Filho
## 8 10
## Vanessa Boz
## 20
table(respostas$local)
## < table of extent 0 >
table(respostas$Estágio)
##
## ANESTESIO HCPA ENFERMARIA HPS ESPECIALIDADES
## 45 3 1
## GINECO/OBST/NEONATO HCPA ULTRASSOM OPTATIVO
## 2 2 4
## Plantão HCPA Plantão HPS SAMU
## 30 32 2
## Térreo HCPA Térreo HPS UTI HCPA
## 18 29 1
## UTI HPS
## 23
# table(respostas$Procedimento, respostas$Preceptor)
respostas %>%
group_by(Estágio,Preceptor) %>%
summarise(n = n()) %>%
arrange(desc(n)) %>%
ggplot(aes(x = Estágio, y = n, fill = Preceptor)) + geom_col() + coord_flip()