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()