%>%
prix_timbre if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
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 = ""))
%>%
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 = ""))
%>%
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 = ""))
%>%
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 = ""))
%>%
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 = ""))
%>%
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 = ""))
%>%
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))