【R】コロプレス地図をggplotにて

地域を変数の値に応じて塗り分けた地図をggplotを利用して描いてみる。

crimes <- data.frame(state=tolower(rownames(USArrests)), USArrests)

library(maps)
library(ggmap)

states_map <- map_data("state")

crime_map<-merge(states_map, crimes, by.x="region", by.y="state")

library(plyr)
crime_map<-arrange(crime_map, group, order)

ggplot(crime_map, aes(x=long, y=lat, group=group, fill=Assault))+ geom_polygon()+coord_map("polyconic")

ggplot(crimes, aes(map_id=state, fill=Assault))+ 
  geom_map(map=states_map, colour="black") +
  scale_fill_gradient2(low="#559999", mid="grey90", high="#BB650B", midpoint=median(crimes$Assault)) +
  expand_limits(x=states_map$long, y=states_map$lat) +
  coord_map("polyconic")

このように色を変えて表示しています。

参考：『R グラフィックスクックブック』Winston Chang著、オライリージャパン Copyright 2013 , ISBN978-4-87311-653-2