data |>
left_join(INDICATOR) |>
year_to_date() |>
filter(iso2c == "FR",
date >= as.Date("2017-01-01")) |>
mutate(value = value/100) |>
ggplot() + theme_minimal() + xlab("") + ylab("Inflation (%)") +
geom_line(aes(x = date, y = value, color = Indicator)) +
theme(legend.title = element_blank(),
legend.position = c(0.3, 0.85)) +
scale_x_date(breaks = seq(1900, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 10000, 1),
labels = percent_format(a = 1)) +
geom_hline(yintercept = 0, linetype = "dashed", color = "black") +
geom_text_repel(aes(x = date, y = value, label = percent(value, acc = 0.1), color = Indicator))