#Let's look at the distribution of home values
home_value_hist <- ggplot(sf, aes(SalePrice)) +
  geom_histogram(fill=pallete_1_colors) +
  xlab("Sale Price($)") + ylab("Count") +
  scale_fill_manual(values=pallete_1_colors) +
  plotTheme() +
  labs(x="Sale Price($)", y="Count", title="Distribution of San Francisco home prices",
     subtitle="Nominal prices (2009 - 2015)",
     caption="Source: San Francisco Office of the Assessor-Recorder\n@KenSteif & @SimonKassel") +
  scale_x_continuous(labels = comma) + scale_y_continuous(labels = comma)
home_value_hist
ggsave("plot1_histogram.png", home_value_hist, width = 8, height = 4, device = "png")