ggplot地图可视化优化：移除背景、调整轴缩放、离散化图例

需求说明 #

原代码生成了带散点的加州县分级统计图，需完成以下优化：

• 移除灰白网格背景
• 调整州地图至真实相对比例（避免窗口尺寸缩放变形）
• 将连续颜色图例改为离散选项（共4个分类）
  同时需实现：
• 移除ggplot默认背景
• 正确缩放坐标轴
• 将整数值Designation按离散型绘制

优化后完整代码 #

library(tidyverse)
library(maps)
library(mapdata)

# 获取加州县地图数据
map_data("county") %>%
  filter(region == "california") -> ca

# 生成随机分类并关联到地图数据
ca_subregion_designations <- data.frame(
  subregion = unique(ca$subregion),
  Designation = sample.int(4, length(unique(ca$subregion)), replace = TRUE) %>% as.factor() # 转换为离散因子
)
ca <- merge(x = ca, y = ca_subregion_designations, by = "subregion")

# 生成随机点数据
ca_points <- data.frame(
  point_id = c(101,102,103), 
  lat = c(37.747116,38.25502,37.961901), 
  long = c(-122.420889,-122.631641,-121.300782), 
  status = c('happy','sad','happy')
)

# 绘制优化后的地图
ggplot() + 
  # 绘制县填充图层
  geom_polygon(
    data = ca, 
    aes(x = long, y = lat, group = group, fill = Designation), 
    color = "white"
  )+ 
  # 绘制散点图层
  geom_point(
    data = ca_points, 
    aes(x = long, y = lat, color = status), 
    size = 1.5
  )+
  # 手动设置点颜色
  scale_color_manual(values = c("happy" = "green","sad"="red")) +
  # 离散型填充色板（可替换为其他离散色板）
  scale_fill_viridis_d(option = "plasma") +
  # 保持地图真实比例，避免变形
  coord_map() +
  # 移除默认背景、网格和坐标轴
  theme_void()

关键优化细节 #

• 移除背景与网格：使用theme_void()一键清除ggplot默认的灰色背景、网格线和坐标轴元素，让地图更简洁。
• 保持地图比例：添加coord_map()，采用地理投影方式固定经纬度比例，无论绘图窗口尺寸如何调整，地图都不会拉伸变形，保持真实的地理形状。
• 离散化颜色图例：将Designation转换为factor类型，让ggplot识别为离散变量，配合scale_fill_viridis_d()生成离散的颜色图例（也可使用scale_fill_manual()自定义颜色）。
• 语法修正：移除了原代码中geom_polygon里fill = Designation后的多余逗号，以及geom_point中不必要的group=status参数。

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