在ggmap/ggplot2中跨日界线绘图：扩展经度至-185°或调整地图中心

我之前也碰到过类似的跨日界线地图绘制问题，给你两个实用的解决方案：

ggmap的get_map确实只支持-180°到180°的经度区间，不过你可以通过坐标转换绕开这个限制：

• 西经-185°其实等价于东经175°（计算方式：-185 + 360 = 175），先修改你的地图获取代码，把location里的-185替换成175：

baseArchipelago = get_map(location=c(175,7,-154.5,29.3), zoom=6, maptype="terrain")
mapArchipelago <- ggmap(baseArchipelago)

• 接着处理你的物种分布数据：把数据中所有小于-180°的经度值加上360°，转换成东经正数，确保和地图的经度范围匹配：

# 假设你的物种数据框为species_data，经度列名为lon
species_data$lon_adjusted <- ifelse(species_data$lon < -180, species_data$lon + 360, species_data$lon)

# 叠加物种分布点
mapArchipelago +
  geom_point(data=species_data, aes(x=lon_adjusted, y=lat), color="darkred", size=3)

如果不想转换坐标，也可以直接调整ggplot的坐标系统，让地图以日界线为中心显示：

1. 先定义跨日界线的边界框，获取覆盖目标区域的地图：

# 用make_bbox生成包含东经175°到西经154.5°的边界
bbox <- make_bbox(lon=c(175, -154.5), lat=c(7, 29.3), f=0.1)
baseArchipelago <- get_map(location=bbox, zoom=6, maptype="terrain")

2. 通过coord_map设置地图中心为日界线，允许经度跨180°显示：

mapArchipelago <- ggmap(baseArchipelago) +
  coord_map(projection = "mercator", xlim = c(175, -154.5))

3. 直接使用原始经度数据绘制物种分布点即可，无需转换：

mapArchipelago +
  geom_point(data=species_data, aes(x=lon, y=lat), color="steelblue", size=3)

• 如果默认的Google地图瓦片对跨日界线区域支持不佳，可以试试切换到Stamen地图源（无需API密钥）：

baseArchipelago = get_map(location=c(175,7,-154.5,29.3), zoom=6, maptype="terrain", source="stamen")

• 若使用新版ggmap，调用Google地图可能需要提前配置API密钥，Stamen地图则没有这个限制，适合快速测试。

内容的提问来源于stack exchange，提问作者Joseph