5 Podemos agregar porcentajes a las columnas de cada especie

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 = "Número") #Título de nuestros ejes +

  geom_text(aes(y=conteo), size=3, col="black")
## mapping: y = ~conteo 
## geom_text: parse = FALSE, check_overlap = FALSE, na.rm = FALSE
## stat_identity: na.rm = FALSE
## position_identity

5.0.1 Cómo cambiar la paleta de colores

starwars %>%
  group_by(species) %>% 
  summarise(conteo = n()) %>% 
  ggplot(aes(x = species, y = conteo)) + 
  geom_col() +
  coord_flip() +
  ggtitle ("Especies de los personajes de Starwars") + #Título de nuestro gráfico
  labs(x = "Especies",y = "Porcentaje")+ #Título de nuestros ejes 
  theme (plot.title = element_text(family="Comic Sans MS",
                                     size=rel(1), #Tamaño relativo de la letra del título
                                     vjust=2, #Justificación vertical, para separarlo del gráfico
                                     face="bold", #Letra negrilla. Otras posibilidades "plain", "italic", "bold" y "bold.italic"
                                     color="green", #Color del texto
                                     lineheight=1.5)) + #Separación entre líneas
  theme(axis.title.x = element_text(face="bold", vjust=-0.5, colour="orange", size=rel(0.75))) +
  theme(axis.title.y = element_text(face="bold", vjust=1.5, colour="blue", size=rel(0.75)))