crds %>%
add_row(date = Sys.Date(), taux = 0.005) %>%
add_row(date = as.Date("1996-01-31"), taux = 0) %>%
add_row(date = as.Date("1970-01-31"), taux = 0) %>%
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, 0.1),
labels = percent_format(accuracy = 0.1),
limits = c(0, 0.01)) +
ylab("CRDS (%)") + xlab("")
