From 394d4421520394c3e1ca4559a705655da8d7f430 Mon Sep 17 00:00:00 2001 From: hrbrmstr Date: Tue, 26 Aug 2014 15:37:24 -0400 Subject: [PATCH] final markdown touches --- README.md | 4 +- _README.Rmd | 2 - _README.html | 243 ----------------------------------------------------------- _README.md | 182 -------------------------------------------- 4 files changed, 1 insertion(+), 430 deletions(-) delete mode 100644 _README.html delete mode 100644 _README.md diff --git a/README.md b/README.md index 086ee01..912111a 100644 --- a/README.md +++ b/README.md @@ -127,8 +127,6 @@ sb("avgshare08_12", "2008-2012") --> -![img](./tmp/household.gif) - And, we'll throw in a gratuitous animation for good measure: ``` {.r} @@ -173,7 +171,7 @@ library(testthat) date() ``` - ## [1] "Tue Aug 26 15:34:24 2014" + ## [1] "Tue Aug 26 15:36:49 2014" ``` {.r} test_dir("tests/") diff --git a/_README.Rmd b/_README.Rmd index 71efa95..656ea27 100644 --- a/_README.Rmd +++ b/_README.Rmd @@ -123,8 +123,6 @@ sb("avgshare08_12", "2008-2012") --> -![img](./tmp/household.gif) - And, we'll throw in a gratuitous animation for good measure: ```{r eval=FALSE} diff --git a/_README.html b/_README.html deleted file mode 100644 index 2b00730..0000000 --- a/_README.html +++ /dev/null @@ -1,243 +0,0 @@ - - - - - - - - - - - - - - -README - - - - - - - - - - - - - - - - - - - - -
- - - - - - - -

statebins is an alternative to choropleth maps for US States

-

The following functions are implemented:

- -
-

TODO

-
    -
  • The current version is usable, but I think the plot margins and the legends need work
    • -
  • Apply algorithm to switch to light-on-dark depending on the background tile color
    • -
-
-
-

News

-
    -
  • Version 1.0.0 released
    • -
-
-
-

Installation

-
devtools::install_github("hrbrmstr/statebins")
-
-
-

Usage

-

All of the following examples use the WaPo data. It looks like the colums 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).

-
library(statebins)
-
-# current verison
-packageVersion("statebins")
-
## [1] '1.0'
-
# the original wapo data
-
-dat <- read.csv("http://www.washingtonpost.com/wp-srv/special/business/states-most-threatened-by-trade/states.csv?cache=1", stringsAsFactors=FALSE)
-
-gg <- statebins(dat, "state", "avgshare94_00", breaks=4, 
-                labels=c("0-1", "1-2", "2-3", "3-4"),
-                legend_title="Share of workforce with jobs lost or threatened by trade", font_size=3, 
-                brewer_pal="Blues", text_color="black", 
-                plot_title="1994-2000", title_position="bottom")
-
-gg
-

plot of chunk unnamed-chunk-3

-
# continuous scale, legend on top
-
-gg2 <- statebins_continuous(dat, "state", "avgshare01_07",
-                            legend_title="Share of workforce with jobs lost or threatened by trade", legend_position="top",
-                            brewer_pal="OrRd", text_color="black", font_size=3, 
-                            plot_title="2001-2007", title_position="bottom")
-
-gg2
-

plot of chunk unnamed-chunk-3

-
# continuous scale, no legend
-
-gg3 <- statebins_continuous(dat, "state", "avgshare08_12",
-                            legend_title="States", legend_position="none",
-                            brewer_pal="Purples", text_color="black", font_size=3, 
-                            plot_title="2008-2012", title_position="bottom")
-
-gg3
-

plot of chunk unnamed-chunk-3

-
# or, more like the one in the WaPo article; i might be picking the wrong columns here. it's just for an example
-
-sb <- function(col, title) {
-  statebins(dat, "state",col, brewer_pal="Blues", text_color="black", legend_position="none", font_size=3, plot_title=title, breaks=4, labels=1:4)
-}
-
# cheating and using <table> to arrange them below and also making a WaPo-like legend, 
-# since mucking with grid graphics margins/padding was not an option time-wise at the moment
-
-sb("avgshare94_00", "1994-2000")
-sb("avgshare01_07", "2001-2007")
-sb("avgshare08_12", "2008-2012")
-

Share of workforce with jobs lost or threatened by trade

- - - - - - - - -
-  - -  - -  - -  -
-Smallest share - -Largest -
- - -
- -

plot of chunk f1994

-		 - -

plot of chunk f2001

-
- -

plot of chunk f2008

-		 -  -
- -

And, we’ll throw in a gratuitous animation for good measure:

-
# data set from StatsAmerica - http://www.statsamerica.org/profiles/sip_index.html
-
-# median household income from the ACS survey
-miacs <- read.csv("http://dds.ec/data/median-income-acs.csv", header=TRUE, stringsAsFactors=FALSE)
-
-# generate frames based on year
-sapply(unique(miacs$year), function(year) {
-  
-  png(file=sprintf("tmp/household%d.png", year),
-      type="quartz", antialias="subpixel", width=800, height=600)
-  
-  rng <- floor(range(miacs[miacs$year==year,]$mh_inc))
-  
-  ggtmp <- statebins(miacs[miacs$year==year,], "state", "mh_inc",
-                   legend_title="States", legend_position="none",
-                   brewer_pal="Greens", text_color="black", font_size=3,
-                   plot_title=sprintf("Median Household Income (ACS) %d\n$%s - $%s", year, comma(rng[1]), comma(rng[2])), title_position="top")
-  
-  print(ggtmp)
-  
-  dev.off()
-  
-})
-
-# animate them with ImageMagick
-system("convert -background white -alpha remove -layers OptimizePlus -delay 150 tmp/*.png -loop 1 tmp/household.gif")
-
-img -
- -
-
-

Test Results

-
library(statebins)
-library(testthat)
-
-date()
-
## [1] "Tue Aug 26 15:29:05 2014"
-
test_dir("tests/")
-
## basic functionality :
-
- - -
- - - - - - - - diff --git a/_README.md b/_README.md deleted file mode 100644 index 086ee01..0000000 --- a/_README.md +++ /dev/null @@ -1,182 +0,0 @@ - - -statebins is an alternative to choropleth maps for US States - -The following functions are implemented: - -- `statebins` - creates "statebin" charts in the style of - This version uses discrete `RColorBrewer` scales, binned by the "breaks" parameter. -- `statebins_continuous` - creates "statebin" charts in the style of - This version uses a continuous scale based on `RColorBrewer` scales (passing in a 6 element `RColorBrewer` palette to `scale_fill_gradientn`). - -### TODO - -- The current version is usable, but I think the plot margins and the legends need work -- Apply algorithm to switch to light-on-dark depending on the background tile color - -### News - -- Version `1.0.0` released - -### Installation - -``` {.r} -devtools::install_github("hrbrmstr/statebins") -``` - -### Usage - -All of the following examples use the [WaPo data](http://www.washingtonpost.com/wp-srv/special/business/states-most-threatened-by-trade/states.csv?cache=1). It looks like the colums 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). - -``` {.r} -library(statebins) - -# current verison -packageVersion("statebins") -``` - - ## [1] '1.0' - -``` {.r} -# the original wapo data - -dat <- read.csv("http://www.washingtonpost.com/wp-srv/special/business/states-most-threatened-by-trade/states.csv?cache=1", stringsAsFactors=FALSE) - -gg <- statebins(dat, "state", "avgshare94_00", breaks=4, - labels=c("0-1", "1-2", "2-3", "3-4"), - legend_title="Share of workforce with jobs lost or threatened by trade", font_size=3, - brewer_pal="Blues", text_color="black", - plot_title="1994-2000", title_position="bottom") - -gg -``` - -![plot of chunk unnamed-chunk-3](./_README_files/figure-markdown_github/unnamed-chunk-31.png) - -``` {.r} -# continuous scale, legend on top - -gg2 <- statebins_continuous(dat, "state", "avgshare01_07", - legend_title="Share of workforce with jobs lost or threatened by trade", legend_position="top", - brewer_pal="OrRd", text_color="black", font_size=3, - plot_title="2001-2007", title_position="bottom") - -gg2 -``` - -![plot of chunk unnamed-chunk-3](./_README_files/figure-markdown_github/unnamed-chunk-32.png) - -``` {.r} -# continuous scale, no legend - -gg3 <- statebins_continuous(dat, "state", "avgshare08_12", - legend_title="States", legend_position="none", - brewer_pal="Purples", text_color="black", font_size=3, - plot_title="2008-2012", title_position="bottom") - -gg3 -``` - -![plot of chunk unnamed-chunk-3](./_README_files/figure-markdown_github/unnamed-chunk-33.png) - -``` {.r} -# or, more like the one in the WaPo article; i might be picking the wrong columns here. it's just for an example - -sb <- function(col, title) { - statebins(dat, "state",col, brewer_pal="Blues", text_color="black", legend_position="none", font_size=3, plot_title=title, breaks=4, labels=1:4) -} -``` - -``` {.r} -# cheating and using to arrange them below and also making a WaPo-like legend, -# since mucking with grid graphics margins/padding was not an option time-wise at the moment - -sb("avgshare94_00", "1994-2000") -sb("avgshare01_07", "2001-2007") -sb("avgshare08_12", "2008-2012") -``` - - - - - -![img](./tmp/household.gif) - -And, we'll throw in a gratuitous animation for good measure: - -``` {.r} -# data set from StatsAmerica - http://www.statsamerica.org/profiles/sip_index.html - -# median household income from the ACS survey -miacs <- read.csv("http://dds.ec/data/median-income-acs.csv", header=TRUE, stringsAsFactors=FALSE) - -# generate frames based on year -sapply(unique(miacs$year), function(year) { - - png(file=sprintf("tmp/household%d.png", year), - type="quartz", antialias="subpixel", width=800, height=600) - - rng <- floor(range(miacs[miacs$year==year,]$mh_inc)) - - ggtmp <- statebins(miacs[miacs$year==year,], "state", "mh_inc", - legend_title="States", legend_position="none", - brewer_pal="Greens", text_color="black", font_size=3, - plot_title=sprintf("Median Household Income (ACS) %d\n$%s - $%s", year, comma(rng[1]), comma(rng[2])), title_position="top") - - print(ggtmp) - - dev.off() - -}) - -# animate them with ImageMagick -system("convert -background white -alpha remove -layers OptimizePlus -delay 150 tmp/*.png -loop 1 tmp/household.gif") -``` - -
-![img](./tmp/household.gif) -
- -### Test Results - -``` {.r} -library(statebins) -library(testthat) - -date() -``` - - ## [1] "Tue Aug 26 15:34:24 2014" - -``` {.r} -test_dir("tests/") -``` - - ## basic functionality :