R语言：如何扩展ggmap的水平显示范围

我明白你现在遇到的问题——用ggmap绘制跨度很大的经度位置数据时，它默认的方形地图范围确实有点束手束脚，要么会包含大量无关区域，要么没法完整展示所有数据点。下面给你几个实用的解决思路，你可以根据需求选择：

方法1：给ggmap自定义边界框（bbox）适配数据范围 #

既然ggmap只支持方形，那我们可以让这个方形刚好“框住”你的所有数据点，避免多余的空白区域。步骤如下：

# 加载所需包
library(ggmap)
library(dplyr)

# 读取本地数据文件（假设你已经下载好data.csv）
data <- read.csv("data.csv")

# 计算数据的经纬度极值，确定边界
lon_range <- range(data$lon, na.rm = TRUE)
lat_range <- range(data$lat, na.rm = TRUE)

# 生成ggmap需要的bbox格式：[左下角经度, 左下角纬度, 右上角经度, 右上角纬度]
data_bbox <- c(left = lon_range[1], bottom = lat_range[1], right = lon_range[2], top = lat_range[2])

# 根据自定义边界获取地图
map <- get_googlemap(bbox = data_bbox, maptype = "roadmap")

# 绘制数据点
ggmap(map) +
  geom_point(data = data, aes(x = lon, y = lat), color = "#ff4444", size = 2)

注意：如果你的数据跨国际日期变更线（经度接近±180），这种方形边界可能还是会显示半个地球的冗余区域，这时候可以试试下面的方法。

方法2：用leaflet做交互式地图（彻底摆脱方形限制） #

leaflet是R里做交互式地图的神器，它能自动适配你的所有数据点，而且用户可以自由缩放拖拽，完全不受方形范围的约束：

library(leaflet)

# 读取数据
data <- read.csv("data.csv")

# 创建交互式地图
leaflet(data) %>%
  addTiles() %>% # 添加默认的OpenStreetMap瓦片
  addMarkers(lng = ~lon, lat = ~lat, popup = ~paste("位置：", lat, ",", lon)) # 可以自定义弹窗内容

这种方式的优势是互动性强，用户能直观查看每个点的细节，尤其适合数据跨度极大的场景。

方法3：ggplot2 + sf绘制贴合数据的静态地图 #

如果更倾向于静态地图输出，可以用sf包处理空间数据，结合ggplot2的地理坐标系统来定义精准范围：

library(sf)
library(ggplot2)
library(ggspatial)

# 读取数据并转换为sf空间对象（WGS84坐标系，也就是GPS常用的经纬度格式）
data <- read.csv("data.csv") %>%
  st_as_sf(coords = c("lon", "lat"), crs = 4326)

# 计算数据范围（和方法1一致）
lon_range <- range(data$lon, na.rm = TRUE)
lat_range <- range(data$lat, na.rm = TRUE)

# 绘制静态地图
ggplot() +
  annotation_map_tile(type = "osm", zoom = 3) + # 加载OpenStreetMap底图
  geom_sf(data = data, color = "#ff4444", size = 2) +
  coord_sf(xlim = lon_range, ylim = lat_range) # 锁定数据范围

最后补充个小提示：如果你的ggmap获取地图失败，记得先注册Google Maps API密钥，执行register_google(key = "你的API密钥")即可。

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