4 Notaciones al cuerpo del gráfico

starwars %>%
  group_by(species) %>% 
  summarise(conteo = n()) %>% 
  ggplot(aes(x = species, y = conteo)) + 
  geom_col() +
  coord_flip() +
  ggtitle ("Especies de los personjes de Starwars") + #Título de nuestro gráfico
  labs(x = "Especies",y = "Porcentaje") + #Título de nuestros ejes 
  geom_text(data = NULL, x = 1.5, y = 90, label = "Gráfico ser muy bacán")