graphique combiné

Code R de l'exemple ggplot2

library(ggplot2)
library(HistData)

## Bars and a line share one axis: annual death rates per 1 000 soldiers.
p <- ggplot(Nightingale, aes(x = Date)) +
  geom_col(aes(y = Disease.rate), fill = "#9b2367", alpha = 0.8, width = 24) +
  geom_line(aes(y = Wounds.rate), colour = "#2e7891", linewidth = 0.7) +
  geom_point(aes(y = Wounds.rate), colour = "#2e7891", size = 1) +
  annotate("text", x = as.Date("1855-02-15"), y = 1000, label = "Disease (bars)",
           colour = "#9b2367", hjust = 0, size = 3.2) +
  annotate("text", x = as.Date("1855-08-15"), y = 150, label = "Wounds (line)",
           colour = "#2e7891", hjust = 0, size = 3.2) +
  scale_x_date(breaks = as.Date(c("1854-07-01", "1855-01-01", "1855-07-01", "1856-01-01")),
               labels = scales::label_date("%b %Y", locale = "en"), expand = expansion(mult = 0.01)) +
  scale_y_continuous(labels = lex_number, expand = expansion(mult = c(0, 0.05))) +
  labs(title = "Disease killed more soldiers than wounds in 23 of 24 months",
       subtitle = "British army in the East, April 1854 to March 1856",
       x = NULL, y = "Deaths per 1 000 a year",
       caption = "Data: Nightingale 1858, via the HistData R package") +
  theme_lex_viz(grid = "y", arrows = "y")