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")

（有关dput数据框的信息，请参阅Pastebin

但地图很疯狂：

我哪里出错了？

查看其他code代码段，我似乎无法弄清楚如何使其发挥作用。

Answer 1

你可以像这样绘制一个等值线：

df$State

首先，您必须将states$region中的地区名称与{{1}}中的地区名称相匹配。然后，地图数据将与您的数据框合并并按顺序排列。最后，情节是使用ggplot的小菜一碟。

react-native-file-upload