default.R

library(tidyverse)
plot <- starwars %>% 
  mutate(name, bmi = mass / ((height / 100)  ^ 2)) %>%
  ggplot(aes(x = bmi)) +
  geom_histogram(fill = "#fc6721", alpha = 0.8, binwidth = 10) +
  scale_x_continuous(expand = c(0, 0), limits=c(0, 450)) +
  labs(x = "Body Mass Index [kg/m^2]", y = NULL,
       title = "BMI distribution for Star Wars characters") 
plot