ggplot2地图导出PDF时多边形间出现异常线条，图形设备无此现象

嘿，我之前在处理ggplot2地图导出PDF的时候也踩过这个一模一样的坑！图形设备里看着完全正常，一导出PDF就冒出烦人的多边形边界线，还没法用新数据集复现——这大概率是你的预生成fortify数据或者PDF渲染机制的问题，给你几个实用的解决思路：

1. 先简化代码，消除冗余映射 #

你的代码里重复定义了long/lat/group的映射，这可能导致渲染时的微小冲突。先把代码精简成更清晰的结构：

# 合并全局和局部的aes映射，去掉冗余
map <- ggplot(fips_fort) + 
  aes(x = long, y = lat, group = group, fill = avg_coveragelevel) +
  geom_polygon() +
  # 如果不需要额外的边界线，直接删掉下面这行！
  geom_path(color = "black", lwd = .1) + 
  coord_fixed(1.3) +
  scale_fill_gradient2(low = "yellow", mid = "lightblue", high = "blue", midpoint = .7, space = "Lab")

注意：如果geom_path是你刻意加的边界线，那留着；如果是不小心加的，删掉后PDF里的多余线条可能直接消失——图形设备的渲染精度高，会把线条填充色覆盖，但PDF的矢量渲染会把微小缝隙显示出来。

2. 调整PDF导出参数，用更稳定的渲染设备 #

默认的PDF设备有时候会对矢量图形的边界处理有问题，换成Cairo PDF设备，同时关闭一些可能干扰的选项：

library(ggplot2)
# 用Cairo设备导出，提高精度并禁用特殊字符
ggsave("usa_map.pdf", 
       plot = map, 
       device = cairo_pdf, 
       dpi = 300, 
       useDingbats = FALSE)

Cairo设备对空间图形的渲染比默认设备更稳定，能解决很多边界线异常的问题。

3. 检查并修复你的预生成fortify数据 #

因为你没法用新数据集复现问题，所以根源肯定在USA_fort_premade或fips_fort这两个预处理的数据上：

• 检查是否有重复的group：用table(fips_fort$group)看看有没有异常的组重复，重复组可能导致多边形重叠或缝隙。
• 尝试用sf包重新处理空间数据（现在ggplot2对sf的支持远好于老的fortify方法）：

library(sf)
# 将fortify后的data.frame转换为sf对象，修复拓扑问题
fips_sf <- st_as_sf(fips_fort, coords = c("long", "lat"), crs = 4326) %>%
  st_group_by(group) %>%
  st_union() %>% # 合并同一组的多边形，消除缝隙
  st_sf() %>%
  dplyr::left_join(distinct(fips_fort, group, avg_coveragelevel), by = "group")

# 用sf的geom画图，直接控制边界显示
map <- ggplot(fips_sf) +
  aes(fill = avg_coveragelevel) +
  geom_sf(color = NA) # color=NA直接去掉所有多边形边界
  coord_sf(crs = 4326) +
  scale_fill_gradient2(low = "yellow", mid = "lightblue", high = "blue", midpoint = .7, space = "Lab")

sf包会自动处理空间数据的拓扑问题，避免fortify方法容易出现的顶点偏移、缝隙等问题。

4. 直接隐藏多边形边界 #

如果你确实需要保留某些边界，但想消除多余的缝隙线条，可以给geom_polygon设置color = NA，让多边形本身没有边界，只保留你刻意用geom_path或geom_sf画的边界：

geom_polygon(color = NA) # 这样多边形之间不会有默认的边界线

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