在ggplot中使用topoJSON

Question

我想绘制（使用ggplot）从https://pitchinteractiveinc.github.io/tilegrams/生成的topoJSON文件。

我用下面的代码来尝试绘制示例NPR 1对1的数据：

library(rgeos) 
library(rgdal) 
library(ggplot2) 
library(dplyr) 
map = readOGR("data/npr.json", "tiles") 
map_df <- fortify(map) 
gg = ggplot(data = map_df, aes(long,lat, group=group)) 
gg = gg + geom_polygon(colour="gray65", size=1.0) 
print(gg) 

结果是不正确的。

我试着geom_map密谋这一点，并试图增加coord_equal并没有影响coord_map。

我也尝试绘制一个多边形，并得到下面的图像。也许它表明多边形的点的顺序不正确？任何人有关于如何纠正的想法？

Answer 1

其实，这些问题似乎是由readOGR完成转换。我手动导入了json并提取了多边形，它工作正常。