Bilan de la circulation en 2022

Data - SDES

Author

François Geerolf

Info

source dataset .html .RData

sdes

bilan_circulation_2022

 2024-06-19 2024-03-12

LAST_COMPILE

LAST_COMPILE
2024-06-20

Last

Code 
bilan_circulation_2022 %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(date)) %>%
  head(1) %>%
  print_table_conditional()
date Nobs
2022-01-01 7

type

Code 
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

Code 
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-

Code 
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

Code 
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-

Code 
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))