~/data/ipp/

Table

prix_timbre %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Linear

All

prix_timbre %>%
  select(date = date_debut, tarif_lettre_prioritaire, tarif_lettre_verte, tarif_ecopli) %>%
  mutate(date = as.Date(date)) %>%
  gather(variable, value, -date) %>%
  mutate(value = ifelse(date <= as.Date("2000-01-01"), value/6.55957, value)) %>%
  group_by(variable) %>%
  complete(date = seq.Date(min(date), max(date), by = "day")) %>%
  fill(value) %>%
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() + ylab("Prix du timbre en €") + xlab("") +
  scale_x_date(breaks = seq(1920, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 700, 0.2),
                     labels = dollar_format(accuracy = .1, suffix = " €", prefix = ""))

1995-

prix_timbre %>%
  select(date = date_debut, tarif_lettre_prioritaire, tarif_lettre_verte, tarif_ecopli) %>%
  mutate(date = as.Date(date)) %>%
  gather(variable, value, -date) %>%
  mutate(value = ifelse(date <= as.Date("2000-01-01"), value/6.55957, value)) %>%
  group_by(variable) %>%
  complete(date = seq.Date(min(date), max(date), by = "day")) %>%
  fill(value) %>%
  filter(date >= as.Date("1996-01-01")) %>%
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  theme_minimal() + ylab("Prix du timbre en €") + xlab("") +
  scale_x_date(breaks = seq(1920, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 700, 0.1),
                     labels = dollar_format(accuracy = .1, suffix = " €", prefix = ""))

1996-

prix_timbre %>%
  select(date = date_debut, tarif_lettre_prioritaire, tarif_lettre_verte, tarif_ecopli) %>%
  mutate(date = as.Date(date)) %>%
  gather(variable, value, -date) %>%
  mutate(value = ifelse(date <= as.Date("2000-01-01"), value/6.55957, value)) %>%
  group_by(variable) %>%
  complete(date = seq.Date(min(date), max(date), by = "day")) %>%
  fill(value) %>%
  filter(date >= as.Date("1996-01-01")) %>%
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() + ylab("Prix du timbre en €") + xlab("") +
  scale_x_date(breaks = seq(1920, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 700, 0.1),
                     labels = dollar_format(accuracy = .1, suffix = " €", prefix = ""))

Log

All

prix_timbre %>%
  select(date = date_debut, tarif_lettre_prioritaire, tarif_lettre_verte, tarif_ecopli) %>%
  mutate(date = as.Date(date)) %>%
  gather(variable, value, -date) %>%
  mutate(value = ifelse(date <= as.Date("2000-01-01"), value/6.55957, value)) %>%
  group_by(variable) %>%
  complete(date = seq.Date(min(date), max(date), by = "day")) %>%
  fill(value) %>%
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() + ylab("Prix du timbre en €") + xlab("") +
  scale_x_date(breaks = seq(1920, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(0, 700, 0.2),
                     labels = dollar_format(accuracy = .1, suffix = " €", prefix = ""))

1995-

prix_timbre %>%
  select(date = date_debut, tarif_lettre_prioritaire, tarif_lettre_verte, tarif_ecopli) %>%
  mutate(date = as.Date(date)) %>%
  gather(variable, value, -date) %>%
  mutate(value = ifelse(date <= as.Date("2000-01-01"), value/6.55957, value)) %>%
  group_by(variable) %>%
  complete(date = seq.Date(min(date), max(date), by = "day")) %>%
  fill(value) %>%
  filter(date >= as.Date("1995-01-01")) %>%
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() + ylab("Prix du timbre en €") + xlab("") +
  scale_x_date(breaks = seq(1920, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(0, 700, 0.1),
                     labels = dollar_format(accuracy = .1, suffix = " €", prefix = ""))

1996-

Value

prix_timbre %>%
  select(date = date_debut, tarif_lettre_prioritaire, tarif_lettre_verte, tarif_ecopli) %>%
  mutate(date = as.Date(date)) %>%
  gather(variable, value, -date) %>%
  mutate(value = ifelse(date <= as.Date("2000-01-01"), value/6.55957, value)) %>%
  group_by(variable) %>%
  complete(date = seq.Date(min(date), max(date), by = "day")) %>%
  fill(value) %>%
  filter(date >= as.Date("1996-01-01")) %>%
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() + ylab("Prix du timbre en €") + xlab("") +
  scale_x_date(breaks = seq(1920, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(0, 700, 0.1),
                     labels = dollar_format(accuracy = .1, suffix = " €", prefix = ""))

Base 100 = 1996

prix_timbre %>%
  select(date = date_debut, tarif_lettre_prioritaire, tarif_ecopli) %>%
  mutate(date = as.Date(date)) %>%
  gather(variable, value, -date) %>%
  mutate(value = ifelse(date <= as.Date("2000-01-01"), value/6.55957, value)) %>%
  group_by(variable) %>%
  complete(date = seq.Date(min(date), max(date), by = "day")) %>%
  fill(value) %>%
  filter(date >= as.Date("1996-01-01")) %>%
  mutate(value = 100*value/value[1]) %>%
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() + ylab("Prix du timbre en €") + xlab("") +
  scale_x_date(breaks = seq(1920, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(0, 700, 20))