{"id":2403,"date":"2011-03-17T23:00:55","date_gmt":"2011-03-18T03:00:55","guid":{"rendered":"http:\/\/www.decisionsciencenews.com\/?p=2403"},"modified":"2011-03-21T18:16:41","modified_gmt":"2011-03-21T22:16:41","slug":"the-housing-bubble-by-city","status":"publish","type":"post","link":"https:\/\/www.decisionsciencenews.com\/?p=2403","title":{"rendered":"The housing bubble by city"},"content":{"rendered":"

DIFFERENT CITIES TELL DIFFERENT STORIES<\/p>\n

\"\"<\/a><\/p>\n

Inspired by a tutorial called 5 Minute Analysis in R: Case-Shiller Indices<\/a>, we decided to redo the analysis with 1) More up to date data and 2) Hadley Wickham’s<\/a> super ggplot2<\/a> graphics package.<\/p>\n

The above plot shows the general trend in home prices, relative to January 2000, in various cities, but is otherwise a mess.<\/p>\n

Much like Olympic sports coverage, we next focus in on a few exceptional stories. It is much easier to read.<\/p>\n

\"\"<\/a><\/p>\n

Miami sailed high and fell far. Detroit rose modestly and but dropped more than it went up.\u00a0 Dallas held steady. DC is enjoying a bit of renewed growth, but are it and New York yet to fall?<\/p>\n

The graphs were surprisingly easy to create in R, and the full code is below. If you’d like to do your own analysis, the Standard & Poor’s Web site has data that you can download yourself<\/a>. We chose the “seasonally adjusted” data set.<\/p>\n

New to us in the code below was the “droplevels<\/a>‘ command which was added to R’s version 12. It dispenses with unused factor levels that you sometimes end up with when subsetting data. Extra levels are often harmless, but in ggplot2 they show up in the legend.\u00a0 Without droplevels, the second graph would have the legend of the first graph.<\/p>\n


\nlibrary(ggplot2)
\n## Read in data, available from:
\n#www.standardandpoors.com\/indices\/sp-case-shiller-home-price-indices\/en\/us\/?indexId=spusa-cashpidff--p-us----
\ndat=read.csv(\"CSHomePrice_History.csv\")
\nmdf=melt(dat,id.vars=\"YEAR\")
\nmdf$Date=as.Date(paste(\"01-\",mdf$YEAR,sep=\"\"),\"%d-%b-%y\")
\nnames(mdf)=c(\"MonthYear\",\"City\",\"IndexValue\",\"Date\")
\nggplot(data=mdf,aes(x=Date,y=IndexValue)) + geom_line(aes(color=City),size=1.25) +
\nscale_x_date(\"Year\", minor=\"years\") + scale_y_continuous(\"Case Schiller Index\")
\nsm=subset(mdf,City %in% c('NY.New.York','FL.Miami','CA.Los Angeles','MI.Detroit',
\n'TX.Dallas','IL.Chicago','DC.Washington'))
\nsm$City=droplevels(sm$City)
\nggplot(data=sm,aes(x=Date,y=IndexValue)) + geom_line(aes(color=City),size=1.5) +
\nscale_x_date(\"Year\", minor=\"years\") + scale_y_continuous(\"Case Schiller Index\")
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

The housing bubble by city. Miami sailed high and fell far. Detroit rose modestly and but dropped more than it went up. Dallas held steady. DC is enjoying a bit of renewed growth, but are in and New York yet to fall?<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","enabled":false}}},"categories":[16,74,15],"tags":[27,169,107,103,1208,170],"class_list":["post-2403","post","type-post","status-publish","format-standard","hentry","category-ideas","category-r","category-tools","tag-economics","tag-ggplot","tag-ggplot2","tag-graphics","tag-r","tag-time-series"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p4LKj-CL","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts\/2403","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2403"}],"version-history":[{"count":10,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts\/2403\/revisions"}],"predecessor-version":[{"id":2415,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts\/2403\/revisions\/2415"}],"wp:attachment":[{"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2403"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2403"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2403"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}