Restrict the length of axis tick labels placed on a single line

Code

Code

starwars %>% 
  drop_na() %>% 
  ggplot(aes(hair_color, height, fill = hair_color)) +
  geom_col() +
  theme_nice() +
  scale_x_discrete(labels = scales::label_wrap(8))

Graph

Graph without changes

Manually change the axis tick labels

Code

Code

starwars %>% 
  drop_na() %>% 
  ggplot(aes(sex, height, color = sex)) +
  geom_point() +
  theme_nice() +
  scale_x_discrete(labels=c('F', 'M'))

Graph

Graph without changes