使用R基于OSM底图绘制带比例圆的点位地图遇问题

你遇到的问题大概率是坐标格式未正确处理或坐标系不匹配导致的，以下是完整可运行的解决方案：

1. 数据预处理 #

你的坐标是合并在单个字符串列中的，首先需要拆分出纬度（lat）和经度（lon）并转为数值类型：

# 加载依赖包
library(ggplot2)
library(ggspatial)
library(sf)
library(tidyr)

# 构造你的数据框
df <- data.frame(
  点位 = c("41.53329498,3.86258704", "41.54960312,3.70673344", "41.54961245,3.77906700"),
  数值 = c(3, 6, 20)
)

# 拆分坐标字符串为纬度、经度列
df <- separate(df, 点位, into = c("lat", "lon"), sep = ",", convert = TRUE)

2. 转换为空间对象（关键步骤） #

将普通数据框转为sf空间对象，指定坐标系为WGS84（EPSG:4326）：

# sf对象默认要求先经度后纬度，所以coords参数顺序是c("lon", "lat")
sf_df <- st_as_sf(df, coords = c("lon", "lat"), crs = 4326)

3. 绘制OSM底图+动态大小点位 #

用ggspatial加载OSM底图，叠加按数值调整大小的点位：

ggplot() +
  # 添加OSM底图，zoom参数控制地图缩放级别（1-20，数值越大越精细）
  annotation_map_tile(type = "osm", zoom = 12) +
  # 绘制点位，size映射到数值列，设置颜色和透明度
  geom_sf(data = sf_df, aes(size = 数值), color = "#ff4444", alpha = 0.7) +
  # 调整点位大小的范围
  scale_size_continuous(range = c(2, 8)) +
  # 隐藏默认坐标轴（底图已包含地理信息）
  theme_void()

常见问题排查 #

• 若仍看不到点位：检查拆分后的lat和lon顺序是否正确（sf要求先经度后纬度）；
• 底图加载缓慢：可替换type参数为"cartolight"等其他底图类型；
• 坐标系冲突：annotation_map_tile默认使用Web Mercator（EPSG:3857），sf对象会自动完成投影转换，无需手动调整。

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