airquality %>%
  ggplot(aes(Ozone)) +
  geom_histogram(fill = "blue", binwidth = 5) +
  theme_light() +
  labs(x = "Ozone", y = "Count")

# If interested in only viewing Ozone between 0 and 50 :

# First way
airquality %>%
  ggplot(aes(Ozone)) +
  geom_histogram(fill = "blue", binwidth = 5) +
  theme_light() +
  labs(x = "Ozone", y = "Count") +
  xlim(c(0,50))

# But values near 0 and 50 are excluded
# Better way :

airquality %>%
  ggplot(aes(Ozone)) +
  geom_histogram(fill = "blue", binwidth = 5) +
  theme_light() +
  labs(x = "Ozone", y = "Count") +
  coord_cartesian(xlim = c(0,50))