Last observation: 22 sept. 2026 (N = 10)
First observation: 6 sept. 2004 (N = 10)
Last data update: 24 sept. 2026, 01:26
Last compile: 24 sept. 2026, 01:52
YC_PUB |>
filter(DATA_TYPE_FM %in% c("SR_10Y", "SR_1Y")) %>%
select_if(~ n_distinct(.) > 1) |>
rename(date = TIME_PERIOD) |>
arrange(desc(date)) |>
ggplot() + geom_line(aes(x = date, y = OBS_VALUE/100, color = Data_type_fm)) +
theme_minimal() + xlab("") + ylab("Interest rates") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-10, 50, 0.5),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.6, 0.9),
legend.title = element_blank())
YC_PUB |>
filter(DATA_TYPE_FM %in% c("SR_2Y", "SR_5Y", "SR_7Y")) %>%
select_if(~ n_distinct(.) > 1) |>
rename(date = TIME_PERIOD) |>
arrange(desc(date)) |>
ggplot() + geom_line(aes(x = date, y = OBS_VALUE/100, color = Data_type_fm)) +
theme_minimal() + xlab("") + ylab("2-year rates") +
scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-10, 50, 0.5),
labels = percent_format(accuracy = .1)) +
theme(legend.position = c(0.6, 0.9),
legend.title = element_blank())