如何用ggplot2绘制带区域间距的美国地图并映射城市坐标点？

嘿，我来帮你搞定这个头疼的坐标匹配问题！用ggplot2画带区域间距的美国地图，还要让城市点精准对位，核心就是地图和城市点必须用完全一致的偏移规则——你之前可能只调整了地图或者统一调整了城市坐标，但没对应到每个区域的单独偏移对吧？我给你一步步拆解，附完整代码示例：

给美国地图分区域留白，不是简单的整体平移，而是每个区域（比如东北部、南部、中西部、西部）单独调整坐标位置。所以你的城市点不能只做统一偏移，必须先关联到所属区域，再应用对应区域的偏移量，才能和偏移后的地图精准匹配。

1. 先定义区域划分与偏移规则 #

首先得明确哪些州属于哪个区域，然后给每个区域设置x/y方向的偏移值（数值大小可以根据你想要的留白效果调整）：

library(ggplot2)
library(dplyr)
library(tibble)
library(stringr)

# 定义美国四大区域的州归属（可根据你的需求修改）
region_mapping <- tibble(
  state = state.name,
  region = case_when(
    state %in% c("Maine", "New Hampshire", "Vermont", "Massachusetts", "Rhode Island", "Connecticut", "New York", "New Jersey", "Pennsylvania") ~ "Northeast",
    state %in% c("Delaware", "Maryland", "Virginia", "West Virginia", "North Carolina", "South Carolina", "Georgia", "Florida", "Kentucky", "Tennessee", "Alabama", "Mississippi", "Arkansas", "Louisiana", "Oklahoma", "Texas") ~ "South",
    state %in% c("Ohio", "Indiana", "Illinois", "Michigan", "Wisconsin", "Minnesota", "Iowa", "Missouri", "North Dakota", "South Dakota", "Nebraska", "Kansas") ~ "Midwest",
    state %in% c("Montana", "Idaho", "Wyoming", "Colorado", "New Mexico", "Arizona", "Utah", "Nevada", "Washington", "Oregon", "California", "Alaska", "Hawaii") ~ "West"
  )
)

# 给每个区域设置专属偏移量（数值可按需调整）
region_offsets <- tibble(
  region = c("Northeast", "South", "Midwest", "West"),
  x_offset = c(-0.6, 0.4, 0, 0.8),
  y_offset = c(0, 0, -0.3, 0)
)

2. 处理地图数据的坐标偏移 #

用map_data("state")获取标准美国州地图数据，关联区域和偏移量后，调整每个州的坐标：

# 获取并处理地图数据
us_map <- map_data("state") %>%
  mutate(state = str_to_title(region)) %>% # 把小写州名转成首字母大写，和region_mapping匹配
  left_join(region_mapping, by = "state") %>%
  left_join(region_offsets, by = "region") %>%
  mutate(
    long = long + x_offset, # 应用x方向偏移
    lat = lat + y_offset    # 应用y方向偏移
  )

3. 处理城市坐标的偏移（关键步骤！） #

你的城市数据必须先关联到所属区域，再应用和地图完全一致的偏移量，这样才能精准对齐：

# 示例城市数据（替换成你的真实数据）
cities <- tibble(
  city = c("New York", "Houston", "Chicago", "Los Angeles"),
  lat = c(40.7128, 29.7604, 41.8781, 34.0522),
  long = c(-74.0060, -95.3698, -87.6298, -118.2437),
  state = c("New York", "Texas", "Illinois", "California") # 每个城市对应的州
) %>%
  left_join(region_mapping, by = "state") %>% # 关联城市所属区域
  left_join(region_offsets, by = "region") %>% # 获取对应区域的偏移量
  mutate(
    long = long + x_offset,
    lat = lat + y_offset
  )

4. 绘制带间距的地图与城市点 #

现在把偏移后的地图和城市点组合起来绘制：

ggplot() +
  # 绘制分区域的美国地图，区域间留空
  geom_polygon(
    data = us_map,
    aes(x = long, y = lat, group = group, fill = region),
    color = "white", # 州边界用白色，增强区域区分度
    size = 0.2
  ) +
  # 绘制城市点，用红色突出显示
  geom_point(
    data = cities,
    aes(x = long, y = lat),
    color = "#ff3333",
    size = 3,
    alpha = 0.8
  ) +
  # 去掉冗余的坐标轴，让地图更美观
  theme_void() +
  # 设置区域填充色的调色板
  scale_fill_brewer(palette = "Set2") +
  labs(title = "美国四大区域地图（带城市标记）")

• 如果城市点还是错位，先检查区域划分是否正确：确保每个城市所属的州被分到了正确的区域，偏移量应用无误。
• 检查偏移量的量级：map_data的坐标是经纬度，偏移量建议在0.3-1之间，太大或太小都会导致位置异常。
• 确保地图和城市的坐标系统一致：如果用的是自定义地图数据，要确认和城市坐标都是WGS84经纬度，或者统一使用投影坐标。

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