trulia / choroplethr Goto Github PK

library(choroplethr)

region <-     c("romania","ukraine","russia","spain","hungary","italy","poland","bulgaria","portugal","turkey","greece","united kingdom","sweden","france","netherlands","belgium","germany","denmark","ireland","iceland","switzerland","norway")

value <- 
  c(12.5,10.5,10.5,7.5,7,9.5,6.3,6.5,7,5.5,5.1,4.2,4.6,3.7,2.2,4.5,3.3,2.4,2.1,2.2,2.5,1.8)


data <- data.frame(region=region,value=value)
str(data)
data$region <- as.character(data$region)

country_choropleth(data, zoom = data$region, buckets=1,
                   title="Av working days to earn same as CEO does in hour, 2012")

Error in solve.default(M) : 'a' must be a complex matrix

No problems with other buckets value
choroplethr_2.1.1

I am getting the following error

choroplethr(df_pop_county, "county", title="2012 Population Estimates")
Error in if (nrow(layer_data) == 0) return() : argument is of length zero

If I make a state level request

choroplethr(df_pop_state, "state", title="2012 Population Estimates")

It works as expected.

It appears that df_pop_county is at least initialized

head(df_pop_county)
region value
1 1001 54590
2 1003 183226
3 1005 27469
4 1007 22769
5 1009 57466
6 1011 10779

I've reinstalled the choroplethr package, to no avail.
I'm using a Mac OSX 10.9.4, R.Version() =
$version.string
[1] "R version 3.0.3 (2014-03-06)"

Note, I have a county level data set that I've created, and the following call does work as expected:
choroplethr(tempDf, lod="county", num_buckets=6, states="WA", warn_na=F)

I've just tried choroplethr and its amazing package, this is the easiest way to chart on maps. But it seems to be only available for US? Or I don't know how to do it.

library(choroplethr)
int <- data.frame(region=c("Alabama", "Italy", "France"), value=c(1000,2000,3000))
choroplethr(int, "state", num_buckets=1, title="Europe!") 

I get only the US map. And also zipcode package contains only US cities as per
http://cran.r-project.org/web/packages/zipcode/zipcode.pdf

Would it be possible to extend , and in what way, to select centring point on the globe, zoom level, and have international maps like US?

All the best

Using Rstudio in Ubuntu 20.04. I already have devtools and stringr loaded.

Tried all these to no avail
install_github('arilamstein/[email protected]')
install_github('choroplethr', 'trulia')
install.packages("choroplethr")

There were several FIPS code changes in 2015. Looks like the "regions" used in choroplethr reflect the codes for 2012-2014. Therefore, any county data that is 2015 or newer won't map.

Is there a plan to update the FIPS codes or provide a crosswalk function? I've included a reproducible example below that attempts to map data from the BLS for May 2015 as well as a hyperlink that outlines some of the recent FIPS changes.

library(dplyr)
library(choroplethr)
temp<-tempfile()
download.file("http://www.bls.gov/lau/laucntycur14.txt", temp)
df <- read.csv(temp,
               fill=TRUE,header=FALSE,sep="|",skip=6,stringsAsFactors=FALSE,strip.white=TRUE)
colnames(df) <- c("area_code", "fips_state", "fips_county", "area_title", "period",
                         "labor_force", "employed", "unemployed", "unemployed_rate")
unlink(temp)
df$fips_county <- formatC(df$fips_county, width = 3, format = "d", flag = "0")
df$fips_state <- formatC(df$fips_state, width = 2, format = "d", flag = "0")
df$fips <- paste(df$fips_state,df$fips_county,sep="")
df <- df %>%
    subset(period == "May-15" & fips_state != 72, 
           select = c("fips", "labor_force")) %>%
    rename("region"=fips, "value"=labor_force) %>%
    mutate(region = as.numeric(region)) %>%
    mutate(value = as.numeric(gsub(",", "", as.character(value))))

county_choropleth(df)

example range [16703,21535]

I love this function as it was unbelievable easy to create a map... but, how can I generate a map w/o labels? The map is otherwise beautiful but on my screen the labels are large, ugly, and overlap each other in the NE states, and thus are unsuited for publication. Please reconsider this default and/or enable a switch. Thanks!

data(df_pop_state)
state_choropleth(df_pop_state,
title="US 2012 State Population Estimates",
legend="Population",
buckets=1)

The "9. Creating Your Own Maps" link is currently broken in your Readme.md.
It is pointing to:
https://cran.r-project.org/web/packages/choroplethr/vignettes/i-creating-your-own-maps.html
but should be pointing to:
https://cran.r-project.org/web/packages/choroplethr/vignettes/h-creating-your-own-maps.html

Hi
Nice work with the update.
The states argument of choroplethr_acs (and choroplethr)
is defined as "A vector of states to render. Defaults to state.abb"
This implies more than one state
But although either
choroplethr_acs(tableId="B19301", lod="county", states="CA")
or
choroplethr_acs(tableId="B19301", lod="county", states=c("OR"))
work fine
choroplethr_acs(tableId="B19301", lod="county", states=c("CA,OR"))
causes the Error: states %in% state.abb is not TRUE

I have found that there are often instances of tens if not hundreds of NA's occurring with county data. It seems to me that they are either shown as white or the faintest color and thus may get confused with low numbers. It would be helpful if they were highlighted some other way

In 1.2, if in R an ACS table called with get_acs_df has more than one value column, a list of columns is provided in the console for the user to choose from. On entry, the appropriate two column data frame is provided

For a web shinyApp, it would be extremely helpful to have that list returned in,say, a get_acs_columns() function. This data could then be displayed in the form of radio-buttons for the user to select from. The selection then gets passed back to the get_acs_df function with this added argument as via the console and a map can be created based on that column

Hi,

Is there an easy way to set cutpoints for filling the polygons? I want to generate a series of choropleths, and would like to have the same pre-defined cutpoints for each so they are comparable. Please let me know how this could be done. Thanks!

In the animation, you can click - past frame 1, and + past max index. The buttons should not allow this.

choroplethr_acs(tableId="B19301", lod="state") produces a map where the color deepens as the value rises, which makes visual sense

choroplethr_acs(tableId="B19301", lod="state", num_buckets = 1) the reverse applies with the higher values represented by a lighter color

Hi
I have developed a Shiny app succesfully using choroplethr locally but am getting errors when porting it to
glimmer.rstudio.com/pssguy/acs

Apparently this may be as I developed it under R 3.0.2 whilst glimmer is running at 2.15
The only dependency I saw on the description of your package is acs. Can you tell me whether there is an R version dependency

Thanks

I get a couple of warnings when I use the country_choropleth function. Also when I use coord_map() it does something weird to the map, see below.

library(choroplethr)
library(choroplethrMaps)
library(ggplot2)
data(country.map)
region <- unique(country.map$region)
dat <- data.frame(region, value = 1:length(region), stringsAsFactors = FALSE)
country_choropleth(dat)
#> Warning: `axis.ticks.margin` is deprecated. Please set `margin` property of
#> `axis.text` instead
#> Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
#> instead

country_choropleth(dat) + coord_map()
#> Warning: `axis.ticks.margin` is deprecated. Please set `margin` property of
#> `axis.text` instead

#> Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
#> instead

devtools::session_info()
#> Session info -------------------------------------------------------------
#>  setting  value                       
#>  version  R version 3.4.2 (2017-09-28)
#>  system   x86_64, linux-gnu           
#>  ui       X11                         
#>  language en_US                       
#>  collate  en_US.UTF-8                 
#>  tz       Europe/Zurich               
#>  date     2017-11-27
#> Packages -----------------------------------------------------------------
#>  package         * version    date      
#>  acepack           1.4.1      2016-10-29
#>  acs               2.1.2      2017-10-10
#>  assertthat        0.2.0      2017-04-11
#>  backports         1.1.0      2017-05-22
#>  base            * 3.4.2      2017-10-27
#>  base64enc         0.1-3      2015-07-28
#>  bindr             0.1        2016-11-13
#>  bindrcpp          0.2        2017-06-17
#>  bitops            1.0-6      2013-08-17
#>  checkmate         1.8.3      2017-07-03
#>  choroplethr     * 2.2.0      2017-11-27
#>  choroplethrMaps * 1.0.1      2017-01-31
#>  cluster           2.0.6      2017-03-16
#>  colorspace        1.3-2      2016-12-14
#>  compiler          3.4.2      2017-10-27
#>  data.table        1.10.4     2017-02-01
#>  datasets        * 3.4.2      2017-10-27
#>  devtools          1.13.3     2017-08-02
#>  digest            0.6.12     2017-01-27
#>  dplyr             0.7.4      2017-09-28
#>  evaluate          0.10.1     2017-06-24
#>  foreign           0.8-69     2017-06-21
#>  formatR           1.5        2017-04-25
#>  Formula           1.2-2      2017-07-10
#>  ggplot2         * 2.2.1      2016-12-30
#>  glue              1.2.0      2017-10-29
#>  graphics        * 3.4.2      2017-10-27
#>  grDevices       * 3.4.2      2017-10-27
#>  grid              3.4.2      2017-10-27
#>  gridExtra         2.2.1      2016-02-29
#>  gtable            0.2.0      2016-02-26
#>  Hmisc             4.0-3      2017-05-02
#>  htmlTable         1.9        2017-01-26
#>  htmltools         0.3.6      2017-04-28
#>  htmlwidgets       0.9        2017-07-10
#>  httr              1.2.1.9000 2017-01-20
#>  knitr             1.17       2017-08-10
#>  labeling          0.3        2014-08-23
#>  lattice           0.20-35    2017-03-25
#>  latticeExtra      0.6-28     2016-02-09
#>  lazyeval          0.2.0      2016-06-12
#>  magrittr          1.5        2014-11-22
#>  mapproj           1.2-4      2015-08-03
#>  maps              3.1.1      2016-07-27
#>  Matrix            1.2-11     2017-08-16
#>  memoise           1.1.0      2017-04-21
#>  methods         * 3.4.2      2017-10-27
#>  munsell           0.4.3      2016-02-13
#>  nnet              7.3-12     2016-02-02
#>  pkgconfig         2.0.1      2017-03-21
#>  plyr              1.8.3      2015-06-12
#>  R6                2.2.2      2017-06-17
#>  RColorBrewer      1.1-2      2014-12-07
#>  Rcpp              0.12.14    2017-11-23
#>  RCurl             1.95-4.8   2016-03-01
#>  rlang             0.1.4      2017-11-05
#>  rmarkdown         1.8        2017-11-17
#>  rpart             4.1-11     2017-04-21
#>  rprojroot         1.2        2017-01-16
#>  scales            0.5.0      2017-08-24
#>  splines           3.4.2      2017-10-27
#>  stats           * 3.4.2      2017-10-27
#>  stringi           1.1.5      2017-04-07
#>  stringr           1.2.0      2017-02-18
#>  survival          2.41-3     2017-04-04
#>  tibble            1.3.4      2017-08-22
#>  tools             3.4.2      2017-10-27
#>  utils           * 3.4.2      2017-10-27
#>  WDI               2.4        2013-08-20
#>  withr             2.1.0      2017-11-01
#>  XML               3.98-1.7   2017-05-03
#>  yaml              2.1.14     2016-11-12
#>  source                             
#>  CRAN (R 3.4.0)                     
#>  CRAN (R 3.4.2)                     
#>  CRAN (R 3.4.0)                     
#>  CRAN (R 3.4.0)                     
#>  local                              
#>  CRAN (R 3.3.1)                     
#>  cran (@0.1)                        
#>  cran (@0.2)                        
#>  CRAN (R 3.3.0)                     
#>  cran (@1.8.3)                      
#>  Github (trulia/choroplethr@4b75fd9)
#>  CRAN (R 3.4.2)                     
#>  CRAN (R 3.4.0)                     
#>  CRAN (R 3.3.2)                     
#>  local                              
#>  CRAN (R 3.3.2)                     
#>  local                              
#>  CRAN (R 3.4.2)                     
#>  CRAN (R 3.3.2)                     
#>  CRAN (R 3.4.2)                     
#>  cran (@0.10.1)                     
#>  CRAN (R 3.4.1)                     
#>  CRAN (R 3.4.1)                     
#>  cran (@1.2-2)                      
#>  CRAN (R 3.4.2)                     
#>  cran (@1.2.0)                      
#>  local                              
#>  local                              
#>  local                              
#>  CRAN (R 3.2.5)                     
#>  CRAN (R 3.3.0)                     
#>  cran (@4.0-3)                      
#>  cran (@1.9)                        
#>  cran (@0.3.6)                      
#>  cran (@0.9)                        
#>  Github (gaborcsardi/httr@30001d4)  
#>  cran (@1.17)                       
#>  CRAN (R 3.3.0)                     
#>  CRAN (R 3.3.3)                     
#>  CRAN (R 3.3.1)                     
#>  CRAN (R 3.3.1)                     
#>  CRAN (R 3.3.0)                     
#>  CRAN (R 3.3.0)                     
#>  CRAN (R 3.4.0)                     
#>  CRAN (R 3.4.1)                     
#>  CRAN (R 3.4.0)                     
#>  local                              
#>  CRAN (R 3.3.0)                     
#>  CRAN (R 3.4.1)                     
#>  CRAN (R 3.4.1)                     
#>  CRAN (R 3.3.0)                     
#>  cran (@2.2.2)                      
#>  CRAN (R 3.3.0)                     
#>  cran (@0.12.14)                    
#>  CRAN (R 3.3.2)                     
#>  cran (@0.1.4)                      
#>  cran (@1.8)                        
#>  CRAN (R 3.4.0)                     
#>  CRAN (R 3.3.2)                     
#>  cran (@0.5.0)                      
#>  local                              
#>  local                              
#>  CRAN (R 3.4.0)                     
#>  CRAN (R 3.3.3)                     
#>  CRAN (R 3.4.1)                     
#>  cran (@1.3.4)                      
#>  local                              
#>  local                              
#>  CRAN (R 3.4.2)                     
#>  cran (@2.1.0)                      
#>  CRAN (R 3.4.0)                     
#>  CRAN (R 3.3.2)

Pressing play on an animation that is finished should restart the animation.

I was just viewing an animation that Arun created: http://consilium.io/visualize2/

When it was completed I wanted to view it again. I clicked play, which I expect many people will do, but it did nothing. I had to use the slider to move it back to the beginning. I think that when an animation is completed, and a user clicks play, it should restart the animation.

I can't tell if the play and stop buttons are red and green, or in fact the same color. If they are the same color, please close this issue. Otherwise, please google something like "web color blind friendly color palette" and choose another color scheme.

Here is the incidence of color-blindness: http://en.wikipedia.org/wiki/Color_blindness#Epidemiology

The upcoming scales 1.0.0 release is introducing a generic number formatter to power the formatting functions like comma() which choroplethr imports. This generic formatter relies on round_any(), now exported from scales 1.0.0, which has no method for class character. Unfortunately our revdep checks show that our change will break an example in your package. It seems that the country_choroplethr() function in the below example is passing a character vector (some item for the guide/legend I think, perhaps specific to this data?) to scales::comma(). In the scales 0.5.0 this didn't fail because there is a character method for format() which comma() used to wrap, though I am unsure that it would have correctly added comma formatting to a character string as intended even then. Wanted to give you a heads up, we expect to release shortly.

library(choroplethr)
library(choroplethrMaps)

# demonstrate default options
data(df_pop_country)
country_choropleth(df_pop_country, "2012 World Bank Populate Estimates")
#> Warning in self$bind() :
#>  The following regions were missing and are being set to NA: namibia, western sahara, taiwan, antarctica, kosovo
#> Error in UseMethod("round_any") : 
#>  no applicable method for 'round_any' applied to an object of class "character"
#> Calls: <Anonymous> ... <Anonymous> -> f -> <Anonymous> -> f -> number -> round_any
#> Execution halted

Hi,

I am currently working on Mauritania MICS dataset and I wanted to map my results using chloropethr. When running my code, the map appears with one algerian region linked to the mauritanian region Adrar:

How can I fix this issue ?
Furthermore, some of the regions indicated by chloropethr for mauritanian wilayas (adrar, assaba, brakna, dakhlet nouadhibou, district de nouakchott, gorgol, guidimaka, hodh ech chargui, hodh el gharbi, inchiri, tagant, tiris zemmour, wilaya du trarza) don't correspond to the official ones (as we can find them on wikipedia: Adrar, Assaba, Brakna, Dakhlet Nouadhibou, Gorgol, Guidimakha, Hodh Ech Charguy, Hodh El Gharbi, Inchiri, Nouakchott, Tagant, Tiris Zemmour, Trarza).

Thank you in advance for your help,

Maud

Might ggplot2's relatively new subtitle and caption fields be added to the choroplethr functions? Code member "Stoney" provided in the private Ari Lamstein forum might make this addition easier to add.

Thanks for your great efforts made to this amazing package!

Would it be possible to support aliases of states so that it won't need data transformation before plotting if some state names appear as alias like USA to The United States of America?

In many data sources, state names are not quite usually recorded exactly in the official, full-length way. If some common aliases are supported, it would be much easier to use!

Thanks!

I'm making a US national choropleth using county level data. The colors for Alaska are miscolored for some reason. My R code for the map is:

cols<-c("white","#ffff00","#0000ff","#003400")
county_choropleth(dt)+scale_fill_manual(guide=FALSE,name="Relationship",values = cols,na.value="grey")

where data frame "dt" has two numeric columns, region and value. Region are the FIPS codes for counties (without leading zeros as its numeric). The colors are white, yellow, blue, and dark green. The values for Alaskan and Hawaiian counties are not out of the ordinary, but on the map they have weird shading that are not in the color palette. I've done this with different datasets and the same issue comes up. Here are two maps that use a different variable and the same color palette (same code above, just defining dt's value variable differently).
https://s26.postimg.org/ckntb25d5/levels_map.png
https://s26.postimg.org/w3sekf44p/test_map.png

Any clues as to what is going on here?

In your blog post the zipcode example reduces the map to one of just California
Looking to do the same with county results in a US map

df = get_acs_df("B01002", "county", column_idx = 2) # median age
df.map = bind_df_to_map(df, "county")
ca_county = render_choropleth(df.map, "county", "CA Counties", "Median Age", states="CA")
ca_county

Links from 5. onwards give a 404 from CRAN.

library(choroplethr)
library(choroplethrAdmin1)
library(ggplot2)
admin1_map("germany")

Output:

Two federal states, Bremen and Berlin, are missing (approx. positions indicated by red circles).

Note that Bremen has a discontinuous territory: Bremerhaven (part of Bremen) is shown but Bremen itself is not.

hi,

I am getting this error trying to install choroplethr -
install_github("choroplethr", "arilamstein")

Is this a known bug -

Installing github repo choroplethr/master from arilamstein
Downloading choroplethr.zip from https://github.com/arilamstein/choroplethr/archive/master.zip
Installing package from C:\Users\Hans\AppData\Local\Temp\RtmpuK9P98/choroplethr.zip
Installing choroplethr
"C:/PROGRA1/R/R-301.2/bin/i386/R" --vanilla CMD INSTALL
"C:\Users\Hans\AppData\Local\Temp\RtmpuK9P98\devtools2008e807481\choroplethr-master"
--library="C:/Users/Hans/Documents/R/win-library/3.0" --install-tests

Error: contains a blank line
Error: Command failed (1)

The only option currently, is to have buckets having an equal number of values in. When populations are skewed this is a bit misleading
For instance, at http://mytinyshinys.com/acs/ with settings state;other; and 9 groups, the first 7 groups cover 0-4,16% and the final two 4.16-13.91%
It would be nice to have the ability to determine maximum and minimum values and then divide the range by the number of buckets . So in this example, each bucket would have a range of 13.91/9 = 1.55. Ideally the user of a shiny app could toggle between alternatives

In addition, for someone producing a static map in R, the ability to set the ranges to more rational steps based on the data would be helpful. For example, if I wanted to publish the map referred to above I would like to set a vector of say (1,2,3,5,10,15) which would result in 6 groupings with the first 0-1%, 1-2% etc. The legend would look a lot neater and any explanatory text would read better when referring to the map

Links 4-10 in README.md does not match vignettes available at CRAN:
https://cran.r-project.org/web/packages/choroplethr/vignettes/

I see that the new vignettes are available in the vignettes folder here though.

I was a bit shocked by

> choro = StateChoropleth$new(df_president)
> choro$title = "2012 Election Results"
> choro$ggplot_scale = scale_fill_manual(name="Candidate", values=c("blue", "red"))
> choro$render()

to learn that Romney had carried NY, but that simply turned out to be a data entry error. However, I can't account for why the map displays both AK and HI as blue, when AK went red. I have similar mis-registration errors with my own data.

The vignettes you link to don't seem to exist any longer. 😞

Thank you for your package which gives very nice data and very documented.

I would like to use your package with a European map in order to replicate a map like state_choropleth(df_pop_state)

Do you know if, how is it possible ? Would you recommand another packge ?

Whenever I run choroplethr with the cowplot package loaded, unwanted lines appear under the choropleths.

library(choroplethr)
library(choroplethrMaps)
data(state.map)

region <- unique(state.map$region)
value <- rnorm(51)
df <- data.frame(region, value)

state_choropleth(df)

Works as expected:

But when I load cowplot, the lines start to appear:

library(cowplot)
state_choropleth(df)

</details>

I find that the code

choropleths = list()
for (i in 1:(ncol(df_president_ts)-1)) {
  df           = df_president_ts[, c(ncol(df_president_ts), i)]
  colnames(df) = c("region", "value")
  title        = paste0("Presidential Election Results: ", colnames(df_president_ts)[i])
 choropleths[[i]] = state_choropleth(df, title=title)
}

produces error
Error: anyDuplicated(self$user.df$region) == 0 is not TRUE

This works for me

for (i in 2:(ncol(df_president_ts))) {

  df           = df_president_ts[, c(1, i)]
  colnames(df) = c("region", "value")
  title        = paste0("Presidential Election Results: ", colnames(df_president_ts)[i])
  choropleths[[i-1]] = state_choropleth(df, title=title)
}

The current get_acs_df downloads all US info leaving the selection by state to the
render_choropleth function

This may be the appropriate option on occasion, but the time to download zip and county data
can take some time . would it be possible to set a state (or vector of states) argument within get_acs_df with a default of all? Provided, of course, that there was a time saving

Hi,

Is there an easy way to set cutpoints for filling the polygons? I want to generate a series of choropleths, and would like to have the same pre-defined cutpoints for each so they are comparable. Please let me know how this could be done. Thanks!

Thanks for making (and maintaining) this awesome package. I wanted to let you know that the vignette links in the readme are broken (i.e. the link to 2. US State Choropleths is broken

The top of the animation screen has a large integer in bold that takes up the entire div. This is the frame index, but it is not clear to users what this is when they start. I'm not sure if this was initially there for debug purposes or not.

I can see frame information being useful for people when they are analyzing or debugging their code, but I think that it should be less prominent, and should probably include a "of max" at the end. For example, perhaps to the right of the "+" sign it should says "1/", or "frame 1/<max".

If you wanted to be fancy we could let people enter a numnber and automatically jump to that frame. But that's not at all necessary - mainly this issue is about the prominence of information which I think will confuse some users, especially new users.

Sorry to bother you again and not even sure this is a choroplethr problem but

get_acs_df("B03001", "state",column_idx = 1)
Error in (function (classes, fdef, mtable) :
unable to find an inherited method for function ‘geography’ for signature ‘"matrix"’

I'm certain this was working yesterday
Some other tables have same problem, eg 04001.others are ok eg 02001