range bar chart

R code of the ggplot2 example

library(ggplot2)
library(dplyr)

## One bar per month, from the lowest to the highest daily maximum
## temperature: the bar floats, it does not start at zero.
ranges <- airquality |>
  group_by(Month) |>
  summarise(low = min(Temp), high = max(Temp)) |>
  mutate(month = factor(month.name[Month], levels = month.name[5:9]),
         narrowest = high - low == min(high - low))

p <- ggplot(ranges, aes(y = month)) +
  geom_linerange(aes(xmin = low, xmax = high, colour = narrowest), linewidth = 6) +
  geom_text(aes(x = low, label = low), hjust = 1, nudge_x = -0.8, size = 3.2) +
  geom_text(aes(x = high, label = high), hjust = 0, nudge_x = 0.8, size = 3.2) +
  scale_colour_manual(values = c(`FALSE` = lex_colors[["blue"]], `TRUE` = lex_colors[["plum"]]),
                      guide = "none") +
  scale_y_discrete(limits = rev) +
  scale_x_continuous(limits = c(50, 102), breaks = seq(50, 100, 10), expand = lex_break_expand) +
  labs(title = "New York's daily highs varied least in July",
       subtitle = "Range of the daily maximum temperature at LaGuardia Airport,\nMay to September 1973",
       x = "Daily maximum temperature (°F)", y = NULL,
       caption = "Data: New York State Department of Conservation and National Weather Service,\nvia datasets (R Core Team 2026)") +
  theme_lex_viz(grid = "x", arrows = "x", break_not_zero = "x")