在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並提取了多邊形，它工作正常。