taux_de_tva |>
add_row(date = Sys.Date(), `Taux normal` = tail(taux_de_tva$`Taux normal`, 1),
`Taux réduit` = tail(taux_de_tva$`Taux réduit`, 1),
`Taux super réduit` = tail(taux_de_tva$`Taux super réduit`, 1)) |>
gather(variable, value, -date) |>
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() +
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 = 0.01*seq(0, 80, 2),
labels = percent_format(accuracy = 1)) +
ylab("Taux de TVA (%)") + xlab("")
