r - ggmap のコロプレスが正しくプロットされない

Question

世界で最も奇妙なコロプレスを作ったと思います。

コードは簡単です:

df$cut <- cut_interval(df$Count, 5)

ggplot(df, aes(lon, lat)) +
  geom_polygon(aes(fill = df$cut), colour = alpha("white", 1/2), size = 0.2) + 
  geom_polygon(data = df , colour = "white", fill = NA) +
  scale_fill_brewer(palette = "PuRd")

（データフレームのPastebinを参照してくださいdput）

しかし、マップはクレイジーです。

どこで私は間違えましたか？

他のコードスニペットを見ると、これを機能させる方法がわかりません。

Answer 1

次のようにコロプレスをプロットできます。

library(ggplot2)
library(XML)
tab <- readHTMLTable("http://www.50states.com/abbreviations.htm", which=1)
df$region <- tolower(tab[match(df$State, tab[, 2]), 1])
states <- map_data("state")
choro <- merge(states, df, sort = FALSE, by = "region")
choro <- choro[order(choro$order), ]
ggplot(choro, aes(long, lat.x)) +
  geom_polygon(aes(group = group, fill = Count), colour="grey55") +
  coord_quickmap() + 
  facet_wrap(~Year)

まず、 の地域名と の地域名を一致させる必要がありdf$Stateますstates$region。次に、マップ データがデータ フレームとマージされ、整理されます。最後に、プロットは ggplot を使用したケーキです。