jgreenb1

###### Settings
library(ggplot2)
library(dplyr)
library(stringr)
setwd("C:/Github/RealEstate")
options(scipen=10)

thous<-function(x) {
  x<-x/1000
  str_c("$",x,"K")

jgreenb1

###### Settings
library(choroplethr)
library(acs)
library(ggplot2)
library(RColorBrewer)
setwd("C:/Github/DataBlog")
col.pal<-brewer.pal(7,"Greens")

###### API key
# Need to go to http://api.census.gov/data/key_signup.html to set API key

jgreenb1

###### Settings
library(ggplot2)
library(dplyr)
library(stringr)
setwd("C:/Github/RealEstate")

thous<-function(x) {
  x<-x/1000
  str_c("$",x,"K")
}