You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
188 lines
14 KiB
188 lines
14 KiB
<!doctype html>
|
|
<html>
|
|
<head>
|
|
<meta charset="utf-8">
|
|
<meta http-equiv="X-UA-Compatible" content="chrome=1">
|
|
<title>statebins by hrbrmstr</title>
|
|
|
|
<link rel="stylesheet" href="stylesheets/styles.css">
|
|
<link rel="stylesheet" href="stylesheets/pygment_trac.css">
|
|
<script src="javascripts/scale.fix.js"></script>
|
|
<meta name="viewport" content="width=device-width, initial-scale=1, user-scalable=no">
|
|
<!--[if lt IE 9]>
|
|
<script src="//html5shiv.googlecode.com/svn/trunk/html5.js"></script>
|
|
<![endif]-->
|
|
</head>
|
|
<body>
|
|
<div class="wrapper">
|
|
<header>
|
|
<h1 class="header">statebins</h1>
|
|
<p class="header">U.S. State Cartogram Heatmaps in R; an alternative to choropleths of US States ala http://bit.ly/statebins</p>
|
|
|
|
<ul>
|
|
<li class="download"><a class="buttons" href="https://github.com/hrbrmstr/statebins/zipball/master">Download ZIP</a></li>
|
|
<li class="download"><a class="buttons" href="https://github.com/hrbrmstr/statebins/tarball/master">Download TAR</a></li>
|
|
<li><a class="buttons github" href="https://github.com/hrbrmstr/statebins">View On GitHub</a></li>
|
|
</ul>
|
|
|
|
<p class="header">This project is maintained by <a class="header name" href="https://github.com/hrbrmstr">hrbrmstr</a></p>
|
|
|
|
|
|
</header>
|
|
<section>
|
|
<p>statebins is an alternative to choropleth maps for USA States</p>
|
|
|
|
<p>The following functions are implemented:</p>
|
|
|
|
<ul>
|
|
<li> <code>statebins</code> - creates "statebin" charts in the style of <a href="http://bit.ly/statebins">http://bit.ly/statebins</a> - This version uses discrete <code>RColorBrewer</code> scales, binned by the "breaks" parameter.</li>
|
|
<li> <code>statebins_continuous</code> - creates "statebin" charts in the style of <a href="http://bit.ly/statebins">http://bit.ly/statebins</a> - This version uses a continuous scale based on <code>RColorBrewer</code> scales (passing in a 6 element <code>RColorBrewer</code> palette to <code>scale_fill_gradientn</code>).</li>
|
|
</ul><h3>
|
|
<a name="todo" class="anchor" href="#todo"><span class="octicon octicon-link"></span></a>TODO</h3>
|
|
|
|
<ul>
|
|
<li> The current version is usable, but I think the plot margins and the legends need work</li>
|
|
<li> Apply algorithm to switch to light-on-dark depending on the background tile color</li>
|
|
</ul><h3>
|
|
<a name="news" class="anchor" href="#news"><span class="octicon octicon-link"></span></a>News</h3>
|
|
|
|
<ul>
|
|
<li> Version <code>1.0.0</code> released</li>
|
|
</ul><h3>
|
|
<a name="installation" class="anchor" href="#installation"><span class="octicon octicon-link"></span></a>Installation</h3>
|
|
|
|
<div class="highlight highlight-r"><pre>devtools<span class="o">::</span>install_github<span class="p">(</span><span class="s">"hrbrmstr/statebins"</span><span class="p">)</span>
|
|
</pre></div>
|
|
|
|
<h3>
|
|
<a name="usage" class="anchor" href="#usage"><span class="octicon octicon-link"></span></a>Usage</h3>
|
|
|
|
<p>All of the following examples use the <a href="http://www.washingtonpost.com/wp-srv/special/business/states-most-threatened-by-trade/states.csv?cache=1">WaPo data</a>. It looks like the columns they use are scaled data and I didn't take the time to figure out what they did, so the final figure just mimics their output (including the non-annotated legend).</p>
|
|
|
|
<div class="highlight highlight-r"><pre><span class="kn">library</span><span class="p">(</span>statebins<span class="p">)</span>
|
|
|
|
<span class="c1"># current verison</span>
|
|
packageVersion<span class="p">(</span><span class="s">"statebins"</span><span class="p">)</span>
|
|
</pre></div>
|
|
|
|
<pre><code>## [1] '1.0'
|
|
</code></pre>
|
|
|
|
<div class="highlight highlight-r"><pre><span class="c1"># the original wapo data</span>
|
|
|
|
dat <span class="o"><-</span> read.csv<span class="p">(</span><span class="s">"http://www.washingtonpost.com/wp-srv/special/business/states-most-threatened-by-trade/states.csv?cache=1"</span><span class="p">,</span> stringsAsFactors<span class="o">=</span><span class="kc">FALSE</span><span class="p">)</span>
|
|
|
|
gg <span class="o"><-</span> statebins<span class="p">(</span>dat<span class="p">,</span> <span class="s">"state"</span><span class="p">,</span> <span class="s">"avgshare94_00"</span><span class="p">,</span> breaks<span class="o">=</span><span class="m">4</span><span class="p">,</span>
|
|
labels<span class="o">=</span><span class="kt">c</span><span class="p">(</span><span class="s">"0-1"</span><span class="p">,</span> <span class="s">"1-2"</span><span class="p">,</span> <span class="s">"2-3"</span><span class="p">,</span> <span class="s">"3-4"</span><span class="p">),</span>
|
|
legend_title<span class="o">=</span><span class="s">"Share of workforce with jobs lost or threatened by trade"</span><span class="p">,</span> font_size<span class="o">=</span><span class="m">3</span><span class="p">,</span>
|
|
brewer_pal<span class="o">=</span><span class="s">"Blues"</span><span class="p">,</span> text_color<span class="o">=</span><span class="s">"black"</span><span class="p">,</span>
|
|
plot_title<span class="o">=</span><span class="s">"1994-2000"</span><span class="p">,</span> title_position<span class="o">=</span><span class="s">"bottom"</span><span class="p">)</span>
|
|
|
|
gg
|
|
</pre></div>
|
|
|
|
<p><img src="https://raw.githubusercontent.com/hrbrmstr/statebins/master/README_files/figure-markdown_github/unnamed-chunk-31.png" alt="plot of chunk unnamed-chunk-3"></p>
|
|
|
|
<div class="highlight highlight-r"><pre><span class="c1"># continuous scale, legend on top</span>
|
|
|
|
gg2 <span class="o"><-</span> statebins_continuous<span class="p">(</span>dat<span class="p">,</span> <span class="s">"state"</span><span class="p">,</span> <span class="s">"avgshare01_07"</span><span class="p">,</span>
|
|
legend_title<span class="o">=</span><span class="s">"Share of workforce with jobs lost or threatened by trade"</span><span class="p">,</span> legend_position<span class="o">=</span><span class="s">"top"</span><span class="p">,</span>
|
|
brewer_pal<span class="o">=</span><span class="s">"OrRd"</span><span class="p">,</span> text_color<span class="o">=</span><span class="s">"black"</span><span class="p">,</span> font_size<span class="o">=</span><span class="m">3</span><span class="p">,</span>
|
|
plot_title<span class="o">=</span><span class="s">"2001-2007"</span><span class="p">,</span> title_position<span class="o">=</span><span class="s">"bottom"</span><span class="p">)</span>
|
|
|
|
gg2
|
|
</pre></div>
|
|
|
|
<p><img src="https://raw.githubusercontent.com/hrbrmstr/statebins/master/README_files/figure-markdown_github/unnamed-chunk-32.png" alt="plot of chunk unnamed-chunk-3"></p>
|
|
|
|
<div class="highlight highlight-r"><pre><span class="c1"># continuous scale, no legend</span>
|
|
|
|
gg3 <span class="o"><-</span> statebins_continuous<span class="p">(</span>dat<span class="p">,</span> <span class="s">"state"</span><span class="p">,</span> <span class="s">"avgshare08_12"</span><span class="p">,</span>
|
|
legend_title<span class="o">=</span><span class="s">"States"</span><span class="p">,</span> legend_position<span class="o">=</span><span class="s">"none"</span><span class="p">,</span>
|
|
brewer_pal<span class="o">=</span><span class="s">"Purples"</span><span class="p">,</span> text_color<span class="o">=</span><span class="s">"black"</span><span class="p">,</span> font_size<span class="o">=</span><span class="m">3</span><span class="p">,</span>
|
|
plot_title<span class="o">=</span><span class="s">"2008-2012"</span><span class="p">,</span> title_position<span class="o">=</span><span class="s">"bottom"</span><span class="p">)</span>
|
|
|
|
gg3
|
|
</pre></div>
|
|
|
|
<p><img src="https://raw.githubusercontent.com/hrbrmstr/statebins/master/README_files/figure-markdown_github/unnamed-chunk-33.png" alt="plot of chunk unnamed-chunk-3"></p>
|
|
|
|
<div class="highlight highlight-r"><pre><span class="c1"># or, more like the one in the WaPo article; i might be picking the wrong columns here. it's just for an example</span>
|
|
|
|
sb <span class="o"><-</span> <span class="kr">function</span><span class="p">(</span><span class="kp">col</span><span class="p">,</span> title<span class="p">)</span> <span class="p">{</span>
|
|
statebins<span class="p">(</span>dat<span class="p">,</span> <span class="s">"state"</span><span class="p">,</span><span class="kp">col</span><span class="p">,</span> brewer_pal<span class="o">=</span><span class="s">"Blues"</span><span class="p">,</span> text_color<span class="o">=</span><span class="s">"black"</span><span class="p">,</span> legend_position<span class="o">=</span><span class="s">"none"</span><span class="p">,</span> font_size<span class="o">=</span><span class="m">3</span><span class="p">,</span> plot_title<span class="o">=</span>title<span class="p">,</span> breaks<span class="o">=</span><span class="m">4</span><span class="p">,</span> labels<span class="o">=</span><span class="m">1</span><span class="o">:</span><span class="m">4</span><span class="p">)</span>
|
|
<span class="p">}</span>
|
|
</pre></div>
|
|
|
|
<div class="highlight highlight-r"><pre><span class="c1"># cheating and using <table> to arrange them below and also making a WaPo-like legend, </span>
|
|
<span class="c1"># since mucking with grid graphics margins/padding was not an option time-wise at the moment</span>
|
|
|
|
sb<span class="p">(</span><span class="s">"avgshare94_00"</span><span class="p">,</span> <span class="s">"1994-2000"</span><span class="p">)</span>
|
|
sb<span class="p">(</span><span class="s">"avgshare01_07"</span><span class="p">,</span> <span class="s">"2001-2007"</span><span class="p">)</span>
|
|
sb<span class="p">(</span><span class="s">"avgshare08_12"</span><span class="p">,</span> <span class="s">"2008-2012"</span><span class="p">)</span>
|
|
</pre></div>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<p></p>
|
|
<img src="https://raw.githubusercontent.com/hrbrmstr/statebins/master/tmp/statebins-composite.png" alt="img"><p>And, we'll throw in a gratuitous animation for good measure:</p>
|
|
|
|
<div class="highlight highlight-r"><pre><span class="c1"># data set from StatsAmerica - http://www.statsamerica.org/profiles/sip_index.html</span>
|
|
|
|
<span class="c1"># median household income from the ACS survey</span>
|
|
miacs <span class="o"><-</span> read.csv<span class="p">(</span><span class="s">"http://dds.ec/data/median-income-acs.csv"</span><span class="p">,</span> header<span class="o">=</span><span class="kc">TRUE</span><span class="p">,</span> stringsAsFactors<span class="o">=</span><span class="kc">FALSE</span><span class="p">)</span>
|
|
|
|
<span class="c1"># generate frames based on year</span>
|
|
<span class="kp">sapply</span><span class="p">(</span><span class="kp">unique</span><span class="p">(</span>miacs<span class="o">$</span>year<span class="p">),</span> <span class="kr">function</span><span class="p">(</span>year<span class="p">)</span> <span class="p">{</span>
|
|
|
|
png<span class="p">(</span>file<span class="o">=</span><span class="kp">sprintf</span><span class="p">(</span><span class="s">"tmp/household%d.png"</span><span class="p">,</span> year<span class="p">),</span>
|
|
type<span class="o">=</span><span class="s">"quartz"</span><span class="p">,</span> antialias<span class="o">=</span><span class="s">"subpixel"</span><span class="p">,</span> width<span class="o">=</span><span class="m">800</span><span class="p">,</span> height<span class="o">=</span><span class="m">600</span><span class="p">)</span>
|
|
|
|
rng <span class="o"><-</span> <span class="kp">floor</span><span class="p">(</span><span class="kp">range</span><span class="p">(</span>miacs<span class="p">[</span>miacs<span class="o">$</span>year<span class="o">==</span>year<span class="p">,]</span><span class="o">$</span>mh_inc<span class="p">))</span>
|
|
|
|
ggtmp <span class="o"><-</span> statebins<span class="p">(</span>miacs<span class="p">[</span>miacs<span class="o">$</span>year<span class="o">==</span>year<span class="p">,],</span> <span class="s">"state"</span><span class="p">,</span> <span class="s">"mh_inc"</span><span class="p">,</span>
|
|
legend_title<span class="o">=</span><span class="s">"States"</span><span class="p">,</span> legend_position<span class="o">=</span><span class="s">"none"</span><span class="p">,</span>
|
|
brewer_pal<span class="o">=</span><span class="s">"Greens"</span><span class="p">,</span> text_color<span class="o">=</span><span class="s">"black"</span><span class="p">,</span> font_size<span class="o">=</span><span class="m">3</span><span class="p">,</span>
|
|
plot_title<span class="o">=</span><span class="kp">sprintf</span><span class="p">(</span><span class="s">"Median Household Income (ACS) %d\n$%s - $%s"</span><span class="p">,</span> year<span class="p">,</span> comma<span class="p">(</span>rng<span class="p">[</span><span class="m">1</span><span class="p">]),</span> comma<span class="p">(</span>rng<span class="p">[</span><span class="m">2</span><span class="p">])),</span> title_position<span class="o">=</span><span class="s">"top"</span><span class="p">)</span>
|
|
|
|
<span class="kp">print</span><span class="p">(</span>ggtmp<span class="p">)</span>
|
|
|
|
dev.off<span class="p">()</span>
|
|
|
|
<span class="p">})</span>
|
|
|
|
<span class="c1"># animate them with ImageMagick</span>
|
|
<span class="kp">system</span><span class="p">(</span><span class="s">"convert -background white -alpha remove -layers OptimizePlus -delay 150 tmp/*.png -loop 1 tmp/household.gif"</span><span class="p">)</span>
|
|
</pre></div>
|
|
|
|
<p></p>
|
|
<img src="https://raw.githubusercontent.com/hrbrmstr/statebins/master/tmp/household.gif" alt="img"><h3>
|
|
<a name="test-results" class="anchor" href="#test-results"><span class="octicon octicon-link"></span></a>Test Results</h3>
|
|
|
|
<div class="highlight highlight-r"><pre><span class="kn">library</span><span class="p">(</span>statebins<span class="p">)</span>
|
|
<span class="kn">library</span><span class="p">(</span>testthat<span class="p">)</span>
|
|
|
|
<span class="kp">date</span><span class="p">()</span>
|
|
</pre></div>
|
|
|
|
<pre><code>## [1] "Tue Aug 26 17:53:56 2014"
|
|
</code></pre>
|
|
|
|
<div class="highlight highlight-r"><pre>test_dir<span class="p">(</span><span class="s">"tests/"</span><span class="p">)</span>
|
|
</pre></div>
|
|
|
|
<pre><code>## basic functionality :
|
|
</code></pre>
|
|
</section>
|
|
<footer>
|
|
<p><small>Hosted on <a href="http://pages.github.com">GitHub Pages</a> using the Dinky theme</small></p>
|
|
</footer>
|
|
</div>
|
|
<!--[if !IE]><script>fixScale(document);</script><![endif]-->
|
|
|
|
</body>
|
|
</html>
|
|
|