Bilan de la circulation en 2022 - bilan_circulation_2022

Données - SDES

Last observation: 2022 (N = 7)

First observation: 1990 (N = 7)

Last data update: 15 sept. 2026, 00:32

Last compile: 16 sept. 2026, 21:13

type

bilan_circulation_2022 |>
  group_by(type) |>
  summarise(Nobs = n()) |>
  print_table_conditional()

type	Nobs
Autoroutes concédées	33
Autoroutes non concédées (1)	33
Autres routes (2)	33
Ensemble des réseaux	33
Routes 'nationales'	33
Total autoroutes (1)	33
Total réseau 'national'	33

Autoroutes, Routes nationales

Tous

bilan_circulation_2022 |>
  filter(type %in% c("Autoroutes concédées", "Autoroutes non concédées (1)", "Routes 'nationales'")) |>
  group_by(type) |>
  mutate(index = 100*value/value[1]) |>
  ggplot() + geom_line(aes(x = date, y = index, color = type)) +
  xlab("") + ylab("Index 100 = 1990") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(0, 300, 10))

2005-

bilan_circulation_2022 |>
  filter(date >= as.Date("2005-01-01")) |>
  filter(type %in% c("Autoroutes concédées", "Autoroutes non concédées (1)", "Routes 'nationales'")) |>
  group_by(type) |>
  mutate(index = 100*value/value[1]) |>
  ggplot() + geom_line(aes(x = date, y = index, color = type)) +
  xlab("") + ylab("Index 100 = 1990") + theme_minimal() +
  scale_x_date(breaks = seq(2005, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(0, 300, 10))

Toutes les données

Tous

bilan_circulation_2022 |>
  #filter(type %in% c("Autoroutes concédées", "Autoroutes non concédées (1)", "Routes 'nationales'")) %>%
  group_by(type) |>
  mutate(index = 100*value/value[1]) |>
  ggplot() + geom_line(aes(x = date, y = index, color = type)) +
  #scale_color_manual(values = viridis(4)[1:3]) +
  xlab("") + ylab("Index 100 = 1990") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(0, 300, 10))

2005-

bilan_circulation_2022 |>
  filter(date >= as.Date("2005-01-01")) |>
  #filter(type %in% c("Autoroutes concédées", "Autoroutes non concédées (1)", "Routes 'nationales'")) %>%
  group_by(type) |>
  mutate(index = 100*value/value[1]) |>
  ggplot() + geom_line(aes(x = date, y = index, color = type)) +
  xlab("") + ylab("Index 100 = 1990") + theme_minimal() +
  scale_x_date(breaks = seq(2005, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.3),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(0, 300, 10))