使用fortify（）或broom:：tidy（）在ggmap上绘制线条形状文件，生成类似多边形的输出

我正在使用

ggmap

和

broom:：tidy

函数将一个形状文件绘制成谷歌地图，以增强它（转换为数据帧），但出于某种原因，线条形状文件在谷歌地图上显示为多边形。我不知道是什么引起的。 可以下载shapefile

下面是我的代码：

library(rgdal)
library(rgeos)
library(ggplot2)
library(ggmap)
library(broom)
Route_shape <- readOGR(dsn = "Kaputa-Mporokoso.shp")
  crs(Route_shape) <- "+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0" 
    myMap <- get_map(location=Route_shape@bbox,
                       source="google", maptype="roadmap", crop=FALSE,colour = class)
      # Reformat shape for mapping purposes
      Route_shape_df <- broom::tidy(Route_shape)
      # Final map figure
      p <- ggmap(myMap) +
        geom_line(data = Route_shape_df, aes(x = long, y = lat, group=group),
                  colour = "red") 
p

库（rgdal）
图书馆（rgeos）
图书馆（GG2）
图书馆（ggmap）
图书馆（扫帚）
Route_shape我设法解决了这个问题-希望这能帮助那些难以导入线条形状文件的人，因为我在其他地方没有看到它

将
geom\u line（）
替换为
geom\u path（）

Route\u形状
Route_shape <- readOGR(dsn = "Kaputa-Mporokoso.shp")
  crs(Route_shape) <- "+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0" 
    myMap <- get_map(location=Route_shape@bbox,
                       source="google", maptype="roadmap", crop=FALSE,colour = class)
      # Reformat shape for mapping purposes
      Route_shape_df <- broom::tidy(Route_shape)
      # Final map figure
      p <- ggmap(myMap) +
        geom_path(data = Route_shape_df, aes(x = long, y = lat, group=group),
                  colour = "red") 
p