如何更改ggmap（R包）中的功能大小

Question

我正试图在R中的谷歌地图中加粗或增加河流或地形特征的大小。我使用ggmap用这段代码绘制地图：

geo<-read.table()
geo
station Latitude Longitude 
1   37.007995   50.433255   
2   36.990172   50.434971   
3   36.964116   50.435658

map <- get_map(location = c(lon = mean(range(geo$Longitude)),
                            lat = mean(range(geo$Latitude))),
               zoom = 13, scale = "auto",
               maptype = "toner", language = "en-EN")

map_plot <- ggmap(map, darken=c(.2,"gray")) + 
  geom_point(aes(x = Longitude, y = Latitude),
             data = geo,
             colour = "red", size=4, pch=20, bg=10)

map_plot + geom_line(size=1)

但结果不是我想要的。其他一些不属于地图的线条都是粗体。

参见附图：

ggmap中是否有增加或加粗地图功能的代码？

提前致谢