starwars %>%drop_na(sex) %>%ggplot(aes(sex, height, fill = sex)) +geom_col() +theme_nice() +labs(title ="Categorised by sex and height") +theme(plot.title =element_text(hjust =0.5))
starwars %>%drop_na(sex) %>%ggplot(aes(sex, height, fill = sex)) +geom_col() +theme_nice() +labs(title ="Starwars characters categorised \nby height and sex") # Place "\n" where you want the line break to be