Prix du Timbre

Data

Author

François Geerolf

Info

# **Last data update**: 01 aoû 2026, 21:06. **Last compile**: 15 aoû 2026, 15:36

Table

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

Linear

All

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

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

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

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

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

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

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