knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-files/", warning = FALSE, message = FALSE, cache = TRUE )
zillowdata
The repo contains a few zipcode-level datasets from Zillow.
# install.packages("devtools") devtools::install_github("jjchern/zillowdata") # To uninstall the package, use: # remove.packages("zillowdata")
library(tidyverse) zillowdata::Zip_Zri_MultiFamilyResidenceRental %>% filter(RegionName %in% c("60606", "60657", "60614")) %>% mutate(YearMonth = paste0(YearMonth, "-01")) %>% mutate(YearMonth = as.Date(YearMonth)) %>% ggplot(aes(x = YearMonth, y = Zri, colour = RegionName)) + geom_line() + scale_x_date(date_labels = "%b %y") + labs(x = NULL, y = NULL, title = "Zillow Rental Index for Multi-Family Residence", caption = "Source: Zillow Data") + theme_classic() + theme(legend.position = c(0.15, 0.8), legend.title = element_blank())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.