id | html |
---|---|
CBSA | [html] |
phillips | [html] |
State | [html] |
Freddie Mac House Price Index - Freddie
Data
Main Datasets
Web
Quarterly Cash-Out Refinancing Volumes (1995-2019)
(ref:refinancing-freddie) Quarterly Cash-Out Refinancing Volumes (1995-2019). Source: Freddie Mac.
Code
%>%
refinance select(date, home_equity_cash_out) %>%
%>%
na.omit ggplot(.) +
geom_line(aes(x = date, y = home_equity_cash_out)) +
ylab("Cash Out Refinancing (Billions, Per Quarter)") +
geom_rect(data = nber_recessions,
aes(xmin = Peak, xmax = Trough, ymin = -Inf, ymax = +Inf),
fill = 'grey', alpha = 0.3) +
scale_y_continuous(breaks = seq(0, 200, 10),
labels = scales::dollar_format(accuracy = 1, suffix = "Bn")) +
scale_x_date(breaks = as.Date(paste0(c(1994, 1998, 2001, 2006, 2007, 2009, 2013), "-01-01")),
labels = date_format("%y"),
limits = c(as.Date("1994-01-01"), as.Date("2018-01-01"))) +
theme_minimal() + xlab("")