![\"\"](\"http:\/\/www.decisionsciencenews.com\/wp-content\/uploads\/2012\/07\/cs_big.png\" "\\"cs_big\\"")
<\/a><\/p>\nLast spring we looked at the state of the housing bubble in the US<\/a>. The question on readers’ minds then was “where is it going next”? Since Decision Science News is looking for a place to buy, it is on our minds as well.<\/p>\n It’s been more than a year, so let’s have a look. Above, we see the plot for all cities. We realize the colors are hard to follow, so if you want to track your city, download the spreadsheet<\/a>.<\/p>\n In January 2011, the average index value across the cities represented here was 127, in April 2012 (the latest data we have) it was 124. The “composite 10” score in January 2011 was 154, it went to 148. Similarity the “composite 20” value went from 141 to 136. So, things have continued to drop a bit.<\/p>\n All depends on the local market, however. This is an Olympic year, so we really should highlight a few exceptional stories (the same ones we profiled in 2011):<\/p>\n Want to reproduce these graphs yourself? Go right ahead! Here’s the code. Plots are made with R<\/a> and Hadley Wickham<\/a>‘s ggplot2<\/a>.<\/p>\n Last spring we looked at the state of the housing bubble in the US. The question of readers’ minds then was “where is it going next”?<\/p>\n It’s been more than a year, so let’s have a look, above.<\/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],"tags":[416,415,169,107,126,414,1208,70],"class_list":["post-3507","post","type-post","status-publish","format-standard","hentry","category-ideas","category-r","tag-bubble","tag-cities","tag-ggplot","tag-ggplot2","tag-graphs","tag-housing","tag-r","tag-statistics"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p4LKj-Uz","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts\/3507","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=3507"}],"version-history":[{"count":10,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts\/3507\/revisions"}],"predecessor-version":[{"id":3519,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=\/wp\/v2\/posts\/3507\/revisions\/3519"}],"wp:attachment":[{"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3507"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3507"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.decisionsciencenews.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3507"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}<\/a><\/p>\n
\nlibrary(ggplot2)
\nlibrary(reshape)
\n## Read in data, available from:
\n#www.standardandpoors.com\/indices\/sp-case-shiller-home-price-indices\/en\/us\/?indexId=spusa-cashpidff--p-us----
\n#Delete the 2nd row and make 1st col 1st row say YEAR
\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\")
\nmdf$yr=format(mdf$Date,\"%Y\")
\nmdf=subset(mdf,yr>1999)
\nggplot(data=mdf,aes(x=Date,y=IndexValue)) + geom_line(aes(color=City),size=1.25) +
\nscale_x_date(\"Year\", minor_breaks=\"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_breaks=\"years\") + scale_y_continuous(\"Case Schiller Index\")
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"