ggmap + ggplot2 shapefile不以缩放4显示

编程问答 2022-06-03

问题描述

我正在尝试使用ggmap和ggplot2绘制带有点（geom_point()）和shapefile（geom_polygon()）的欧洲地图。

我的shapefile在zoom=4上没有显示，但在zoom=3上显示。如果可能的话，我想在zoom=4下使用它。在zoom=4中的图片中，俄罗斯和芬兰的阴影变成一条直线。在zoom=3处的图像中，显示了俄罗斯和芬兰的正确阴影。有人知道如何解决这个问题吗？

这是我的代码：

map <- get_map(location = 'Europe',zoom=3)
shapefile <- readOGR(dsn=("shapefiles/"),layer =  "Fraxinus_excelsior_plg_clip")
data <- fortify(shapefile)
df2 <- read.table("GPS_data.txt",header = TRUE,sep = "\t",stringsAsFactor=F) 
data.geo <- geocode(df2$Tr)
df3 <- cbind(df2,data.geo)


labs <- data.frame(
  long = df3$lon,lat = df3$lat,names = df3$Tr,size = df3$S,stringsAsFactors = FALSE
)  

Map<-ggmap(map,base_layer = ggplot(aes(x = long,y = lat),data = labs))

Map +
geom_polygon(aes(x = long,y = lat,group = group),data = data,colour = 'black',fill = 'grey',alpha = .4,size = .3)+
  geom_point(data = labs,aes(x = long,size = size),alpha = 0.7,stroke = 0,shape=16,color = "firebrick",position = "jitter") +
  geom_point(data = labs,position = "jitter") +
  scale_size_continuous(range = c(2,8),name = "Number",labels = scales::comma_format())

我得到这张图片：

Euro map

如果我更改为zoom=4，则会得到以下图像：

Euro map 2

这是我的会话信息； 

sessionInfo()
R version 3.6.1 (2019-07-05)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Catalina 10.15.7
other attached packages:
 [1] mapproj_1.2.7   evaluate_0.14   rgdal_1.5-18    maptools_1.0-2  sp_1.4-4        forcats_0.5.0  
 [7] stringr_1.4.0   dplyr_1.0.2     purrr_0.3.4     readr_1.4.0     tidyr_1.1.2     tibble_3.0.4   
[13] tidyverse_1.3.0 sf_0.9-6        mapdata_2.3.0   maps_3.3.0      ggmap_3.0.0     ggplot2_3.3.2

谢谢 詹姆斯

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ggmapggplot2rrshapefilezoomzoom