choroplethrで可視化

この話の一部をchoroplethrでやった場合の話。

http://rpubs.com/gg_hatano/76318

library("choroplethr")
library("choroplethrAdmin1")
library("dplyr")

## 
## Attaching package: 'dplyr'
## 
## The following object is masked from 'package:stats':
## 
##     filter
## 
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

# data
data(df_japan_census)
data_actress <- data.frame(region=c("tokyo", "kanagawa", "hokkaido"),
                           value=c(1221, 377, 105))
df_japan_census <- df_japan_census %>% left_join(data_actress)

## Joining by: "region"

# visulize
admin1_choropleth(country.name = "japan",
                  df           = df_japan_census,
                  title        = "Best 3",
                  legend       = "number"
                  )

## Warning in min(xx[xx > upper]): min の引数に有限な値がありません: Inf
## を返します

## Warning in self$bind(): The following regions were missing and are being
## set to NA: NA, hiroshima, okayama, shimane, tottori, yamaguchi, saga,
## fukuoka, kumamoto, miyazaki, ehime, kagawa, kochi, oita, tokushima, aichi,
## gifu, ishikawa, mie, nagano, shizuoka, toyama, fukui, hyogo, kyoto, nara,
## osaka, shiga, wakayama, chiba, ibaraki, saitama, tochigi, yamanashi,
## akita, aomori, fukushima, iwate, miyagi, niigata, yamagata, nagasaki,
## kagoshima, okinawa, gunma